SaveATfields

Syntax

RTF.SaveATfields Handle[, strMessage])

Description

Verwerkt de vervangingen van @-velden door eerder uitgevoerde ReplaceATfields-functie door deze samen te voegen in het document dat onder Handle is geopend.

Parameter	Description
handle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer.
strMessage	Optioneel. Tekst die in de statusbalk van Tradium naast de percentagebalk wordt weergegeven. Standaardwaarde is "merging...".

See Also

ATfieldCount, ATfieldsCount, InitATfield, ReplaceATfields.

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