Word) (Selection.SelectCurrentIndent 方法

向前延伸選取項目，直到遇到具有不同左右段落縮排的文字為止。

語法

expression. SelectCurrentIndent

需要 expression。 代表 Selection 物件的變數。

範例

這則範例會跳至文件中第一個段落的開頭，而此段落與使用中文件的第一個段落具有不同的縮排。

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With

這則範例會判斷使用中文件內的所有段落是否都以相同的左邊縮排和右邊縮排格式化，然後顯示一則表示結果的訊息方塊。

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With 
If Selection.End = ActiveDocument.Content.End - 1 Then 
 MsgBox "All paragraphs share the same left " _ 
 & "and right indents." 
Else 
 MsgBox "Not all paragraphs share the same left " _ 
 & "and right indents." 
End If

另請參閱

Selection 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。