InitATfields

Syntax

RTF.InitATfields handle[, strMessage]

Description

Initialiseert de vervangfuncties voor @-velden, waarbij het gehele document wordt doorlopen en de posities van deze velden tijdelijk in een index worden opgeslagen. Hiermee wordt het invullen van deze velden door de ReplaceATfield-functie aanmerkelijk versneld ten opzichte van de ReplaceWord-functie. Met name documentsjablonen met grafische objecten, zoals logo's en foto's worden aanzienlijk sneller verwerkt.

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 "indexing...".

See Also

ATfieldCount, ATfieldscount, ReplaceATfield, SaveATfields.

Example

Sub Main
 
   Dim h%
 
   h% = RTF.CreateHandle() 'open een nieuwe container
 
   RTF.LoadFile h%, "..\mytemplate.rtf"
   RTF.InitATfields h%, "A moment, please..."
 
   Debug.Print RTF.AtFieldCount(%h, "@artoms")
 
   RTF.CloseHandle h%   'sluit de container
 
End Sub