Тема: Как узнать равна ли последняя строка 2 страницы документа знаку Enter
Добрый день!
Вопрос в теме. И еще вопрос: как поставить знак Enter в конце 2 страницы документа в начале абзаца?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форум Microsoft Word » Автоматизация » Как узнать равна ли последняя строка 2 страницы документа знаку Enter
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день!
Вопрос в теме. И еще вопрос: как поставить знак Enter в конце 2 страницы документа в начале абзаца?
Вот так:
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
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум Microsoft Word » Автоматизация » Как узнать равна ли последняя строка 2 страницы документа знаку Enter