Style.InUse プロパティ (Word)
True 指定したスタイルが変更されていたり、文書または文書内で作成された新しいスタイルの適用は、組み込みスタイルの場合です。 読み取り専用の Boolean です。
式。 InUse
式 'Style' オブジェクトを返す式。
InUse プロパティは、スタイルが文書内の任意のテキストに現在適用されているかどうかには示しません。 たとえば、スタイルが設定されているテキストが削除された場合、スタイルの InUse プロパティは True のままです。 ドキュメントで使用されていることがない組み込みスタイル、このプロパティは False を返します。
次の使用例は、作業中の文書で現在使用されているすべてのスタイルの名前を示すメッセージ ボックスを表示します。
Dim docActive As Document
Dim strMessage As String
Dim styleLoop As Style
Set docActive = ActiveDocument
strMessage = "Styles in use:" & vbCr
For Each styleLoop In docActive.Styles
If styleLoop.InUse = True Then
With docActive
.Content.Find
.ClearFormatting
.Text = ""
.Style = styleLoop
.Execute Format:=True
If .Found = True Then
strMessage = strMessage & styleLoop.Name & vbCr
End If
End With
End If
Next styleLoop
MsgBox strMessage
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。