Подстановка

Автор Посетитель, 07 сентября 2023, 12:08

Посетитель

Подскажите, пожалуйста, как сделать, чтобы в тексте после выражений типа ", инв. №АФ22-125/2021" ставилась запятая?
Буквы и цифры разные, но их количество и расположение одно и то же.
Запятая в начале и "инв." везде одни и те же, они нужны, чтобы выбирались выражения только с ними.

Администратор

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Sub Макрос()

    With ActiveDocument.Range.Find
        .Text = ", инв. №^?^?^?^?^?^?^?^?^?^?^?^?^?^?"
        .Replacement.Text = "^&,"
        .MatchSuffix = True
        .Execute Replace:=wdReplaceAll
    End With

End Sub

Посетитель

Ок, гляну. Спасибо!