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 уже сделал разрыв страницы, может привести к добавлению пустой страницы. Будьте осторожны, если вы пытаетесь петли.