共用方式為

Style.InUse 屬性 (Word)

  • 發行項

True 是表示 如果指定的樣式為已修改或文件或文件中已建立新樣式套用的內建樣式。 唯讀的 Boolean。

語法

expression。 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 支援與意見反應。