☰

取消隐藏 Word 2016 中的所有内容

tag-icon • tag-icon microsoft-word
取消隐藏 Word 2016 中的所有内容

我使用 Word 2016 中的搜索功能隐藏了所有未突出显示的内容。结果，我只看到了突出显示的文本。但是，当我想取消隐藏它时，只显示了文本的某些部分，例如：我的 Word 文档包含分节符，每当我尝试取消隐藏所有内容时，页脚和页眉仍然处于隐藏状态。我必须逐一浏览页眉和页脚并手动取消隐藏它们。

有没有办法强制使用替换功能取消隐藏所有内容？

答案1

您尚未收到回复，所以也许您对使用 Word 2010 中可用的宏感兴趣？此宏可取消隐藏所有隐藏文本，包括页眉和页脚中的文本。

Sub UnhideEverything()

Dim rngStory As Range
Dim rngToSearch As Range
Dim rngResult As Range
For Each rngStory In ActiveDocument.StoryRanges
               Set rngToSearch = rngStory
    Set rngResult = rngToSearch.Duplicate

    Do
        If rngResult.Font.Hidden Then
            rngResult.Font.Hidden = False

        End If
        rngResult.MoveStart wdWord
        rngResult.End = rngToSearch.End
    Loop Until rngResult.Find.Found = False

    Next rngStory

End Sub

相关内容