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
   End If
 
   Debug.Print h%
 
   Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")
 
   RTF.CloseHandle h%   'sluit de container
 
End Sub