Как быстро переключать умные цитаты в Word 2010?

Я работаю над длинным техническим документом, который содержит множество отображений компьютерного кода. В бегущем тексте я хочу, чтобы мои кавычки были вьющимися, а это означает, что мне нужна функция автоформатирования Word по типу "умные кавычки". Но при отображении кода фигурные кавычки некорректны, поэтому в этих случаях я хочу, чтобы smart-quotes-as-I-type был отключен. Есть ли быстрый способ переключения этого параметра? Или есть способ, которым я могу связать это со стилем абзаца, в котором я нахожусь? (Я использую особый стиль для отображения кода.)

В настоящее время, чтобы переключить настройку, я должен нажать Файл> Параметры> Проверка> Параметры автозамены...>"Прямые кавычки" с "умными кавычками"> ОК> ОК, что составляет семь щелчков мыши. Переключение назад - еще семь щелчков мышью. Разве нет более быстрого пути? Было бы неплохо использовать сочетание клавиш для переключения или кнопку на панели инструментов, которая бы переключала его одним щелчком мыши. Если бы настройка зависела от стиля абзаца, в котором я был, было бы еще лучше.

Источник

2 ответа

Решение

Хорошо, вот ответ:

  1. Идти к View вкладка> Macros > Record Macro
  2. Присвойте макросу имя и назначьте его клавише / ярлыку (комбинация клавиш)
  3. Записать что-либо (не важно, что, мы сбросим это через мгновение). Нажмите на Macros > Stop Recording прекратить.
  4. Повторите шаги 1-3 для создания другого макроса (так что теперь у нас всего 2 макроса).
  5. Идти к View вкладка> Macros > View Macros
  6. Выберите первый макрос и нажмите Edit
  7. Удалите все строки внутри кода макроса (это Visual Basic), кроме sub Macro_Name() а также End Sub
  8. Скопируйте эту строку в подпункт: Options.AutoFormatReplaceQuotes = True
  9. Сделайте то же самое с другим макросом, но напишите Options.AutoFormatReplaceQuotes = False вместо.

В конечном счете, это код (у вас могут быть другие имена и / или описания для ваших макросов). Также обратите внимание, что в Visual Basic ' определяет строку комментария (обычно она поворачивает зеленую строку), означает, что строка не будет выполнена.

 Sub ToggleQuotes1()
'
' ToggleQuotes1 Macro
' Smart Quotes
'
    Options.AutoFormatReplaceQuotes = True
End Sub
Sub ToggleQuotes2()
'
' ToggleQuotes2 Macro
' Regular quotes 
'
    Options.AutoFormatReplaceQuotes = False
End Sub

PS - Есть два варианта смарт-qoutes под проверкой. Один находится под AutoFormat вкладка, а другой AutoFormat as you type, Здесь я меняю первый, но второй выглядит так: Options.AutoFormatAsYouTypeReplaceQuotes = True Options.AutoFormatAsYouTypeReplaceQuotes = False

Источник

Вы можете сделать это только с одним макросом, содержащим строку

Options.AutoFormatAsYouTypeReplaceQuotes = Not Options.AutoFormatAsYouTypeReplaceQuotes

Источник
Другие вопросы по тегам