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