InsertPage

Syntax

Result% = RTF.InsertPage(DestHandle, DestPageNum, SourceHandle, SourcePageNum)

Description

Voegt een pagina toe in een document vanuit een ander document. Geeft de waarde True wanneer de bewerking succesvol is uitgevoerd, anders False.

Parameter	Description
Desthandle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer waarin de pagina moet worden ingevoegd.
DestPageNum	Numeriek, De positie van de in te voegen pagina, uitgedrukt in bladzijdenummer.
SourceHandle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer van waaruit de pagina wordt gekopiëerd.
SourcePageNum	Numeriek, het bladzijdenummer van de te kopiëren pagina.

See Also

DeletePage, 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