Форум по VBA, Excel и Word

Нужно удалить знак табуляции перед первым словом каждой строки и до конца всего документа, начиная с шестого абзаца.
   

Спойлер

If ActiveDocument.Paragraphs(6).Range.Characters(1).Text = Chr(9) Then
        ActiveDocument.Paragraphs(6).Range.Characters(1).Delete
    End If

[свернуть]

Можно попробовать удалить табуляцию с помощью объекта "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

[свернуть]

Спассибо большое, все отлично работает.