макрос для замены кавычек

[Sasha_Smirnov]

Или вот. С кодами (десятеричными).

Sub Русские_кавычки_на_нерусские()
Dim ЗаменаВкл As Boolean
'отключаем в окне Автозамена опцию замены кавычек при вводе - если включена'
With Options
ЗаменаВкл = .AutoFormatAsYouTypeReplaceQuotes 'запоминаем текущую настройку'
If .AutoFormatAsYouTypeReplaceQuotes Then .AutoFormatAsYouTypeReplaceQuotes = False
End With

With Selection.Find
.Text = Chr(171)                'ищем откр. ёлочки (код 171)
.Replacement.Text = Chr(147)    'заменяем на откр. лапки (код 0147)

.Execute Replace:=wdReplaceAll  'замена всех

.Text = Chr(187)                'ищем закр. ёлочки (код 187)
.Replacement.Text = Chr(148)    'заменяем на закр. лапки (код 0148)

.Execute Replace:=wdReplaceAll
End With

Options.AutoFormatAsYouTypeReplaceQuotes = ЗаменаВкл 'ставим на место настройку пользователя
'здесь можно по Ctrl-h посмотреть, что именно меняла посдедняя замена'
End Sub

Я ж не знал, что пишу непонятно...