学电脑,学计算机 | 手机访问 | 加入收藏 | 设为首页 | RSS
当前位置:首页 > 办公软件 > Word教程 > 正文

轻轻松松玩转Word XP工具栏(4)

发布时间:2009-11-17 17:31:43  来源:电脑技术学习网
【摘要】: 大家知道,工具栏在WordXP中的作用可不小,它为我们熟练操作WordXP立下了汗马功劳。然而,你真正掌握了工具栏的操作了吗?看完下面的几个技巧,你就知道了。一、工具栏的显示与隐藏在默认情况下,WordXP启动后将会

 如果你不喜欢沿袭现成的图标,且自认为绘图功夫还不错,那么可以选择上图中的“编辑按钮图标”,这时会出现一个“按钮编辑器”,慢慢改去吧,直到自己满意为止。万一不小心改成个“四不像”,不必担心那个难看的图标从此永驻在你的Word XP工具栏中,只消选择图中的“复位按钮图标”便可。

  

  此外,若你将工具栏中的大部分图标改头换面了,怕是有时连你本人也忘了它们真正的功能,不必慌张,此时只需要在上图中选中“图标与文字”一并选中,这样图标与文字功能说明一并显示,就再也不会忘了图标真正的功能了。

  四、打造新的工具栏功能按钮

  在安装了Foxmail 4.2之后,会发现Word XP工具栏中多了一个按钮,一点击就开始运行Foxmail。这是怎么做出来的呢?下面这个办法将教你将常用的工具添加到工具栏中,实现你的愿望。

  

  比如,在工具栏中添加一个记事本的功能按钮,可以编写以下宏代码并执行:

......

Sub ButtonBmp()
Dim hDC As Long, hBitmap As Long
ret = GetForegroundWindow()
hBitmap = LoadImage(0, "c:/windows/bubbles.bmp", IMAGE_BITMAP, 32, 32, LR_LOADFROMFILE) 'bubbles.bmp为显示按钮图标的位图
OpenClipboard ret
EmptyClipboard
SetClipboardData CF_BITMAP, hBitmap '将位图复制到剪贴板
CloseClipboard

Set myBar = CommandBars(1)
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton)
With myControl
.PasteFace '将剪贴板的位图粘贴成为按钮的图标
.OnAction = "NotePad" '启动记事本
End With
myBar.Visible = True
End Sub
Sub NotePad()
Shell "C:/windows/notepad.exe", vbNormalFocus
End Sub

......

  点击这里下载例子(DOC文件经WinRAR压缩)。