WordCount

Syntax

Result% = RTF.WordCount(Handle, strWord[, PageNum])

Description

Tel het totaal aantal woorden van een geopend documentcontainer met handle.

Parameter	Description
handle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer.
strWord	Het tekstfragment dat dient te worden geteld
PageNum	Optioneel, Beperkt de telling tot een specifieke pagina

See Also

ReplaceWord.

Example

Sub Main
 
   Dim h%, Doc$
 
   h% = RTF.CreateHandle() 'open een nieuwe container 
 
   Doc$ = "c:\testsjabloon.rtf"
 
   If RTF.LoadFile(h%, Doc$) Then
      Do While RTF.WordCount(h%, "@ADRES") > 0
         RTF.ReplaceWord h%, "@ADRES", "testje!"
      End If
   End If
 
   Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")
 
   RTF.CloseHandle h%   'sluit de container
 
End Sub