Sub changeQuote()
'Замена прямых кавычек на парные кавычки (елочки)
Dim blnQuotes As Boolean
'запомнить пользовательскую установку
blnQuotes = Options.AutoFormatAsYouTypeReplaceQuotes
Options.AutoFormatAsYouTypeReplaceQuotes = False
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = """(*)"""
   .Replacement.Text = "«\1»"
   .Forward = True
   .Wrap = wdFindContinue
   .MatchWildcards = True
   .Execute Replace:=wdReplaceAll
End With
'восстановить пользовательскую установку
Options.AutoFormatAsYouTypeReplaceQuotes = blnQuotes
End Sub

blnQuotes = WORDApp.Options.AutoFormatAsYouTypeReplaceQuotes
WORDApp.Options.AutoFormatAsYouTypeReplaceQuotes = .F.

#DEFINE wrdMatchCase .F.
#DEFINE wrdMatchWholeWord .T.
#DEFINE wrdMatchWildcards .T.
#DEFINE wrdMatchSoundsLike .F.
#DEFINE wrdMatchAllWordForms .F.
#DEFINE wrdForward .T.
#DEFINE wrdWrap .F.
#DEFINE wrdFormat .F.
#DEFINE wrdReplaceAll 2 

WORDApp.Selection.Find.Execute('"""(*)"""', wrdMatchCase, wrdMatchWholeWord, wrdMatchWildcards, wrdMatchSoundsLike, wrdMatchAllWordForms, ;
            wrdForward, wrdWrap, wrdFormat, "«\1»", wrdReplaceAll)

*!*   With WORDApp.Selection.Find
*!*      .ClearFormatting
*!*      .Replacement.ClearFormatting
*!*      .Forward = True
*!*      .Wrap = wdFindContinue

*!*   End With
WORDApp.Options.AutoFormatAsYouTypeReplaceQuotes = blnQuotes