Джейси написала, что она создала макрос, устанавливающий текст в Times New Roman. Она хотела изменить макрос, чтобы переключаться между Times New Roman и Arial Narrow Bold, и задалась вопросом, как это сделать.

Самый простой способ сделать это в макросе — просто проверить шрифт, используемый в выделенном тексте, а затем предпринять шаги в зависимости от того, что вы найдете. Например, следующий макрос будет действовать только в том случае, если выбран текст Times New Roman или Arial Narrow:

Sub ChangeSelectedFont()

Select Case Selection.Font.Name         Case "Times New Roman"

Selection.Font.Name = "Arial Narrow"

Selection.Font.Bold = True         Case "Arial Narrow"

Selection.Font.Name = "Times New Roman"

Selection.Font.Bold = False     End Select End Sub

Однако есть другой, не макроуровень, который может иметь некоторый смысл.

Почему бы не использовать стили? Вы можете определить стили, охватывающие любые желаемые атрибуты форматирования. Например, вы можете определить один стиль с использованием Times New Roman, а другой — с использованием Arial Narrow Bold. Вы можете применять стили по желанию и даже искать и заменять их с помощью стилей.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1053) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Toggling_Font_Assignments_in_a_Macro [Переключение назначений шрифтов в макросе].