隠しテキストは、ドキュメントの特定の部分を表示または印刷から「非表示」にしたい場合に非常に役立ちます。ただし、配布しているドキュメントで他の人に見られたくない情報を隠すのはあまり良くありません。彼ら（あなたが文書を配布している人）は、あなたができるのと同じくらい簡単に隠しテキストを表示または印刷することができます。

非表示のテキストを「ロック」して表示できないようにするWordの組み込み機能はありません。したがって、最善の解決策は、ドキュメントを配布する前の最後のステップとして、隠しテキストをすべて削除することです。

これを行うには、次のようにWordの検索および置換機能を使用します。

。 Ctrl + Hを押します。 Wordは、[検索と置換]ダイアログボックスの[置換]タブを表示します。

。利用可能な場合は、[その他]ボタンをクリックします。 （図1を参照）

。 [検索する文字列]ボックスに挿入ポイントを配置し、空であることを確認します。

。 [フォーマット]ボタンをクリックして、[フォント]を選択します。 Wordは、[フォントの検索]ダイアログボックスを表示します。 （図2を参照）

。黒く塗りつぶされたチェックマークが表示されるまで、[非表示属性]チェックボックスをクリックします。 （複数回クリックする必要がある場合があります。）

。 [OK]をクリックします。 [フォントの検索]ダイアログボックスが消え、[フォーマット：非表示]という単語が[検索する文字列]ボックスのすぐ下に表示されます。

。 [置換]ボックスが空であることを確認してください。

。 [すべて置換]をクリックします。

隠しテキストをかなり削除していることに気付いた場合は、上記の手順を実行するマクロを記録してプロセスを自動化するか、次のマクロを使用できます。

Sub StripAllHidden()

Dim rngsStories As Word.StoryRanges     Dim rngStory As Word.Range

On Error GoTo NoDocOpen         Set rngsStories = ActiveDocument.StoryRanges     On Error GoTo 0

'Need to loop through all 'stories' to     'remove hidden text from footnotes, headers,     'etc. as well as body text.



For Each rngStory In rngsStories         With rngStory.Find             .ClearFormatting             .Font.Hidden = True             Call .Execute(vbNullString, False, False, False, _                 False, False, True, wdFindContinue, True, _                 ReplaceWith:=vbNullString, _                     Replace:=wdReplaceAll)

End With     Next     Exit Sub NoDocOpen:

End Sub

このマクロを使用するもう1つの利点は、通常の検索と置換機能では検索できない場所（脚注、文末脚注、ヘッダー、フッターなど）で非表示のテキストも検索することです。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（12438）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link隠しテキストの保護。