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