Показать все в Word 2016

Question

Я использовал функцию поиска в Word 2016, чтобы скрыть все, что не выделено. В результате я получаю только выделенный текст. Однако, когда я хочу показать его, например, отображается только определенная часть текста: мой документ Word состоит из разрывов разделов, и всякий раз, когда я пытаюсь все отобразить, нижние и нижние колонтитулы остаются скрытыми. Я должен просмотреть каждый верхний и нижний колонтитулы и показать их вручную.

Есть ли способ заставить его использовать функцию замены, чтобы показать все?

Answer 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