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

Как заменить в выделенном фрагменте знаки табуляции на пробелы?

Sub Макрос()
   
    With Selection.Range.Find
        .Text = "^t"
        .Replacement.Text = " "
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With

End Sub

Спасибо! Класс, все работает без проблем!!!