2种快速计算Word文档中高亮显示单词数量的方法

在这篇文章中，我们将为你提供两种快速计算Word文档中高亮显示单词数量的方法。

我们会不时地用不同的颜色突出不同主题的文本。如果您想要计算突出显示的单词总数，您必须了解Word中没有直接的方法来完成此任务。但是作为变通方法，您可以在不同的情况下选择以下方法之一。

方法一:用不同的颜色计算所有高亮的单词

1. 首先按“Alt+ F11”打开Word中的VBA编辑器。
2. 接下来单击左侧栏的“Normal”。
3. 然后单击菜单栏上的“插入”。
4. 在下拉菜单中选择“模块”。

5. 双击新模块打开它。
6. 将下面的宏粘贴到这里:

subcountallwordsinhighlight () Dim objWord作为范围Dim nHighlightedWords作为长Dim objDoc作为文档应用程序。ScreenUpdating = False Set objDoc = ActiveDocument With Selection. homekey Unit:=wdStory With Selection。Find . highlight = True Do While . execute nHighlightedWords = nHighlightedWords + Selection. range . computestatistics (wdStatisticWords) Selection。崩溃wdCollapseEnd循环结束与结束与MsgBox("突出显示的单词总数是" & nHighlightedWords & ")应用程序。ScreenUpdating = True Set objDoc = none End Sub

7. 最后但并非最不重要的，点击“运行”按钮或按“F5”执行代码。

将出现一个消息框，如下所示:

方法二:用特定的颜色计算所有高亮的单词

正如我们上面提到的，可以对Word文档应用几种高亮颜色。因此，很难得到特定颜色的高亮单词的单词计数。幸运的是，我们总是可以依靠宏来完成一些定制的任务。

1. 首先，重复方法1中的步骤来安装和运行宏。
2. 然后用这个宏替换:

subcountwordsinaspecifichighlightcolor () Dim objDoc作为文档Dim objWord作为对象Dim nHighlightedWords As Long Dim strHighlightColor作为字符串应用程序。ScreenUpdating = False设置objDoc = ActiveDocument nHighlightedWords = 0 strHighlightColor = InputBox(“选择突出显示颜色(输入值):“& vbNewLine & _ vbTab & & vbTab & vbTab“汽车”&“0”& vbNewLine & _ vbTab &“黑色”& vbTab & vbTab & " 1 " & vbNewLine & _ vbTab &“蓝色”& vbTab & vbTab &“2”& vbNewLine & _ vbTab &“亮”& vbTab & 4 & vbNewLine & _ vbTab & & vbTab & vbTab“DarkBlue”和“9”和vbNewLine & _ vbTab &“DarkRed”& vbTab & vbTab & & vbNewLine & _ vbTab &“13”“DarkYellow”& vbTab &“14”& vbNewLine & _ vbTab & & vbTab & vbTab“Gray25”&“16”& vbNewLine & _ vbTab & & vbTab & vbTab“Gray50”&“15”& vbNewLine & _ vbTab &“绿色”& vbTab & vbTab &“十一”& vbNewLine & _ vbTab &“粉红色”& vbTab & vbTab &“5”& vbNewLine & _ vbTab &“红色”& vbTab & vbTab &“6”& vbNewLine & _ vbTab &“蓝绿色”& vbTab & vbTab &“10”& vbNewLine & _ vbTab &“绿松石”& vbTab &“3”& vbNewLine & _ vbTab &“紫罗兰”& vbTab & vbTab &“12”& vbNewLine & _ vbTab & & vbTab“白色”& vbTab & "8" & vbNewLine & _ vbTab & "Yellow" & vbTab & vbTab & "7"， "Pick Highlight Color")为每个objWord在objDoc。如果objWord。HighlightColorIndex = strHighlightColor Then nHighlightedWords = nHighlightedWords + 1 End If Next objWord MsgBox("高亮显示的单词数量是" & nHighlightedWords & " .")应用程序。ScreenUpdating = True Set objDoc = none End Sub

3. 接下来在“选择高亮颜色”框中，输入一个颜色值，然后点击“确定”。例如，这里我们输入“7”，代表黄色。
4. 结果是这样的:

巧妙地解决文件腐败问题

偶尔，你会遇到词伤害。最糟糕的是，它可能导致文件损坏。虽然你可以利用Word的内置功能来恢复你的文档，但你也可以求助于另一个聪明的选择，那就是找一个修复工具来在最短的时间内恢复你的数据。

作者简介:

Vera Chen是DataN万博ManBetX手机下载umen, Inc.的数据恢复专家，该公司是数据恢复技术的全球领导者，包括损坏xls以及PDF修复软件产品。万博体育app官方网下载欲知详情，请浏览www.circareview.com