Узнать о наличии символов на конкретной странице - VBA
Формулировка задачи:
Добрый день, Господа!
Пытаюсь сделать правило при печати. Периодически бывает, что в файле бывает 2 страницы, но на второй лишь параграфы/абзацы и никакой инфы... То есть мусор. Хотелось бы программно удалить. Каким методом можно узнать о наличии символов\цифр, только на второй странице и если таких нет, удалить ее?
Спасибо, всем!
Решение задачи: «Узнать о наличии символов на конкретной странице»
textual
Листинг программы
Sub Удаление_пустых_абзацев_на_2стр() Dim S, PagesCount&, Ra As Range PagesCount = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) If PagesCount = 1 Then Exit Sub Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2 If PagesCount = 2 Then Selection.End = ActiveDocument.Range.End Else Set Ra = ActiveDocument.Range Ra.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3 Selection.End = Ra.Start - 1 End If S = Selection.Text S = Replace(S, vbCr, "") S = Replace(S, vbLf, "") S = Replace(S, vbTab, "") S = Replace(S, " ", "") If Len(S) = 0 Then Selection.Delete End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д