Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Toggling Font Assignments in a Macro.
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:
Please Note:
This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here:
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.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
If you need to move the insertion point within your macro, then you'll want to note the HomeKey method, described in this ...
Discover MoreIf your documents include words that contain numbers (such as a list of parts numbers) you may need a way to increment ...
Discover MoreWhen working with macros, you can often speed up processing by turning off the updating of the screen. Best news is that ...
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