Обычно вы добавляете в текст кавычки по мере ввода. Однако могут быть случаи, когда вы захотите добавить кавычки позже.

Например, при редактировании документа вы можете выделить текст, а затем добавить кавычки вокруг выделенного текста. Вы можете выполнить эту задачу с помощью следующего макроса:

Sub AddQuotes()

Dim sBegQ As String     Dim sEndQ As String

If Options.AutoFormatAsYouTypeReplaceQuotes Then         sBegQ = Chr(147)

sEndQ = Chr(148)

Else         sBegQ = Chr(34)

sEndQ = Chr(34)

End If

Selection.InsertBefore sBegQ     Selection.InsertAfter sEndQ End Sub

Макрос определяет правильный тип кавычек для использования в зависимости от того, включены ли SmartQuotes в Word или нет. Затем правильные кавычки помещаются до и после выбора.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13326) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Adding_Quotes [Добавление цитат].