Wordでは、スタイルを作成して、ドキュメント内のテキストの表示方法を定義できます。組み込みのスタイルの完全なリストに加えて、Wordでは必要に応じてカスタムスタイルを作成できます。 _WordTips_の他の問題で説明されているように、後でドキュメントのスタイルシートを印刷できます。

ただし、カスタムスタイルのみのリストが必要な場合はどうなりますか？ Wordには、スタイルシートの印刷に含まれているスタイルを区別できる機能は含まれていません。ドキュメントで使用されるカスタムスタイルのリストが必要な場合は、マクロを使用して作成できます。次のマクロは、すべてのスタイルをステップスルーし、両方の基準（カスタムおよび使用中）を満たすスタイルのリストをコンパイルします。ActivePrinterプロパティを読み取ることもできます

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

「カスタムスタイル」と「カスタマイズスタイル」には違いがあることに注意してください。 （組み込みスタイルは、スタイルのデフォルトの特性を変更した場合、カスタマイズされたスタイルにすることができます。）このマクロは、カスタムスタイルのリストを出力します。 Wordが組み込みと見なすスタイルは完全に無視されます。

注：

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

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

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

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

Wordの古いメニューインターフェイスに関するこのヒントのバージョンは、次の場所にあります：

linkカスタムスタイルのリストの印刷。