處理Selection對象和Range對象——Word VBA中重要的兩個對象

處理Selection對象和Range對象——Word VBA中重要的兩個對象

Word 開發人員參考
Selection 對象
代表視窗或窗格中的當前所選內容。所選內容代表文檔中選定（或反白）的地區，如果文檔中沒有選定任何內容，則代表插入點。每個文檔窗格只能有一個
Selection 對象，並且在整個應用程式中只能有一個活動的 Selection 對象。
說明

可以使用 Selection 屬性返回 Selection 對象。如果 Selection 屬性未使用對象限定符，則
Microsoft Office Word 返回使用中文件視窗的活動窗格中的所選內容。以下樣本從使用中文件中複製當前所選內容。

Selection.Copy

以下樣本刪除 Documents 集合中第三個文檔的所選內容。訪問該文檔的當前所選內容時，該文檔無需處於活動狀態。

Documents(3).ActiveWindow.Selection.Cut

以下樣本複製使用中文件第一個窗格中的所選內容，並將其粘貼到第二個窗格中。

ActiveDocument.ActiveWindow.Panes(1).Selection.Copy
ActiveDocument.ActiveWindow.Panes(2).Selection.Paste

Text 屬性是 Selection
對象的預設屬性。使用此屬性可設定或返回當前所選內容中的文本。以下樣本將當前所選內容中的文本賦給變數
strTemp。如果最後一個字元是段落標記，則刪除該字元。

Dim strTemp as String

strTemp = Selection.Text
If Right(strTemp, 1) = vbCr Then _
    strTemp =
Left(strTemp, Len(strTemp) - 1)

Selection
對象有多種方法和屬性，可用於摺疊、擴充或以其他方式更改當前所選內容。以下樣本將插入點移至文檔末尾並選擇最後三行。

Selection.EndOf Unit:=wdStory, Extend:=wdMove
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend

Selection
對象有多種方法和屬性，可用於編輯文檔中的所選文字。以下樣本選擇使用中文件中的第一句，並用新段落替換該句。

Options.ReplaceSelection = True
ActiveDocument.Sentences(1).Select
Selection.TypeText "Material below is confidential."
Selection.TypeParagraph

以下樣本刪除 Documents 集合中第一個文檔的最後一段，並將其粘貼到第二個文檔的開頭。

With Documents(1)
   
.Paragraphs.Last.Range.Select
   
.ActiveWindow.Selection.Cut
End With

With Documents(2).ActiveWindow.Selection
    .StartOf
Unit:=wdStory, Extend:=wdMove
    .Paste
End With

Selection 對象有多種方法和屬性，可用於更改當前所選內容的格式。以下樣本將當前所選內容的字型從 Times New
Roman 更改為 Tahoma。

If Selection.Font.Name = "Times New Roman" Then _
   
Selection.Font.Name = "Tahoma"

可以使用 Flags、Information 和 Type
等屬性返回有關當前所選內容的資訊。您可以在某個過程中使用以下樣本來確定使用中文件中是否選擇了內容，如果未選擇，則跳過該過程的其餘部分。

If Selection.Type = wdSelectionIP Then
    MsgBox
Prompt:="You have not selected any text! Exiting
procedure..."
    Exit
Sub
End If

即使將所選內容摺疊到插入點，相應內容也不一定為空白。例如，Text 屬性仍將字元返回到插入點右側，此字元也會出現在
Selection 對象的 Characters 集合中。但是，從摺疊的所選內容調用 Cut 或 Copy 等方法將引起錯誤。

使用者可以選擇文檔中不代表連續文本的地區（例如，在使用 Alt
鍵和滑鼠時）。由於這種所選內容的行為不可預知，因此，您可能希望在代碼中包含一個步驟，先檢查所選內容的 Type
屬性，然後再對它執行任意操作 (Selection.Type =
wdSelectionBlock)。同樣，包含表格儲存格的所選內容也會導致不可預知的行為。Information
屬性將指示所選內容是否在某個表中 (Selection.Information(wdWithinTable) =
True)。以下樣本確定所選內容是否正常（例如，它不是表中的行或列，也不是垂直文字區塊，等等），您可以先用該樣本對當前所選內容進行測試，然後再對它執行任意操作。

If Selection.Type <>
wdSelectionNormal Then
    MsgBox
Prompt:="Not a valid selection! Exiting procedure..."
    Exit
Sub
End If

由於 Range 對象與 Selection 對象的許多方法和屬性都相同，因此，如果沒有必要對當前所選內容進行實際更改，最好使用
Range 對象來處理文檔。有關 Selection 對象和 Range 對象的詳細資料，請參閱處理 Selection 對象和處理
Range 對象。

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

=================================================================================

Word 開發人員參考
處理 Selection 對象

用 Microsoft Office Word
處理文檔時，通常先選定文字，然後對所選內容執行操作，例如設定文字格式或鍵入文字。在 Microsoft 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

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

=================================================================================

Word 開發人員參考
Range 對象
代表文檔中的一個連續地區。每個 Range 對象由一個起始字元位置和一個終止字元位置定義。
說明

與書籤在文檔中的使用方法類似，Range 對象在 Visual Basic 過程中用來標識文檔的特定部分。但與書籤不同的是，Range
對象只在定義該對象的過程運行時才存在。Range
對象獨立於所選內容。也就是說，您可以定義和處理一個範圍而無需更改所選內容。還可以在文檔中定義多個範圍，但每個窗格中只能有一個所選內容。

使用 Range 方法可返回一個 Range 對象，該對象由指定的起始和終止字元位置定義。以下樣本返回一個代表使用中文件中前 10
個字元的 Range 對象。

Set myRange = ActiveDocument.Range(Start:=0, End:=10)

使用 Range 屬性可返回一個 Range 對象，該對象由另一對象的起點和終點定義。Range
屬性可應用於許多個物件（例如，Paragraph、Bookmark 和 Cell）。以下樣本返回一個代表使用中文件中第一段的 Range
對象。

Set aRange = ActiveDocument.Paragraphs(1).Range

以下樣本返回一個代表使用中文件中第二至第四段的 Range 對象。

Set aRange = ActiveDocument.Range( _
   
Start:=ActiveDocument.Paragraphs(2).Range.Start, _
   
End:=ActiveDocument.Paragraphs(4).Range.End)

有關處理 Range 對象的詳細資料，請參閱處理 Range 對象。

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

=================================================================================

Word 開發人員參考
處理 Range 對象
全部顯示
全部隱藏

使用 Microsoft Visual Basic
完成的一種常見任務是在文檔中指定一個地區，然後對該地區進行某些操作，如插入文字或應用格式。例如，您可能需要編寫一個宏，用於在文檔的某部分中尋找一個單詞或片語。該文檔部分可以用
Range 對象表示。標識 Range 對象後，就可以應用 Range 對象的方法和屬性來修改該地區的內容。

Range 對象引用文檔中的某一連續地區。每個 Range
對象都是通過開始和結束字元位置來定義的。與在文檔中使用書籤的方法類似，在 Visual Basic 過程中使用 Range
對象可以標識文檔中的特定部分。Range 對象可以小至一個插入點，或大至整個文檔。但是與書籤不同，Range
對象只在定義它的過程運行時才存在。

Start、End 和 StoryType 屬性唯一地標識一個 Range 對象。Start 和 End 屬性返回或設定
Range 對象的開始和結束字元的位置。文檔開始處的字元位置為 0，第一個字元後的位置為 1，依此類推。StoryType 屬性的
WdStoryType 常量可以代表 11 種不同的文章類型。

  注釋
Range
對象與所選內容無關。也就是說，可以定義和修改某地區而不改變當前的所選內容。也可定義文檔中的多個地區，而每個文檔窗格中只有一處所選內容。

使用 Range 方法
使用 Document 對象的 Range 方法可建立一個 Range 對象，該對象位於主文字部分
（文章：單個文字框或一串相連結文字框中包含的文字。）中並具有給定的起點和終點。下面的樣本建立一個 Range
對象，該對象從第一個字元的開始位置開始並延伸到第十個字元。

Sub SetNewRange()
    Dim rngDoc
As Range
    Set rngDoc =
ActiveDocument.Range(Start:=0, End:=10)
End Sub

將屬性或方法應用於 Range 對象時，可以看到已經建立了 Range 對象。下面的樣本對使用中文件的前 10
個字元應用加粗格式。

Sub SetBoldRange()
    Dim rngDoc
As Range
    Set rngDoc =
ActiveDocument.Range(Start:=0, End:=10)
    rngDoc.Bold
= True
End Sub

如果需要多次引用一個 Range 對象，可使用 Set 語句設定一個其值為該 Range 對象的變數。但是，如果僅需要對
Range 對象執行一次操作，則不必將該Object Storage Service在變數中。只使用一個標識地區並更改 Bold 屬性的指令，也能得到相同的結果。

Sub BoldRange()
   
ActiveDocument.Range(Start:=0, End:=10).Bold = True
End Sub

類似於書籤，一個地區可以跨越一組字元或標記文檔中的某個位置。下列樣本中的 Range
對象的開始和結束位置相同。該地區不包含任何文字。下列樣本在使用中文件的開頭插入文字。

Sub InsertTextBeforeRange()
    Dim rngDoc
As Range
    Set rngDoc =
ActiveDocument.Range(Start:=0, End:=0)
   
rngDoc.InsertBefore "Hello "
End Sub

可以使用上述字元位置編號，或通過將 Start 和 End 屬性用於 Selection、Bookmark 或 Range
等對象，來定義地區的開始和結束位置。下面的樣本建立一個 Range 對象，該對象從第二段開頭開始，至第三段末尾結束。

Sub NewRange()
    Dim doc As
Document
    Dim rngDoc
As Range

    Set doc =
ActiveDocument
    Set rngDoc =
doc.Range(Start:=doc.Paragraphs(2).Range.Start, _
       
End:=doc.Paragraphs(3).Range.End)
End Sub

有關其他資訊和樣本，請參閱 Range 方法。

使用 Range 屬性
有多個對象具有 Range 屬性，如 Paragraph、Bookmark 和 Cell。該屬性用於返回 Range
對象。下面的樣本返回一個 Range 對象，該對象引用使用中文件中的第一段。

Sub SetParagraphRange()
    Dim
rngParagraph As Range
    Set
rngParagraph = ActiveDocument.Paragraphs(1).Range
End Sub

得到 Range 對象後，可使用它的任何屬性或方法來修改該 Range
對象。下列樣本選定使用中文件中的第二個段落並將所選內容置中。

Sub FormatRange()
   
ActiveDocument.Paragraphs(2).Range.Select
   
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

若要對同一個 Range 對象應用多種屬性或方法，可使用 With…End With
結構。下列樣本設定使用中文件中第一段的文字格式。

Sub FormatFirstParagraph()
    Dim
rngParagraph As Range
    Set
rngParagraph = ActiveDocument.Paragraphs(1).Range
    With
rngParagraph
       
.Bold = True
       
.ParagraphFormat.Alignment = wdAlignParagraphCenter
       
With .Font
           
.Name = "Stencil"
           
.Size = 15
       
End With
    End
With
End Sub

有關其他資訊和樣本，請參閱 Range 屬性主題。

重新定義 Range 對象
使用 SetRange 方法可重新定義現有的 Range 對象。下面的樣本將一個地區定義為當前的所選內容。然後應用 SetRange
方法以重新定義該地區，使之包含當前所選內容和接下來的 10 個字元。

Sub ExpandRange()
    Dim
rngParagraph As Range
    Set
rngParagraph = Selection.Range
   
rngParagraph.SetRange Start:=rngParagraph.Start, _
       
End:=rngParagraph.End + 10
End Sub

有關其他資訊和樣本，請參閱 Document 的 Range 方法。

  注釋
調試宏時，可以使用 Select 方法確保 Range 對象引用正確的文本地區。例如，下面的樣本選擇一個 Range
對象，該對象引用使用中文件中的第二段和第三段，然後設定所選內容的字型格式。

Sub SelectRange()
    Dim
rngParagraph As Range

    Set
rngParagraph = ActiveDocument.Paragraphs(2).Range

   
rngParagraph.SetRange Start:=rngParagraph.Start, _
       
End:=ActiveDocument.Paragraphs(3).Range.End
   
rngParagraph.Select

   
Selection.Font.Italic = True
End Sub

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

=========================================================================

Word 開發人員參考
WdStoryType 枚舉
指定選定內容或項目的部分類型。
名稱 值 描述
wdCommentsStory 4 批註部分。
wdEndnoteContinuationNoticeStory 17 章節附註延續標記部分。
wdEndnoteContinuationSeparatorStory 16 章節附註延續分隔字元部分。
wdEndnoteSeparatorStory 15 章節附註分隔字元部分。
wdEndnotesStory 3 章節附註部分。
wdEvenPagesFooterStory 8 偶數頁頁尾部分。
wdEvenPagesHeaderStory 6 偶數頁頁首部分。
wdFirstPageFooterStory 11 首頁頁尾部分。
wdFirstPageHeaderStory 10 首頁頁首部分。
wdFootnoteContinuationNoticeStory 14 腳註延續標記部分。
wdFootnoteContinuationSeparatorStory 13 腳註延續分隔字元部分。
wdFootnoteSeparatorStory 12 腳註分隔字元部分。
wdFootnotesStory 2 腳註部分。
wdMainTextStory 1 本文部分。
wdPrimaryFooterStory 9 首頁腳部分。
wdPrimaryHeaderStory 7 首頁眉部分。
wdTextFrameStory 5 文字框架部分。

=========================================================================

Word 開發人員參考
WdUnits 枚舉
指定要使用的度量單位。
名稱 值 描述
wdCell 12 儲存格。
wdCharacter 1 字元。
wdCharacterFormatting 13 字元格式設定。
wdColumn 9 列。
wdItem 16 所選項。
wdLine 5 一個線段。
wdParagraph 4 段落。
wdParagraphFormatting 14 段落格式。
wdRow 10 行。
wdScreen 7 螢幕尺寸。
wdSection 8 一節。
wdSentence 3 句子。
wdStory 6 部分。
wdTable 15 一個表格。
wdWindow 11 視窗。
wdWord 2 字。

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。
=========================================================================

Word 開發人員參考
WdSelectionType 枚舉
指定選擇類型。
名稱 值 描述
wdNoSelection 0 沒有選定內容。
wdSelectionBlock 6 列方式選定。
wdSelectionColumn 4 列選擇。
wdSelectionFrame 3 架構選擇。
wdSelectionInlineShape 7 內嵌形狀選擇。
wdSelectionIP 1 內嵌段落選擇。
wdSelectionNormal 2 標準的或使用者定義的選擇容。
wdSelectionRow 5 行選擇。
wdSelectionShape 8 形狀選擇。

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

=========================================================================

Word 開發人員參考
Selection.Information 屬性
返回有關指定的選定內容的資訊。Variant 類型，唯讀。
文法

運算式.Information(Type)

運算式   必選。一個代表 Selection
對象的變數。

參數

名稱 必選/可選 資料類型 描述
Type 必選 WdInformation 資訊類型。

樣本

本樣本顯示當前頁碼和使用中文件的總頁數。

Visual Basic for Applications
MsgBox "The selection is on page " & _
   
Selection.Information(wdActiveEndPageNumber) & " of
page " _
   
&
Selection.Information(wdNumberOfPagesInDocument)

如果選定內容位於一個表格中，則本樣本選定該表格。

Visual Basic for Applications
If Selection.Information(wdWithInTable) Then _
   
Selection.Tables(1).Select

本樣本顯示一條訊息，表明當前的節號。

Visual Basic for Applications
Selection.Collapse Direction:=wdCollapseStart
MsgBox "The insertion point is in section " &
_
   
