布鲁斯（Bruce）正在寻找使Word自动标记文档中长句子的方法。例如，他可能想让那些句子中的20多个单词用某种颜色标记，以便于查找。

幸运的是，Word维护了一个通过VBA访问的Sentences集合，该集合由文档中的每个句子组成。您可以检查此集合中的每个项目（每个句子），以确定其是否长于所需的长度。下面的宏提供了有关此操作的示例。

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

请注意，每个句子都经过检查，如果它长于所需长度（由变量iWords定义），则该句子将变为红色字体。这样可以轻松检查文档并发现哪些句子超出了您指定的长度。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（11909）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

查找长句子。