Word Macro查找當前頁面的最後一行

Question

在使用宏的MS Word中，我想查找當前頁面的最後一行並添加一個「分頁符」。雖然這應該很容易，但我無法找到當前頁面最後一行的腳本。

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已經創建分頁符的情況下執行此操作可能會導致添加空白頁。如果你想循環，請注意這一點。