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

Word => Макросы в Word => Тема начата: Посетитель от 28 сентября 2021, 17:13

Название: Word VBA Макросы. Как заменить сочетания пробелов и точек на табуляцию?
Отправлено: Посетитель от 28 сентября 2021, 17:13
В тексте есть содержание, в котором точки проставлены вручную. Причем между точек есть пробелы.
Нужно заменить все сочетания пробелов и точек на один символ табуляции.
Название: Re: Word VBA Макросы. Как заменить сочетания пробелов и точек на табуляцию?
Отправлено: Администратор от 28 сентября 2021, 17:14
Макрос
Sub Макрос()
   
    With Selection.Range.Find
        .Text = "( .){1;}"
        .Replacement.Text = "^t"
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub
[свернуть]
Название: Re: Word VBA Макросы. Как заменить сочетания пробелов и точек на табуляцию?
Отправлено: Посетитель от 28 сентября 2021, 17:16
Спасибо.