Перейти до основного матеріалу

Як змінити прямі лапки на фігурні в слові?

Зазвичай Microsoft Word автоматично змінює прямі лапки до фігурних (розумних ортипографських) цитат під час набору тексту. Але якщо функцію вимкнено, як одинарні, так і подвійні лапки можуть з’являтися прямо у вашому документі. Ось поради, як у Word змінити прямі лапки на фігурні та навпаки.

Перетворюйте прямі лапки на фігурні лапки за допомогою функції Знайти та Замінити

Змінюйте прямі лапки на фігурні з VBA

Рекомендовані засоби підвищення продуктивності для Word

Kutools для Word: Інтеграція ШІ 🤖, понад 100 розширених функцій заощаджують 50% часу обробки документів.Безкоштовне завантаження

Вкладка Office: представлено вкладки, подібні до браузера, у Word (та інших інструментах Office), що спрощує навігацію між кількома документами.Безкоштовне завантаження


стрілка синя права міхур Змінюйте прямі лапки на фігурні лапки за допомогою функції Знайти та Замінити

Вкладка Office: надає інтерфейси вкладок у Word, Excel, PowerPoint...
слово середнє оголошення 100
Покращте свій робочий процес зараз.      Детальніше       Безкоштовне завантаження

Перед поданням заявки Знайти і замінити, вам слід піти на Параметри автоматичного виправлення зняти прапорець "Прямі котирування" зі "розумними котируваннями" прапорець

У програмі 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: клацніть Модулі на Insert , скопіюйте та вставте наступний код 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

Найкращі інструменти продуктивності офісу

Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

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

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення...

👉 Хочете спробувати ці функції? Kutools для Word пропонує a 60-денна безкоштовна пробна версія, без обмежень! ????
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
This comment was minimized by the moderator on the site
My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
This comment was minimized by the moderator on the site
This is my problem too. Did you ever find an answer?
This comment was minimized by the moderator on the site
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
This comment was minimized by the moderator on the site
I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations