Written by Allen Wyatt (last updated February 19, 2022)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365
Jacie wrote that she had created a macro that set text to Times New Roman. She wanted to change the macro to be a toggle between Times New Roman and Arial Narrow Bold and wondered how to do it.
The easiest way to do it in a macro is simply to check the font used in your selected text, and then take steps based on what you find. For instance, the following macro will only take action if the selected text is either Times New Roman or 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
There is a different, non-macro way that may make some sense, however. Why not use styles? You can define styles to encompass any formatting attributes desired. For instance, you could define one style that uses Times New Roman, and another that uses Arial Narrow Bold. You could apply the styles at will and you could even search and replace using the styles.
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1053) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365. You can find a version of this tip for the older menu interface of Word here: Toggling Font Assignments in a Macro.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2021 or Microsoft 365. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word Step by Step today!
Your macro may need to determine if the user has overtype mode turned on. You can find out the overtype status easily by ...
Discover MoreWould you like a countdown value of some type to appear in your document? You can create your own through the use of a ...
Discover MoreWhen you are using Find and Replace under macro control, you can specify what you want it to do when the end of your ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments