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

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

Измените прямые кавычки на фигурные с помощью функции "Найти и заменить"

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

Измените прямые кавычки на фигурные с помощью функции "Найти и заменить"

Вкладка Office: предоставляет интерфейсы с вкладками в Word, Excel, PowerPoint...

Улучшите свой рабочий процесс прямо сейчас.      Узнать больше       Бесплатная загрузка

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

В Word 2003 Параметры автокоррекции находится под Инструмент бар. А в Word 2007 применяя Параметры автокоррекции кликнув  > Опции > теплоизолирующие > Параметры автокоррекции. В качестве примера возьмем Word 2010/2013:

Шаг 1. Нажмите  > Опция > теплоизолирующие > Параметры автокоррекции > Автоформат при вводеИ выберите «Прямые цитаты» с «умными цитатами» флажок. Смотрите скриншот ：

Шаг 2. Нажмите Главная > Замените в Редактирование группа или пресс Ctrl + H для отображения Найти и заменить диалоговое окно и введите "or '' in Найти то, что поле и введите " or ''in Заменить коробка. Смотрите скриншот:

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

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

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

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

Шаг 1. Нажмите "Alt-F11», Чтобы открыть окно Microsoft Visual Basic для приложения;

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

Шаг 3: Затем нажмите Run кнопку, чтобы применить 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

Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

➕ Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

⭐ Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀

Бесплатная загрузка     Узнать больше     Купить