Word замена нескольких символов - VB

Формулировка задачи:

Здравствуйте, специалистом по VB не являюсь, прошу помочь. Столкнулся на одном форуме с проблемой - при публикации программного питоновского кода, сочетания символов
:(
')
'D
:P
превращаются в смайлы. Отключение BB кода убирает цветовую разметку кода, что не есть хорошо.
Написал пробный макрос в ворде, который отключает BB код только на конкретном сочетании символов при помощи тэга nobbc:

Sub ReplaceSmiles()
'
' ReplaceSmiles Макрос
'
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "('D?)"
        .Replacement.Text = "[nobbc]\1[/nobbc]"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "('[)])"
        .Replacement.Text = "[nobbc]\1[/nobbc]"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Вопрос - можно ли упростить код, чтобы сразу все символы менял на [nobbc]\1[/nobbc] (где \1 - подстановочные знаки, искомый текст)

Решение задачи: «Word замена нескольких символов»

textual
                            Листинг программы 
                        
                            For i = 0 To UBound(test)