请教如何在WORD文档中统计一个词出现的次数？

hugua

高手指点一下哈 感激不尽！

hrh0418

对文档的段落进行遍历，然后遍历每段中的每个字符。

设定一个计数器统计，用弹出对话框的方式显示结果。

下面是大致的代码。

sub counter_char()

total_paragraph=document.paragraph

for i=1 to total_paragraph

char_in_paragraph=document.paragraph.char

for j=1 to char_in_paragraph

if document.paragraph.char[j]='the word i want to find' then

counter=counter + 1

next j

next i

mesbox ='repetetion =' counter

end sub