供應(yīng)長沙手機(jī)網(wǎng)站建設(shè)天津關(guān)鍵詞排名推廣
實(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è)置選中段落的字體為粗體格式。