Как узнать равна ли последняя строка 2 страницы документа знаку Enter

[Jaroslav]

Добрый день!
Вопрос в теме. И еще вопрос: как поставить знак Enter в конце 2 страницы документа в начале абзаца?

[viter.alex]

Вот так:

Sub test()
  With Selection
    'Переход на вторую страницу
    .GoTo wdGoToPage, wdGoToAbsolute, 2
    'Переход в самый конец (к последнему символу) текущей страницы
    .SetRange .Bookmarks("\page").Range.End, _
              .Bookmarks("\page").Range.End
    If Len(.Paragraphs.First.Range.Text) = 1 Then
      MsgBox "Последняя строка на второй странице содержит только символ абзаца"
    End If
  End With
End Sub

Для ответа на второй вопрос нужно заменить блок If…Then на

.Paragraphs.First.Range.InsertParagraphBefore