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