實(shí)例需求：Word文檔中的有多個(gè)段落，段落總數(shù)量不確定，現(xiàn)在需要先選中所有基數(shù)段落，即：段落1，段落3 … ，然后一次性設(shè)置粗體格式。

也許有的讀者會(huì)認(rèn)為這個(gè)無厘頭的需求，循環(huán)遍歷遍歷文檔中的段落，設(shè)置奇數(shù)段落的格式就可以了，確實(shí)如此，這是常規(guī)實(shí)現(xiàn)思路。

但是存在的即是合理的，借助Editor對(duì)象，可以完美實(shí)現(xiàn)這個(gè)需求。

示例代碼如下。

Sub SelectMultiParagrpah()Dim i As Long, iCnt As Long, oDoc As RangeWith Selection.HomeKey Unit:=wdStory, Extend:=wdMoveiCnt = ActiveDocument.Paragraphs.CountFor i = 1 To iCnt Step 2.Expand wdParagraph .Editors.Add Word.WdEditorType.wdEditorCurrent .Move wdParagraph, 2 Next iEnd WithSet oDoc = ActiveDocument.ContentWith oDoc.GoToEditableRange(wdEditorCurrent).Editors(1).SelectAll .DeleteAll  End WithSelection.Font.Bold = True
End Sub

【代碼解析】
第4行代碼將Selection對(duì)象移至文檔起始位置。
第5行代碼獲取文檔的段落數(shù)量。
第6~10行代碼循環(huán)選中奇數(shù)段落。
第7行代碼選中當(dāng)前段落，即擴(kuò)展選區(qū)范圍。
第8行代碼添加當(dāng)前用戶的可編輯區(qū)域。
第9行代碼將Selection移動(dòng)到下一個(gè)目標(biāo)段落起始位置。
第12行代碼獲取文檔全部內(nèi)容。
第14行代碼選中全部可以編輯范圍。
第15行代碼刪除當(dāng)前用戶的編輯權(quán)限設(shè)置。
第17行代碼設(shè)置選中段落的字體為粗體格式。