Selection.Information(wdActiveEndSectionNumber)

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

======================================================================

Word 開發人員參考
WdInformation 枚舉
指定返回的涉及指定所選內容或地區的資訊的類型。
名稱 值 描述
wdActiveEndAdjustedPageNumber 1
返回頁碼，在該頁中包含指定的所選內容或地區的活動結尾。如果設定一個起始頁碼或進行其他手動調整，則返回經調整的頁碼（與 
wdActiveEndPageNumber 不同）。
wdActiveEndPageNumber 3
返回頁碼，在該頁中包含指定的所選內容或地區的活動結尾。從文檔開頭計數。忽略任何對頁碼的手動調整（與 
wdActiveEndAdjustedPageNumber 不同）。
wdActiveEndSectionNumber 2 返回節號，在該節中包含了指定的所選內容或地區的活動結尾。
wdAtEndOfRowMarker 31 如果指定的所選內容或地區位於表格的行結尾標記處，則該參數返回 True。
wdCapsLock 21 如果 Caps Lock 有效，則該參數返回 True。
wdEndOfRangeColumnNumber 17 返回表格列號，在該表格列中包含指定的所選內容或地區的結尾。
wdEndOfRangeRowNumber 14 返回表格行號，在該表格行中包含指定的所選內容或地區的結尾。
wdFirstCharacterColumnNumber 9
返回指定的所選內容或地區中第一個字元的位置。如果所選內容或地區是摺疊的，則返回緊靠所選內容或地區右側的字元編號（該編號與狀態列中“列”後面的字元列數相同）。

wdFirstCharacterLineNumber 10
返回指定的所選內容或地區中第一個字元的位置。如果所選內容或地區是摺疊的，則返回緊靠所選內容或地區右側的字元編號（該編號與狀態列中“行”後面的字元行數相同）。

wdFrameIsSelected 11 如果所選內容或地區是一個完整的圖文框或文字框，則該參數返回 True。
wdHeaderFooterType 33
返回一個值，該值指示包含了指定所選內容或地區的頁首或頁尾的類型。有關其他資訊，請參閱“註解”部分中的表。
wdHorizontalPositionRelativeToPage 5
返回指定的所選內容或地區的水平位置。該位置是所選內容或地區的左邊緣與頁面的左邊緣之間的距離，以磅為單位（1 磅 = 20 緹，72 磅
= 1 英寸）。如果所選內容或地區未顯示在螢幕上，則該參數返回 -1。
wdHorizontalPositionRelativeToTextBoundary 7
返回指定所選內容或地區相對於周圍最近的本文邊界左邊緣的水平位置，以磅為單位（1 磅 = 20 緹，72 磅 = 1
英寸）。如果所選內容或地區未顯示在螢幕上，則該參數返回 -1。
wdInClipboard 38 有關該常量的資訊，請參閱包含在 Microsoft Office Macintosh Edition
中的語言參考說明。
wdInCommentPane 26 如果指定的所選內容或地區位於註解窗格，則該參數返回 True。
wdInEndnote 36 如果指定的所選內容或地區位於整頁模式的章節附註區內，或者位於普通視圖的章節附註窗格中，則該參數返回
True。
wdInFootnote 35 如果指定的所選內容或地區位於整頁模式的腳註區內，或者位於普通視圖的腳註窗格中，則該參數返回
True。
wdInFootnoteEndnotePane 25
如果指定的所選內容或地區位於普通視圖的腳註或章節附註窗格中，或整頁模式的腳註或章節附註區內，則該參數返回
True。有關詳細資料，請參閱前面關於  wdInFootnote
和  wdInEndnote 的說明。
wdInHeaderFooter 28 如果指定的所選內容或地區位於頁首或頁尾窗格中，或者位於整頁模式的頁首或頁尾中，則該參數返回
True。 
wdInMasterDocument 34 如果所選內容或地區位於主控文件（即至少包含一個子文檔的文檔）中，則該參數返回
True。
wdInWordMail 37 如果指定的所選內容或地區位於頁首或頁尾窗格中，或者位於整頁模式的頁首或頁尾中，則該參數返回
True。
wdMaximumNumberOfColumns 18 返回所選內容或地區中任何行的最大表格列數。
wdMaximumNumberOfRows 15 返回指定的所選內容或地區中表格的最大行數。
wdNumberOfPagesInDocument 4 返回與所選內容或地區相關聯的文檔的頁數。
wdNumLock 22 如果 Num Lock 有效，則該參數返回 True。 
wdOverType 23 如果啟用取代模式，則該參數返回 True。可使用 Overtype 屬性改變取代模式的狀態。
wdReferenceOfType 32
返回一個值，該值表明所選內容相對於腳註、章節附註或批註引用的位置，如“註解”部分中的表所示。
wdRevisionMarking 24 如果開啟修訂功能，則該參數返回 True。
wdSelectionMode 20 返回一個值，該值表明當前的選定模式，如下表所示。
wdStartOfRangeColumnNumber 16 返回表格列號，在該表格列中包含所選內容或地區的起點。
wdStartOfRangeRowNumber 13 返回表格行號，在該表格行中包含所選內容或地區的起點。
wdVerticalPositionRelativeToPage 6
返回所選內容或地區的垂直位置，即所選內容的上邊緣與頁面的上邊緣之間的距離，以磅為單位（1 磅 = 20 緹，72 磅 = 1
英寸）。如果所選內容未顯示在文件視窗中，則該參數返回 -1。
wdVerticalPositionRelativeToTextBoundary 8
返回所選內容或地區相對於周圍最近的本文邊界的上邊緣的垂直位置，以磅為單位（1 磅 = 20 緹，72 磅 = 1
英寸）。該參數可用於在圖文框或表格中確定插入點位置。如果所選內容未顯示在螢幕中，則該參數返回 -1。
wdWithInTable 12 如果所選內容位於表格中，則該參數返回 True。 
wdZoomPercentage 19 返回由  Percentage
屬性設定的當前的放大百分比。

說明

下表列出了 wdHeaderFooterType 的可能值。

值 頁首或頁尾的類型
-1 無（所選內容或地區不在頁首或頁尾中）
0（零） 偶數頁頁首
1 奇數頁頁首（或在不區分奇數和偶數頁時的頁首）
2 偶數頁頁尾
3 奇數頁頁尾（或在不區分奇數和偶數頁時的頁尾）
4 第一個頁首
5 第一個頁尾

下表列出了 wdReferenceOfType 的可能值。

值 說明
-1 所選內容或地區包含但不限於腳註、章節附註或批註引用。
0（零） 所選內容或地區不在腳註、章節附註或批註引用之前。
1 所選內容或地區位於腳註引用之前。
2 所選內容或地區位於章節附註引用之前。
3 所選內容或地區位於批註引用之前。

下表列出了 wdSelectionMode 的可能值。

值 選定模式
0（零） 常規選定模式
1 擴充選定模式(“擴充”出現在狀態列上)
2 列選擇模式（“列”出現在狀態列上)

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。

======================================================================

Word 開發人員參考
選定文檔中的文本

使用 Select 方法可以選擇文檔中的對象。Select 方法可用於多個對象，例如 Bookmark、Field、Range
和 Table。下面的樣本選定使用中文件中的第一個表格。

Sub SelectTable()
   
ActiveDocument.Tables(1).Select
End Sub

下面的樣本選定使用中文件中的第一個域。

Sub SelectField()
   
ActiveDocument.Fields(1).Select
End Sub

下面的樣本選定使用中文件中的前四個段落。Range 方法用於建立一個引用前四個段落的 Range 對象，然後將 Select
方法應用於 Range 對象。

Sub SelectRange()
    Dim
rngParagraphs As Range
    Set
rngParagraphs = ActiveDocument.Range( _
       
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
       
End:=ActiveDocument.Paragraphs(4).Range.End)
   
rngParagraphs.Select
End Sub

有關詳細資料，請參閱處理 Selection 對象。

? 2006 Microsoft Corporation。著作權所有，並保留一切權利。