Тема: Как узнать равна ли последняя строка 2 страницы документа знаку Enter
Добрый день!
Вопрос в теме. И еще вопрос: как поставить знак Enter в конце 2 страницы документа в начале абзаца?
- viter.alex
- Модератор
- Неактивен
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Лучше день потерять — потом за пять минут долететь!
Re: Как узнать равна ли последняя строка 2 страницы документа знаку Enter
Спасибо, viter.alex
