如何在文檔上插入分頁符?【分享成果，随喜正能量】根本沒有那條“更好的路”，隻有一條路，就是你選擇的那條路關鍵是，你要勇敢地走上去，而且要堅持走下去，我來為大家科普一下關于如何在文檔上插入分頁符?下面希望有你要的答案，我們一起來看看吧!

如何在文檔上插入分頁符

【分享成果，随喜正能量】根本沒有那條“更好的路”，隻有一條路，就是你選擇的那條路。關鍵是，你要勇敢地走上去，而且要堅持走下去。。

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容第六章 “Word中的Range對象（下）”第4節：在文檔中插入分頁符及位置的擴展

大家好，我們這講繼續Range對象方法的講解，在上一講中我們講解了Range對象的SetRange 方法、PasteAndFormat方法、PasteSpecial 方法，這節我們将講解Select方法、GoTo方法、Expand 方法。

此方法選擇指定的範圍。

語法：expression.Select

其中expression 是必需的，是一個代表Range對象的變量

此方法返回一個 Range 對象，該對象表示指定的item，如頁、書簽或字段的起始位置。

語法：expression. GoTo(What,Which,Count,Name)

其中expression 是必需的，是一個代表Range對象的變量

參數：

1）What 可選 Variant 範圍要移動到的項的類型。 可以是wdGoToItem常量之一。

2）Which 可選 Variant 範圍要移動到的項。 可以是**wdGoToDirection** 常量之一。

3）Count 可選 Variant 在文檔中的項的數目。 默認值為 1。 隻有正值是有效的。 要指定之前範圍的項，請使用 wdGoToPrevious 作為其參數并指定計數值。

4）Name 可選 Variant 如果哪些參數是wdGoToBookmark、wdGoToComment、 wdGoToField或wdGoToObject ，則此參數指定一個名稱。 隻有正值是有效的。 要指定之前範圍的項，請使用 wdGoToPrevious 作為其參數并指定計數值。

擴展指定的區域或所選内容。返回添至該區域或所選内容的字符數.

語法：expression. Expand(Unit)

其中expression 是必需的，是一個代表Range對象的變量

參數：

1）Unit 可選 Variant 度量單位以展開該區域。 可以是下列的移常量之一: wdCharacter、wdWord、wdSentence、wdParagraph、wdSection、wdStory、wdCell wdColumn、 wdRow或wdTable.

WdGoToItem 常量枚舉值：

wdGoToBookmark -1 書簽bookmark.

wdGoToComment 6 批注 comment.

wdGoToEndnote 5 尾注endnote.

wdGoToEquation 10 公式equation.

wdGoToField 7 域 field.

wdGoToFootnote 4 腳注 footnote.

wdGoToGrammaticalError 14 語法錯誤grammatical error.

wdGoToGraphic 8 圖形graphic.

wdGoToHeading 11 标題 heading.

wdGoToLine 3 線段 line.

wdGoToObject 9 對象 object.

wdGoToPage 1 頁 page.

wdGoToPercent 12 百分比 percent.

wdGoToProofreadingError 15 校對錯誤proofreading error.

wdGoToSection 0 節 section.

wdGoToSpellingError 13 拼寫錯誤 spelling error.

wdGoToTable 2 表格table.

WdGoToDirection 常量枚舉值：

wdGoToAbsolute 1 絕對位置.

wdGoToFirst 1 所指定對象的第一個實例.

wdGoToLast -1 所指定對象的最後一個實例

wdGoToNext 2 所指定對象的下一個實例

wdGoToPrevious 3 所指定對象的上一個實例。

wdGoToRelative 2 相對于當前位置的位置

我們下面就一個實例來講解一下本節方法的應用。這講的實例中：首先選擇活動文檔的的第二段作為基礎，然後在活動文檔倒數第二段之後插入一個分頁符,分頁。并将光标轉到第二頁開始，擴展到整個段落。我們看代碼：

Sub mynzC()

Set myRange = ActiveDocument.Paragraphs(2).Range

myRange.Select

MsgBox myRange.Text

'活動文檔倒數第二段之後插入一個分頁符,也就是将最後一段分頁

With myRange

.Collapse Direction:=wdCollapseEnd

.InsertBreak Type:=wdPageBreak

End With

'将光标轉到第二頁開始

myRange.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2

myRange.Select

'将myRange範圍擴展到第二頁光标所在的整個段落

'myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End

myRange.Expand Unit:=wdParagraph

myRange.Select

MsgBox myRange.Text

End Sub

代碼截圖：

代碼解讀：

這裡隻給大家講解一下将myRange範圍擴展到第二頁光标所在的整個段落的方法，這裡給出了兩種代碼：

其一：myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End

這句代碼利用的是SetRange擴展調整開始和結束的位置。

還有一種方案是直接擴展：myRange.Expand Unit:=wdParagraph

以上兩種方案都是可以的。

代碼的運行效果：

今日内容回向：

1 Word中Range對象的Select方法、GoTo方法、Expand 方法的意義是什麼？

2 如何利用VBA移動及擴展某區域？

本講内容參考程序文件：Doc 006文檔.docm

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

【分享成果，随喜正能量】做事，就兩個字：堅持，多堅持一會，多忍耐一次，也許就會有意外的驚喜。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!