3

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

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

|источник

2 ответа2

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

|источник
2

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

Опции.AutoFormatAsYouTypeReplaceQuotes = Не параметры.AutoFormatAsYouTypeReplaceQuotes

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .