word VBA 如何在第一页插入分页符。

Question

如题。
Selection.GoTo 1, 1, 1
Selection.Move 1, Selection.Bookmarks("\Page").Range.Characters.Count - 1
基本上能达到要求。

有没有更好的办法定位某页最后一个位置？
另外一个问题：VBA 有没有整页复制的方法？先获取整页文字再写入新页的办法我懂了，有没有更直接的？

Answer 1

添加语句：
Selection.InsertBreak Type:=wdPageBreak
你也可以通过手动插入分页符，录制宏来获取这个语句。
这也是个不错的学习方法。

Answer 2

插入-符号-分隔符-分页符追问

需要VBA 。
现在的问题是如何定位第一页的末尾。
看我提问补充，我用这种方法基本上达到要求。看还有没有跟合适的办法？

追答

录制宏

追问

没用的，至少我录不出来，录制宏录的都是按行，并看不到定位的是页末。

追答

Sub 宏1()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
Selection.MoveLeft
Selection.InsertBreak Type:=wdPageBreak
End Sub

追问

不好意思，可能我没说清楚。
我需要每次在第一页后面插入新页，对顺序是有要求的。
新页在前面，旧页在后面。即最先插入的页最终排在最后一页，最后插入的页最终排在第二页，第一页不动。

本回答被提问者采纳