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

Debug.Print h%

Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")

RTF.CloseHandle h% 'sluit de container

End Sub