ReplaceATfield

Syntax

Result% = RTF.ReplaceATfield(Handle, strFieldName, NewText[, ReplaceCount])

Description

Vervangt een @-veld door een tekstfragment 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.
strFieldName	Het @-veld dat dient te worden vervangen
Newtext	Het tekstfragment dat het @-veld dient te vervangen.
ReplaceCount	Optioneel, het aantal keren dat het @-veld dient te worden vervangen. Standaardwaarde = -1 (alles vervangen).

See Also

ATfieldCount, ATfieldsCount, InitATfield, SaveATfields.

Example

Sub Main

Dim h%, Doc$, n%

h% = RTF.CreateHandle() 'open een nieuwe container

Doc$ = "c:\testsjabloon.rtf"

If RTF.LoadFile(h%, Doc$) Then

RTF.InitATfields(h%)

Do While RTF.ATfieldCount(h%, "@artoms") > 0

n% = n% + 1

RTF.ReplaceATfield h%, "@artoms", "tekst " & CStr(%n), 1

End If

   End If

   RTF.SaveATfields h%, "merging fields..."

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

RTF.CloseHandle h% 'sluit de container

End Sub