说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Word 97与WPS97的完美结合 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
Word 97与WPS97的完美结合 -VB资料


Word 97与WPS97都是文字处理软件中的佼佼者,有时我们需要同时使用两种软件处理一些文档,能不能将两种软件巧妙地揉合到一起来交替地使用呢?幸好在Word 97中集成了VBA功能,我们就可以利用它的宏功能来调用WPS 97软件,从而达到快速地启动WPS 97软件。
首先,我们要编辑这个调用WPS 97的宏函数。在Word 97的“工具”菜单中的“宏”项下,再选择“宏”后在“宏”界面内我们给它起一个宏名如WPS97,然后再单击“创建”按钮,在Word 97的VB编程界面内输入以下代码:
Sub WPS 97()
yn=MsgBox(“此次操作将启动WPS 97,是否继续?”,32+vbYesNo,“Word 97提示”)
If yn=6 Then
Shell″c:\wps97\winwps.exe″,vbNormalFocus
End If
End Sub
保存以上代码并退出Word 97的VB环境,接下来我们将要在Word 97的“帮助”菜单项后放置一项“WPS 97(Q)”菜单项。
选择“工具”菜单中的“自定义”项,在“自定义”界面内单击“命令”标签,然后在左边的“类别”列表框内选择“宏”,这时在右边的“命令”列表框内将出现你刚才建立的调用WPS 97的宏:Normal.NewMacros.WPS 97,这时我们单击“自定义”界面最下面的“键盘”按钮,同样在“类别”列表中选择“宏”,在“命令”列表中选择“WPS 97”,并在下面的“请按新快捷键”框内输入:Alt+Q,并点按“指定”按钮就将该快捷键指定给了WPS 97宏,最后“关闭”该画面返回“自定义”界面。我们这时就可以用鼠标左键按住该宏名Normal.NewMacros.WPS 97,将其拖动到“帮助”菜单后面,此时不要退出“自定义”界面,用鼠标右键点击新增加上的这一菜单项,在弹出的快捷菜单中将命名改为:“WPS 97(Q)”,并选中“总是只用文字”项,当然我们也可以给该菜单项指定一个图标,即指向“更改图标按钮”并选择一个你认为合适的图标,另外我们选中“开始一组”项,这时将在“帮助”菜单项和“WPS97(Q)”菜单项之间增加一个分隔竖线。
至此我们就可以单击菜单条上的“WPS 97(Q)”按钮或使用快捷键Alt+Q来启动WPS 97。需要注意的是在启动WPS 97时系统将提示你是否要启动WPS97,若此时你已经启动了WPS 97,就不要再启动WPS 97,否则将发生错误,因为你在“WPS97宏”中没有判断前是否已经启动了WPS 97,这一工作希望喜欢VB编程的读者自己去完成。
(山西 焦赞康)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