Джерри очень часто использует 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 With     Selection.Find.Execute Replace:=wdReplaceAll     With Selection.Find         .Text = "'"

.Replacement.Text = "'"

End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub

Пару раз в этом совете я упоминал, что в Word включены умные кавычки. Вы можете проверить это, выполнив следующие действия:

  1. Откройте диалоговое окно «Параметры Word». (В Word 2007 нажмите кнопку «Office», а затем — «Параметры Word». В Word 2010 и более поздних версиях откройте вкладку «Файл» на ленте, а затем нажмите «Параметры».)

  2. Щелкните Проверка в левой части диалогового окна.

  3. Нажмите кнопку «Параметры автозамены». Word отображает диалоговое окно «Автозамена».

  4. Отобразите вкладку Автоформат по мере ввода. (См. Рис. 1.)

  5. Убедитесь, что установлен флажок Прямые цитаты с умными цитатами.

  6. Откройте вкладку Автоформат. (См. Рис. 2.)

  7. Убедитесь, что установлен флажок Прямые цитаты с умными цитатами.

  8. Щелкните ОК.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (767) относится к Microsoft Word 2007, 2010, 2013 и 2016.