对于希望“隐藏”文档某些部分（无论是查看还是打印）的用户，隐藏的文本有很大的帮助。但是，对于隐藏您不希望其他人在分发的文档中看到的信息，这不是很好。他们（您要向其分发文档的人）可以尽可能轻松地显示或打印隐藏的文本。

Word没有内置的功能，可以使您“锁定”隐藏的文本，使其无法被查看。因此，最好的解决方案是在分发文档之前，最后一步只是删除所有隐藏的文本。

您可以通过使用Word的“搜索和替换”功能来做到这一点，如下所示：

。按Ctrl + H。 Word将显示“查找和替换”对话框的“替换”选项卡。

。单击更多按钮（如果可用）。 （请参见图1。）

。将插入点放在“查找内容”框中，并确保其为空。

。单击格式按钮，然后选择字体。 Word将显示“查找字体”对话框。 （请参见图2。）

。单击“隐藏属性”复选框，直到其中有一个纯黑色的复选标记。 （您可能不得不多次单击它。）

。单击确定。 “查找字体”对话框消失，并且“查找内容”框正下方应出现“格式：隐藏”字样。

。确保“替换为”框为空。

。单击全部替换。

如果您发现自己大量删除了隐藏的文本，则可以通过记录执行上述步骤的宏来使该过程自动化，或者可以使用以下宏：

Sub StripAllHidden()

Dim rngsStories As Word.StoryRanges     Dim rngStory As Word.Range

On Error GoTo NoDocOpen         Set rngsStories = ActiveDocument.StoryRanges     On Error GoTo 0

'Need to loop through all 'stories' to     'remove hidden text from footnotes, headers,     'etc. as well as body text.



For Each rngStory In rngsStories         With rngStory.Find             .ClearFormatting             .Font.Hidden = True             Call .Execute(vbNullString, False, False, False, _                 False, False, True, wdFindContinue, True, _                 ReplaceWith:=vbNullString, _                     Replace:=wdReplaceAll)

End With     Next     Exit Sub NoDocOpen:

End Sub

使用此宏的另一个优点是，它还将在常规的“搜索和替换”功能所不具备的地方查找隐藏的文本：脚注，尾注，页眉，页脚等。

注意：

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

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

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

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

保护隐藏的文字。