Applying Bold Italics

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 or ribbon) 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, that will do the job.

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.