Word宏查找当前页面的最后一行

Question

在使用宏的MS Word中，我想找到当前页面的最后一行并添加一个＆＃34;分页符＆＃34;。虽然这应该很容易，但我无法找到当前页面最后一行的脚本。

Sub LastLineInsert()
    Selection-end       'is supposed to work to find last line
    Selection.InsertBreak Type:=wdPageBreak
EndSub

Answer 1

最简单的方法可能是使用Selection.GoToNext（wdGoToPage）然后备份一个字符。所以：

Selection.GoToNext(wdGoToPage)
Selection.MoveEnd wdCharacter, -1
Selection.InsertBreak

请注意，在Word已经进行分页操作的情况下执行此操作可能会导致添加空白页。如果你试图循环，请注意这一点。