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

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

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

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

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

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

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

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

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

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

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

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

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

Чтобы заменить все прямые кавычки фигурными в 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 Особенности: Создать контент / Переписать текст / Документ: вопросы и ответы / Получите быстрые ответы / Перевести документы / Польский документ (сохранить формат)...

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

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

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

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

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

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

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

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

 

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

Kutools for Word - 100+ инструментов для Word

• 🤖 Kutools AI Особенности: Создайте , Перезапись, Суммировать, Переведите Документы / Получите быстрые ответы / Польский документ (сохранить формат)
• 📘 Владение документами: Разделить страницы / Объединить документы / Пакетное преобразование в PDF
• ✏ Редактирование содержания: Пакетный поиск и замена / Изменить размер всех изображений
• 🧹 Легкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
• ➕ Креативные вставки: Вставить разделители тысяч / Вставьте флажки / Создание QR-кодов

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