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.
| ||||||
See Also
| |||||||
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
| ||||||