1 Тема от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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

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

2 Ответ от viter.alex

  • Как узнать равна ли последняя строка 2 страницы документа знаку Enter
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

Вот так:

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
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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

Спасибо, viter.alex