ATfieldscount

Syntax

N = RTF.ATfieldsCount(handle)

Description

Geeft het aantal keren van de aanwezigheid van AT-velden (veldnamen die beginnen met het @-teken).

Parameter	Description
handle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer.

See Also

ATfieldCount, InitATfields, 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.AtFieldsCount(%h)
 
   RTF.CloseHandle h%   'sluit de container
 
End Sub