使用 Selection 物件

當您在 Word 中處理檔時，通常會選取文字，然後執行動作，例如格式化文字或輸入文字。 在 Visual Basic 中，通常不需要在修改文字之前選取文字。 相反地，您會建立參照檔特定部分的 Range 物件。 如需定義 Range 物件的詳細資訊，請參閱使用 Range 物件。 不過，當您想要讓程式碼回應或變更選取範圍時，可以使用 Selection 物件來執行此動作。

如果尚未選取文字，請使用 Select 方法來選取與特定物件相關聯的文字，並建立 Selection 物件。 例如，下列指令會選取使用中文件的第一個字。

Sub SelectFirstWord() 
 ActiveDocument.Words(1).Select 
End Sub

如需詳細資訊，請參閱選取文件中的文字。 如果已經選取文字，請使用 Selection 屬性傳回代表檔中目前選取範圍的 Selection 物件。 每份文件只能有一個 Selection 物件，而且此物件一定會存取目前的選取範圍。 下列範例會變更目前選取範圍中段落的格式設定。

Sub FormatSelection() 
 Selection.Paragraphs.LeftIndent = InchesToPoints(0.5) 
End Sub

下列範例會在目前的選取範圍後面插入 "Hello" 一詞。

Sub InsertTextAfterSelection() 
 Selection.InsertAfter Text:="Hello " 
End Sub

下列範例會將粗體格式設定套用至選取的文字。

Sub BoldSelectedText() 
 Selection.Font.Bold = True 
End Sub

巨集錄製器通常會建立使用 Selection 物件的巨集。 下列範例是使用巨集錄製器建立的。 此巨集會選取使用中文件的前兩個字，然後將粗體格式設定套用至這些字。

Sub Macro() 
 Selection.HomeKey Unit:=wdStory 
 Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend 
 Selection.Font.Bold = wdToggle 
End Sub

下列範例會在不選取文字或不使用 Selection 物件的情況下，完成相同的工作。

Sub WorkingWithRanges() 
 ActiveDocument.Range(Start:=0, _ 
 End:=ActiveDocument.Words(2).End).Bold = True 
End Sub

支援和意見反應

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