ReplaceWord

Syntax

Result% = RTF.ReplaceWord(Handle, OldText, NewText[, ReplaceCount]
[, CompareOption][, IncludeTextFrames][, insertRTFcode])

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.

See Also

WordCount, ReplaceWordByImage.

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

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

RTF.CloseHandle h% 'sluit de container

End Sub