Description
| Vervangt de tekstfragment met een nieuw fragment van een geopend documentcontainer met handle. Geeft de waarde True wanneer de bewerking succesvol is uitgevoerd, anders False.
Parameter
| Description
| handle
| Numeriek, referentie naar de met CreateHandle geopende documentcontainer.
| OldText
| Het tekstfragment dat dient te worden vervangen
| Newtext
| Het tekstfragment dat het oude tekstfragment dient te vervangen.
| ReplaceCount
| Optioneel, het aantal keren dat het tekstfragment dient te worden vervangen. Standaardwaarde = -1 (alles vervangen).
| CompareOption
| Optioneel, vergelijkingsoptie, Binary, Database of Text. Standaardwaarde = vbTextCompare (niet-hoofdlettergevoelig)
| IncludeTextFrames
| Optioneel. Indien True, wordt er ook gezocht in alle tekstvakken in het document. Standaardwaarde = 0 (alleen in hoofddocument vervangen).
| insertRTFcode
| Optioneel. Indien True, dient NewText als RTF-opgemaakte tekst te worden ingevoegd. Standaardwaarde = False, waarbij NewText als platte tekst wordt ingevoegd.
nb: indien NewText herkenbare RTF-stuurcodes bevat, zal automatisch deze optie op True worden ingesteld.
|
|
Example
|
Sub Main
Dim h%, Doc$
h% = RTF.CreateHandle() 'open een nieuwe container
Doc$ = "c:\testsjabloon.rtf"
If RTF.LoadFile(h%, Doc$) Then
Do While RTF.WordCount(h%, "@ADRES") > 0
RTF.ReplaceWord h%, "@ADRES", "testje!"
End If
End If
Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")
RTF.CloseHandle h% 'sluit de container
End Sub
|