次の方法で共有


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

関連項目

Style オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。