Джейси написала, что она создала макрос, который устанавливает текст в Time 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 — самая популярная программа для обработки текстов в мире.) Этот совет (1300) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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