Поддерживает ли VBA регулярные выражения?

[Sasha_Smirnov]

Компьтеру — легко. Голову же поломать придётся. Дома буду — попробую.

А вообще почему вы обратились к «конкурирующим» средам? Разве важно — на чём?

[Suppir]

Раньше я пользовался только Perl, потому что приходилось обрабатывать досовский текст (поиск ошибок в БД, автоформатирование текста). А теперь нужно обрабатывать файлы в формате doc с вордовскими таблицами. Поэтому взялся за word и vba.

[Sasha_Smirnov]

Option Compare Text
Dim NextRun As Boolean

Sub SamplofTempl()

    With Selection.Find
        .Text = "([A-ZА-Я].)([A-ZА-Я])"
        .Replacement.Text = "\1 \2"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
        
        .Text = "([A-ZА-Я][a-zа-я]{1;2}.)([A-ZА-Я])"
        .Execute Replace:=wdReplaceAll
        
    End With
    
If Not NextRun Then MsgBox "Изменение и сброс опций поиска по Ctrl-h."
NextRun = True

End Sub

Срабатывает со второго раза.

[Sasha_Smirnov]

Sub SampleOfTemple()
    Selection.HomeKey wdStory                       'курсор - в начало документа'

    With Selection.Find
    
    .Text = "([A-ZА-Я].)([A-ZА-Я])"
            .Replacement.Text = "\1 \2"         'к точке между инициалами добавили 1 пробел (если не было)'
            .MatchWildcards = True
            
            .Execute Replace:=wdReplaceAll      'в окне по Ctrl-h соответствует «Заменить все»'
            .Execute Replace:=wdReplaceAll      'второй раз - для оставшихся неотделёнными после 1-го'
        
    .Text = "([A-ZА-Я][a-zа-я]{1;2}.)([A-ZА-Я])"
        
            .Execute Replace:=wdReplaceAll
        
    End With
    
    If Not NextRun Then MsgBox "Изменение и сброс опций поиска — см. по Ctrl-h."
    NextRun = True
End Sub

[Suppir]

Попробую ваш макрос

[Sasha_Smirnov]

У Егора из Волгограда эта тема освещена наиболее ярко!

http://devprog.wordpress.com/2008/10/

[WordVest]

Вообще поисковик Word, по крайней мере начиная с 2003 очень гибок, при использовании флажка «Подстановочные знаки» можно находить и заменять разные комбинации букв и цифр, но и использовать специальные теги для составления формулы поиска, а при использовании VBA писать макросы специфичные для того или иного назначения...

[Sasha_Smirnov]

И вот, 03.09.2011, ещё на эту тему*: http://programmersforum.ru/showthread.php?t=164709
_______________________
* не считая таблицы похожих тем внизу любой темы (о чём я регулярно забываю)

[Ципихович Эндрю]

Сообщение от Sasha_Smirnov

Да... А на днях я здесь узнал про VB .NET. (Видимо, это бэйсик для инета?..)

То, что вы перечислили, впечатляет. Но всё же VBA (оператор Like и подстановки в нём) может многое.

не по теме, что Вы там узнали???
перечитал, только пост # 4
разница есть: VB .NET - намного больше возможностей без особых затрат
кстати есть ссылка на русифицированный нет, хочу познакомиться

[Sasha_Smirnov]

Просто узнал, что вот есть такая разновидность бэйсика.

Про .NET ещё в прошлом веке читал — в «Компьютерре».