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

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是世界上最流行的文字处理软件。)本技巧(625)适用于Microsoft Word 97、2000、2002和2003。您可以为Word(Word 2007)的功能区界面找到此技巧的版本。和更高版本)在这里: