Для використання доступна велика кількість різних лапок. Якщо у вашому документі застосовані прямі лапки, а ви хочете їх замінити на парні, та ще й автоматично, то продовжуйте читати повну новину.
Потреба в такій заміні іноді виникає в документах, які містять різні типи лапок. Така ситуація може виникати внаслідок створення одного документа із декількох різних.
І так, будемо змінювати "" на «».
Для цього нам потрібний макрос. Зверніть увагу на те, що макрос буде працювати лише із вище показаними лапками. Якщо ви його застосуєте до інших типів лапок, то просто нічого не відбудеться, документ залишиться таким же.
За замовчуванням у Microsoft Office Word увімкнена заміна прямих лапок на парні. Щоб перевірити даний параметр потрібно відкрити «Файл → Параметры → Правописание → Параметры автозамены... → Автоформат при вводе → "прямые" кавычки «парными» (напроти останнього має стояти прапорець, тоді при наборі у вас будуть парні лапки).
Для автоматичної заміни прямих лапок на парні використаємо наступний макрос (джерело: wordexpert.ru):
Sub changeQuote()
'Замена прямых кавычек на парные кавычки (елочки)
Dim blnQuotes As Boolean
'запомнить пользовательскую установку
blnQuotes = Options.AutoFormatAsYouTypeReplaceQuotes
Options.AutoFormatAsYouTypeReplaceQuotes = False
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = """(*)"""
.Replacement.Text = "«\1»"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
'восстановить пользовательскую установку
Options.AutoFormatAsYouTypeReplaceQuotes = blnQuotes
End Sub
Алгоритм додавання та використання макроса:
1. Копіюємо код макроса, який можна бачити вище.
2. Ідемо у «Вид → Макросы → Макросы».
3. У вікні, яке відкрилося потрібно ввести у поле «Имя:», ім’я макросу, воно не повинне мати пробілів та не повинне починатися цифрами. Після того як придумали ім’я (я використав однойменне із макроса: changeQuote) можна натискати на кнопку «Создать».
4. Відкриється вікно візуального редактора Microsoft Visual Basic. Далі увесь текст новоствореного макроса потрібно видалити та замінити його на скопійований вище. Дивіться скриншоти, на них більш зрозуміліше.
Тепер можна запустити макрос на виконання, відкривши документ у якому потрібно змінити лапки. Для цього ідемо у «Вид → Макросы → Макросы». Знаходимо там наш макрос (changeQuote) і натискаємо «Выполнить». Лишається тільки дочекатися завершення роботи макроса.
Похожие статьи:
Следующие статьи:
- Онлайн сервіс для складання кросвордів, тестів, логічних ігор… - 02/02/2020 11:57
- Як поставити крапку навпроти центра літери (слова) та інші символи, яких нема на клавіатурі? Таблиця Alt-кодів - 29/12/2019 19:06
- Як скопіювати текст за 30 секунд з сайту, який не копіюється? - 12/12/2019 19:06
- Як вставити значок гамма (γ), бета (β), альфа (α) у текстовому редакторі Microsoft Office Word? - 03/11/2019 11:06
- Як вставити значок трикутника в Microsoft Office Word? - 18/10/2019 10:34
Предыдущие статьи:
- Як виконати пошук та заміну тексту у декількох документах Word, які містяться в одній папці? - 05/10/2019 09:08
- Як вирівняти всі таблиці у документі Word по ширині сторінки? - 30/09/2019 22:28
- Як у Microsoft Office Word перетворити цифри у текст? - 29/09/2019 22:29
- Як швидко переміщуватися між відкритими документами у редакторі Microsoft Office Word? - 27/09/2019 20:22
- Як додати макрос в панель швидкого доступу? - 26/09/2019 16:42