为Word增加阴影字按钮

办公族

福建 陈桂鑫 · 2005年6月13日

工作中经常用到文字的阴影、空心等效果，偏偏在Word 2003工具栏中却没有提供阴影、空心等效果的按钮，居然连自定义工具栏选项中也找不到相应的命令添加。每次都必须从“格式/字体”打开设置窗口进行设置显然很不方便，于是就另外想了一个办法在工具栏上添加一个阴影字按钮，设置也挺简单的。

单击“工具/宏/宏…”，输入宏名“阴影”，单击“创建”按钮，在打开的Visual Basic编辑窗口中编辑如下宏代码：

Sub 阴影()

If Selection.Font.Shadow=True Then

Selection.Font.Shadow=False

Else: Selection.Font.Shadow=True

End If

End Sub

完成后关闭Visual Basic编辑窗口返回Word，右击工具栏选择“自定义”，在类别列表中选择“宏”，再把命令列表中的“Normal.NewMacros.阴影”拖动到工具栏上，右击此按钮把命名中的名字改成“阴影”。喜欢的话还可选择“编辑按钮图案”画一个个性图标，再右击选择“默认样式”显示自制图标。最后确定退出就大功告成了。

现在只要选中文字，单击工具栏上这个“阴影”按钮就可以在设置阴影或取消阴影间切换了。

此段代码的含义是：如果选定文字己设置阴影（Shadow = True），则消除阴影（Shadow = False），否则设置阴影。代码中Shadow表示阴影，我们还可以把它换成其它命令以实现相应设置，在此提供几个：Outline　空心字、Emboss　阳文、Engrave　阴文。