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

2266
KnowItAllWannabe

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

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

3

2 ответа на вопрос

2
matan129

OK, here's the answer:

  1. Go to View tab > Macros > Record Macro
  2. Give the macro a name and assign it to a key / shortcut (key combination)
  3. Record something (does not matter what, we will reset it in a moment). Click on Macros > Stop Recording to stop.
  4. Repeat steps 1-3 in order to create another macro (so we have now 2 macros total).
  5. Go to View tab > Macros > View Macros
  6. Choose the first macro and click Edit
  7. Delete all the lines inside the macro's code (it's Visual Basic) except the sub Macro_Name() and End Sub
  8. Copy this line into the sub: Options.AutoFormatReplaceQuotes = True
  9. Do the same to the other macro, but write Options.AutoFormatReplaceQuotes = False instead.

Ultimately, that's the code (you may have other names and/or descriptions for your macros): Also note that in Visual Basic, ' defines a comment line (usually it turns the line green), means that line will not be executed.

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

P.S - There are two smart qoutes options under proofing. One is under the AutoFormat tab and the other is AutoFormat as you type. Here I've changes the first one, but the second one goes like that: Options.AutoFormatAsYouTypeReplaceQuotes = True Options.AutoFormatAsYouTypeReplaceQuotes = False

Круто, большое спасибо! Я собираюсь пометить это как ответ, но прежде чем я это сделаю, я надеюсь, что вы скажете мне, как я могу добавить эти макросы на мою панель инструментов ... (Ссылка на то, как это сделать, будет в порядке.) KnowItAllWannabe 10 лет назад 0
[Я думаю, что подойдет] (http://superuser.com/questions/297197/microsoft-word-2010-custom-macro-buttons-without-writing-code) - просто выберите «Макросы» в разделе «Выберите команды из» matan129 10 лет назад 2
2
Graham Mayor

You can do that with only one macro containing the line

Options.AutoFormatAsYouTypeReplaceQuotes = Not Options.AutoFormatAsYouTypeReplaceQuotes

Крутые чары! Лучше, чем мое оригинальное решение. matan129 10 лет назад 0

Похожие вопросы