在格式化文档时，很多时候我需要将特定的单词或段落以粗体和斜体两种格式进行格式化。 Word包括一些工具（在“格式”工具栏上），这些工具应用粗体和斜体，但不应用粗体斜体。我已经厌倦了两次单击，因此创建了自己的工具来一次应用两种格式。然后，可以将结果宏分配给加粗和斜体工具旁边的工具栏工具。

最简单的方法是使用宏，如下所示：

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

该宏打开属性，但不进行任何切换。换句话说，不能像使用单个的粗体和斜体工具一样，使用相同的宏来关闭粗体斜体。这导致了“下一代”宏，该宏在进行任何更改之前检查以查看所选文本的状态：

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

宏的第一行根据为选择内容设置的是粗体还是斜体来增加变量（BIStatus）。这些行完成后，如果所选文本既不是粗体也不是斜体，则BIStatus将为0；如果既是粗体又是斜体，则为1；或者，如果既是粗体又是斜体，则为2。

如果BIStatus设置为0或1，则将设置所选文本的Bold和Italic属性。如果先前已设置它们（BIStatus为2），则两个属性都将关闭。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（606）适用于Microsoft Word 97、2000、2002和2003。您可以找到Word（Word 2007）的功能区界面的本技巧版本。和更高版本）在这里：

Applying Bold Italics。