Автор Тема: Как удалить знак табуляции перед первым словом от 6 абзаца и до конца документа  (Прочитано 33 раз)

Оффлайн Посетитель 24.09.2022

  • Посетитель форума
  • Сообщений: 3
Нужно удалить знак табуляции перед первым словом каждой строки и до конца всего документа, начиная с шестого абзаца.
   
Спойлер
If ActiveDocument.Paragraphs(6).Range.Characters(1).Text = Chr(9) Then
        ActiveDocument.Paragraphs(6).Range.Characters(1).Delete
    End If

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Можно попробовать удалить табуляцию с помощью объекта "Find". Но может быть проблема: оформление текста может измениться.
В коде указывается абзац 5; так и задумано, это не ошибка. Т.к. макрос ищет сочетание: знак абзаца + табуляция. Это означает: поиск табуляции в начале абзаца.

Макрос
Sub Макрос()
   
    Dim Rng As Range
   
    Set Rng = ActiveDocument.Paragraphs(5).Range
    Rng.End = ActiveDocument.Range.End
    With Rng.Find
        .Text = "^p^t"
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

Оффлайн Посетитель 24.09.2022

  • Посетитель форума
  • Сообщений: 3
Спассибо большое, все отлично работает.