Когда Selection.Find.Execute нашёл последнее слово, он перемещает курсор в начало текста. Как отловить этот момент? Или проще - как узнать, что курсор находится в начале текста?
Чтобы узнать, что курсор находится в начале текста (я имею ввиду в начале документа) нужно проверить значение его свойства Start. Если курсор в начале текста, то Selection.Start = 0. А если в конце, то Selection.End = Selection.Document.Range.End
Лучше день потерять — потом за пять минут долететь!