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