Mostrar tudo no Word 2016

Question

Eu usei a função de pesquisa no Word 2016 para ocultar tudo o que não está destacado. Como resultado, recebo somente texto destacado. No entanto, quando quero reexibir, apenas determinada parte do texto mostra, por exemplo: meu documento do Word consiste em quebras de seção, sempre que tento mostrar tudo, rodapés e cabeçalhos permanecem ocultos. Eu tenho que passar por cada cabeçalho e rodapé e mostrá-los manualmente.

Existe uma maneira de forçá-lo usando a função de substituição para mostrar tudo?

    

Answer 1

Você ainda não obteve uma resposta, então talvez esteja interessado em trabalhar com uma macro que funcione no Word 2010? Esta macro mostra o texto oculto, incluindo o texto nos cabeçalhos e rodapés.

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