As I am formatting documents, there are many times I need a particular word or passage to be formatted in both bold and italics. Word includes tools (on the Formatting toolbar) that apply bold and italics, but not bold italics. I got tired of doing two clicks, so I created my own tool to apply both formats at once. The resulting macro can then be assigned to a toolbar tool, right next to the Bold and Italics tools.
The simplest way to do this is with a macro as follows:
Sub BoldItalics1() Selection.Font.Bold = True Selection.Font.Italic = True End Sub
This macro turns on the attributes, but it doesn't do any toggling. In other words, you can't turn off bold italics by using the same macro, as you can with the individual Bold and Italics tools. This led to the "next generation" macro, which checks to see the state of the selected text before making any changes:
Sub BoldItalics2() Dim BIStatus As Integer BIStatus = 0 If Selection.Font.Bold Then BIStatus = BIStatus + 1 If Selection.Font.Italic Then BIStatus = BIStatus + 1 If BIStatus = 0 Then Selection.Font.Bold = True Selection.Font.Italic = True End If If BIStatus = 1 Then Selection.Font.Bold = True Selection.Font.Italic = True End If If BIStatus = 2 Then Selection.Font.Bold = False Selection.Font.Italic = False End If End Sub
The first lines of the macro increment a variable (BIStatus) depending on whether the Bold or Italic properties are set for the selection. When these lines are complete, BIStatus will be 0 if the selected text is neither bold nor italic, 1 if it is either bold or italic, or 2 if it is both bold and italic.
If BIStatus is set to 0 or 1, then the Bold and Italic properties for the selected text are set. If they were previously set (BIStatus is 2), then both properties are turned off.
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 (606) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Applying Bold Italics.
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!
Word allows you to easily change the color of the text in your document. If you get a document from someone else, you may ...
Discover MoreWhen you create a document (such as a letterhead) that you want multiple people to use, you need to be concerned with ...
Discover MoreNeed to adjust how your characters look horizontally? Word provides an easy way you can scale the horizontal appearance ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2017-07-31 01:23:53
Vengala Reddy Ch
I have created styles in word 2013. After applying styes If I want make particular word or para bold or italic it's applying to whole document why?
Could you please suggest?
2017-01-10 10:37:19
Dan
Would it be neater to use
If BIStatus < 2 Then
instead of two separate IF statements for 1 and 0?
2016-04-16 11:23:31
Adrian
Allen,
I have a bunch of already existing text in Word 2002 that I need to bold and italicize the first paragraph letter. How do I do this, other than manually?
Thanks so much for answering!
Adrian
Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon 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 © 2022 Sharon Parq Associates, Inc.
Comments