Mostrar tudo no Word 2016

Question

Usei a função de pesquisa do Word 2016 para ocultar tudo que não está destacado. Como resultado, recebo apenas texto destacado. Porém quando quero reexibi-lo, apenas uma parte do texto aparece, por exemplo: meu documento Word consiste em quebras de seção, sempre que tento reexibir tudo, rodapés e cabeçalhos permanecem ocultos. Tenho que passar por cada cabeçalho e rodapé e exibi-los manualmente.

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

Answer 1

Você ainda não recebeu uma resposta, então talvez esteja interessado em trabalhar com uma macro que funcione no Word 2010? Esta macro exibe todo o texto oculto, incluindo 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