下面我將利用一段代碼作為實例。這段代碼中,將在活動文檔中的各段前面分別插入一個表示段落的數(shù)字和一個制表符,這是利用Next方法。然后利用Previous方法,再在各段前面插入一個表示段落的數(shù)值。我們先看下面的代碼: Sub mynzF() '在活動文檔中的各段前面分別插入一個表示段落的數(shù)字和一個制表符。 For n = 0 To ActiveDocument.Paragraphs.Count - 1 Set myRange = ActiveDocument.Paragraphs(1).Next(Count:=n).Range myRange.Select myRange.Collapse Direction:=wdCollapseStart myRange.InsertAfter n + 1 & vbTab Next '在活動文檔中的各段前面插入一個表示段落的數(shù)字 For n = ActiveDocument.Paragraphs.Count - 1 To 0 Step -1 If n = 0 Then Selection.InsertBefore n + 1 Else Selection.Previous(Unit:=wdParagraph, Count:=1).Select Selection.InsertAfter n + 1 End If NextEnd Sub 代碼截圖: 代碼解讀:(略) 代碼的運行,上述代碼運行后: 今日內(nèi)容回向: 1 段落對象的Next方法及Previous方法意義是什么? 2 如何利用上述方法設置文檔的段落?本講內(nèi)容參考程序文件:Doc 004文檔.docm 我20多年的VBA實踐經(jīng)驗,全部濃縮在下面的各個教程中: