DeletePage

Syntax

Result% = RTF.DeletePage(handle, PageNum)

Description

Verwijdert pagina nummer PageNum uit document in container handle is geladen. Geeft de waarde True wanneer de bewerking succesvol is uitgevoerd, anders False.

Parameter	Description
handle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer.
PageNum	De pagina welke dient te worden verwijderd.

See Also

InsertPage, LoadFile.

Example

Sub Main
 
   Dim h%, s%, Doc$
 
   h% = RTF.CreateHandle() 'open een nieuwe container 
   s% = RTF.CreateHandle() 'open een nieuwe container (sjabloon)
 
   Doc$ = "c:\testsjabloon.rtf"
 
   If RTF.LoadFile(h%, Doc$) And RTF.LoadFile(h%, Doc$) Then
      If RTF.InsertPage(h%, 3, s%, 2) = True Then
         RTF.DeletePage h%, 1
      End If
   End If
 
   Debug.Print h%
 
   Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")
 
   RTF.CloseHandle h%   'sluit de container
 
End Sub