ActiveDocument.Paragraphs(1).Range.Move
Листинг 1.60.
Закрыть окно