![Word 2016 ですべてを非表示にする](https://rvso.com/image/1525406/Word%202016%20%E3%81%A7%E3%81%99%E3%81%B9%E3%81%A6%E3%82%92%E9%9D%9E%E8%A1%A8%E7%A4%BA%E3%81%AB%E3%81%99%E3%82%8B.png)
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