ドキュメントを長期間操作する場合、または他の人からドキュメントを継承する場合、使用されなくなったスタイルが含まれている可能性があります。これらのスタイルを削除することもできますが、実際に使用されていないことを知らずに削除を開始すると、ドキュメントの形式に危険を及ぼす可能性があります。

ここでマクロが役に立ちます。ドキュメントをすばやく検索して、特定のスタイルがどこでも使用されているかどうかを確認できます。そうでない場合は、スタイルを簡単に削除できます。次のマクロDeleteUnusedStylesは、まさにそれを実行します。

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

組み込みスタイルの場合、マクロはスタイルを無視することに注意してください。これは、組み込みスタイルを削除しても実際には削除されず、そのスタイルが元のデフォルトの状態にリセットされるだけだからです。実際、Wordでは組み込みのスタイルをドキュメントから削除することはできません。組み込みのスタイルが使用されなくなったが、ドキュメントで一度使用された場合でも、スタイルのドロップダウンリストに表示されます。

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1337）は、Microsoft Word 97、2000、2002、および2003に適用されます。