Умные цитаты с естественным говорящим драконом

Джерри очень часто использует 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. Вы можете проверить это, выполнив следующие действия:

  1. Отобразите диалоговое окно “Параметры Word”. (В Word 2007 нажмите кнопку «Office», а затем «Параметры Word». В Word 2010 и более поздних версиях откройте вкладку «Файл» на ленте, а затем нажмите кнопку «Параметры».)
  2. Щелкните «Проверка» в левой части окна. диалоговое окно.
  3. Нажмите кнопку “Параметры автозамены”. Word отображает диалоговое окно “Автозамена”.
  4. Отображать вкладку “Автоформат при вводе”. (См. Рис. 1.)
  5. Рис. 1. Вкладка “Автоформат по мере ввода” диалогового окна “Автозамена”..

  6. Убедитесь, что установлен флажок “Прямые кавычки с умными кавычками”.
  7. Отображение вкладки Автоформат. (См. Рис. 2.)
  8. Рис. 2. Вкладка Автоформат диалогового окна Автозамена.

  9. Убедитесь, что установлен флажок Прямые кавычки с умными кавычками.
  10. Нажмите OK .
Оцените статью
Frestage.ru
Добавить комментарий