Добавление цитат

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

 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 sEndQEnd Sub 

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

Оцените статью
Frestage.ru
Добавить комментарий