Mostrar todo en Word 2016

Question

Utilicé la función de búsqueda en Word 2016 para ocultar todo lo que no está resaltado. Como resultado, solo aparece el texto resaltado. Sin embargo, cuando quiero mostrarlo, solo se muestra cierta parte del texto, por ejemplo: mi documento de Word consta de saltos de sección, cada vez que intento mostrar todo, los pies de página y los encabezados permanecen ocultos. Tengo que revisar cada encabezado y pie de página y mostrarlos manualmente.

¿Hay alguna manera de forzarlo usando la función de reemplazo para mostrar todo?

Answer 1

Aún no ha recibido una respuesta, entonces ¿tal vez le interesaría trabajar con una macro que funcione en Word 2010? Esta macro muestra todo el texto oculto, incluido el texto de los encabezados y pies de página.

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