Форум по VBA и MS Office

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

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

[свернуть]

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