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

Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")

RTF.CloseHandle h% 'sluit de container

End Sub