VBA: найти и заменить текст

Question

В моем документе Word есть несколько экземпляров ABC, но только один из ABC123.

Моя задача - найти один экземпляр ABC123 и скопировать его в отдельный текстовый документ. Поскольку есть тысячи документов, которые мне нужно будет перебрать, я хотел бы сделать макрос, чтобы облегчить часть боли.

Обратите внимание, что ABC остается постоянным, но числа, представленные выше 123, всегда меняются.

В нынешнем виде макрос, который я попытался собрать, способен найти только все экземпляры текста, начинающиеся с ABC. Есть ли "Если", я мог бы добавить к коду, который мог бы найти экземпляр ABC, который заканчивается числом?

Большое спасибо заранее!

Answer 1

Вы можете использовать этот поисковый термин, чтобы найти ABC за которым следуют 3 цифры:

   ABC^#^#^#

Или, если вы не знаете, сколько будет цифр, вы можете использовать этот поиск по шаблону, который найдет ABC за которым следуют 1-10 цифр:

  With Selection.Find
    .MatchWildcards
    .Text = "ABC[0-9]{1,10}"
    .Execute
  End With