Ms word MS Word文档中使用的所有单词的索引_Ms Word

Ms word MS Word文档中使用的所有单词的索引

ms-word

Ms word MS Word文档中使用的所有单词的索引,ms-word,Ms Word,我需要在MS Word文档的末尾创建一个索引，列出文档中使用的所有单词，以及按字母顺序使用的页码。我可以用内置的索引功能来实现这一点吗？如果是这样的话，我该怎么做呢？或者我需要一个宏，如果需要的话，有人能帮我编写脚本吗？这将永远占用大型文档，但会生成在word文档中创建索引所需的索引字段。运行此宏后，您可以执行References>Insert Index将实际索引放入文档中 Dim colWords作为集合 Set colWords=新集合 '添加您不想索引的单词 colWords。添加“和”

我需要在MS Word文档的末尾创建一个索引，列出文档中使用的所有单词，以及按字母顺序使用的页码。我可以用内置的索引功能来实现这一点吗？如果是这样的话，我该怎么做呢？或者我需要一个宏，如果需要的话，有人能帮我编写脚本吗？

这将永远占用大型文档，但会生成在word文档中创建索引所需的索引字段。运行此宏后，您可以执行

References>Insert Index

将实际索引放入文档中

Dim colWords作为集合
Set colWords=新集合
'添加您不想索引的单词
colWords。添加“和”
colWords，加上“你”
变暗wrd As范围
对于ActiveDocument.Words中的每个wrd
'只有当我们有3个字符时，我们才索引
如果Len（Trim（wrd.Text））>2，则
'防止字段也被索引。。。
作为布尔函数的弱内场
内场=假
Dim fld As字段
对于ActiveDocument.Fields中的每个fld
如果（wrd.Start>=fld.Code.Start和wrd.End，谢谢Rene..我会检查一下！有没有办法加快速度，因为它在我的机器上用一个86页的文档崩溃了？我添加了一个穷人缓存，其中包含一个集合，该集合中已经为这次运行编制了索引的单词…仍然崩溃..我给你发了一封电子邮件来帮助我解决这个问题。