VBA在word中调用windows程序的源代码.doc

《VBA在word中调用windows程序的源代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA在word中调用windows程序的源代码利用VBA可以大大简化我们的手工劳动，提供一个在word中利用VBA调用windows程序的代码。供大家探讨。以计算器为例，考虑到winxp系统和win7中计算器程序所在目录不同，所以代码较长。可以直接复制下列代码，用VBA编辑器粘贴，再做成按钮即可。步骤看下面吧1、打开visalbasic编辑器2、复制代码，粘贴到……（看不清的话，放大一些，呵呵清晰度是必需的。）3、点开“工具”的自定义4、选择“计算器”，拖至菜单任意处，修改即可。5、成功啦。。。

2、。附源代码：Sub计算器()OnErrorGoTolzhyDimReturnValueAsStringDimErrorNumberAsIntegerDimn2AsBooleanDimn3AsBooleanIf(Dir("C:WINDOWSCALC.EXE")<>"")Thenn2=TrueElse:n2=FalseEndIfIf(Dir("C:WINDOWSSystem32CALC.EXE")<>"")Thenn3=TrueElse:n3=FalseEndIfIfn2=TrueThenR

3、eturnValue=Shell("C:WINDOWSCALC.EXE",1)AppActivateReturnValueEndIfIfn3=TrueThenReturnValue=Shell("C:WINDOWSSystem32CALC.EXE",1)AppActivateReturnValueEndIfExitSublzhy:ErrorNumber=Err.NumberIfErrorNumber=53ThenMsgBox"请先在“控制面板”内打开“添加／删除程序”，在“Windows

4、安装程序”内的“附件”窗口中找到“计算器”选项选定后安装，此功能即可用。",vbCritical,"使用注意"EndIfEndSubSub画图程序()OnErrorGoTolzhyDimReturnValueAsStringDimErrorNumberAsIntegerDimn2AsBooleanDimn3AsBooleanIf(Dir("C:ProgramFilesAccessoriesMSPAINT.EXE")<>"")Thenn2=TrueElse:n2=FalseEndIfIf(Di

5、r("C:WINDOWSSystem32MSPAINT.EXE")<>"")Thenn3=TrueElse:n3=FalseEndIfIfn2=TrueThenReturnValue=Shell("C:ProgramFilesAccessoriesMSPAINT.EXE",1)AppActivateReturnValueEndIfIfn3=TrueThenReturnValue=Shell("C:WINDOWSSystem32MSPAINT.EXE",1)AppActivateR

6、eturnValueEndIfExitSublzhy:ErrorNumber=Err.NumberIfErrorNumber=53ThenMsgBox"请先在“控制面板”内打开“添加／删除程序”，在“Windows安装程序”内的“附件”窗口中找到“画图”选项选定后安装，此功能即可用。",vbCritical,"使用注意"EndIfEndSub