Узнать о наличии символов на конкретной странице - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы