Джерри очень часто использует Dragon Naturally Speaking для создания документов. Когда он это делает, он производит прямые кавычки и апострофы вместо «умных». Джерри считает затруднительным выполнять трудоемкий процесс поиска и замены каждый раз, когда он «произносит» текст в документе, поэтому он задается вопросом, есть ли параметр, который исправит это, или, возможно, более быстрый способ, чем использование поиска и замены всего время.
Очевидно, здесь есть два игрока: Word и Dragon Naturally Speaking. Что касается последнего, начиная с версии 13 программа будет транскрибировать правильные кавычки (обычные или умные), если у вас включены умные кавычки в Word. Есть сообщения, что Dragon не использует правильные кавычки, если вы используете Word в качестве редактора электронной почты Outlook.
Если вы используете старую версию Dragon (или вы используете ее для составления электронных писем), то вы можете создать в программе специальное слово, в результате которого набирается начальная умная цитата и другое слово, которое входит в заключительную умную цитату. Таким образом, вы могли «произносить» кавычки, как если бы вы произносили другие знаки препинания.
Другой подход – использовать «Найти и заменить» для преобразования ваших обычных кавычек в умные кавычки. Если (опять же) у вас включены умные кавычки в Word, вы должны иметь возможность искать кавычки (“) и заменять их кавычками (“). Когда вы нажимаете «Заменить все», все они меняются на умные кавычки. Вы можете проделать ту же операцию с апострофами, чтобы сделать их «умными». При желании этот процесс также можно автоматизировать с помощью макроса.
Sub ReplaceQuotes () Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" "" .Replacement.Text = "" "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithCelection.Find.Find. Заменить: = wdReplaceAll на Selection.Find .Text = "'" .Replacement.Text = "'" Конец на Selection.Find.Execute Заменить: = wdReplaceAllEnd Sub
Пару раз в этом совете Я уже упоминал о включении умных кавычек в Word. Вы можете проверить это, выполнив следующие действия:
- Отобразите диалоговое окно “Параметры Word”. (В Word 2007 нажмите кнопку «Office», а затем «Параметры Word». В Word 2010 и более поздних версиях откройте вкладку «Файл» на ленте, а затем нажмите кнопку «Параметры».)
- Щелкните «Проверка» в левой части окна. диалоговое окно.
- Нажмите кнопку “Параметры автозамены”. Word отображает диалоговое окно “Автозамена”.
- Отображать вкладку “Автоформат при вводе”. (См. Рис. 1.)
- Убедитесь, что установлен флажок “Прямые кавычки с умными кавычками”.
- Отображение вкладки Автоформат. (См. Рис. 2.)
- Убедитесь, что установлен флажок Прямые кавычки с умными кавычками.
- Нажмите OK .
Рис. 1. Вкладка “Автоформат по мере ввода” диалогового окна “Автозамена”..
Рис. 2. Вкладка Автоформат диалогового окна Автозамена.