Как заменить прямые кавычки на фигурные в Word?

Обычно Microsoft Word автоматически заменяет прямые кавычки на фигурные («умные» или типографские) кавычки по мере набора текста. Однако если эта функция отключена, одинарные и двойные кавычки в вашем документе могут отображаться как прямые. Ниже — советы, как заменить прямые кавычки на фигурные и наоборот в Word.

Замена прямых кавычек на фигурные с помощью Поиск и замена

Замена прямых кавычек на фигурные с помощью VBA

---

Замена прямых кавычек на фигурные с помощью Поиск и замена

Перед применением Поиск и замена необходимо перейти в раздел Параметры автозамены и снять флажок с параметра «Прямые кавычки» на «умные кавычки».

Шаг 1. Щелкните Файл > Параметры > Проверка > Параметры автозамены > Автоматическое форматирование при вводе и установите флажок напротив параметра «Прямые кавычки» на «умные кавычки». См. снимок экрана

Шаг 2. Щелкните Главная > Заменить в группе Редактирование или нажмите Ctrl + H, чтобы открыть диалоговое окно Поиск и замена. Затем введите ‘ или ‘’ в поле Найти и введите ‘ или ’’ в поле Заменить на. См. снимок экрана:

Шаг 3. Нажмите кнопку Заменить все.

Примечание: если вы хотите заменить все фигурные кавычки на прямые, снимите флажок с параметра «Прямые кавычки» на «умные кавычки» (флажок).

---

Замена прямых кавычек на фигурные с помощью VBA

Чтобы заменить все прямые кавычки на фигурные в Word 2010 с помощью VBA, сначала щелкните Файл > Параметры > Проверка, нажмите Параметры автозамены и установите флажок напротив пункта «Прямые кавычки» на «умные кавычки»следующим образом. ()Примечание: если вы хотите заменить все фигурные кавычки на прямые, снимите флажок с пункта «Прямые кавычки» на «умные кавычки».)

Шаг 1: нажмите «Alt-F11», чтобы открыть окно Microsoft Visual Basic для приложений;

Шаг 2: щелкните Модульна вкладке Вставкаи скопируйте приведенный ниже код VBA в окно Модуль;

Шаг 3: затем нажмите кнопку Выполнить, чтобы применить код VBA.

Приведенный ниже код VBA предназначен для замены прямых кавычек на фигурные:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Приведенный ниже код VBA предназначен для замены фигурных кавычек на прямые:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

---