Я согласен с @rich, что это технически невозможно, так как это зависит от настроек документа для полей, размеров шрифта и т.д. И будет различным на разных компьютерах.
Однако, если это не имеет значения для вас, вы можете попробовать что-то решить с помощью макроса.
Обратите внимание, что вам придется изучить каждую строку (здесь не рассматривается) до конца документа.
А также с осторожностью выделяйте только знаки препинания и повторяющиеся шаги для одной строки, если это необходимо.
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
' here check for word - make sure to remove punctuation as needed
' continue to next line and repeat
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
' here check for word - make sure to remove punctuation as needed
' you will have to MoveLeft again if you did select punctuation