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

VBA在word中调用windows程序的源代码利用VBA可以大大简化我们的手工劳动，提供一个在word中利用VBA调用windows程序的代码。供大家探讨。以计算器为例，考虑到winxp系统和win7中计算器程序所在目录不同，所以代码较长。可以直接复制下列代码，用VBA编辑器粘贴，再做成按钮即可。步骤看下面吧1、打开visal basic编辑器2、复制代码，粘贴到（看不清的话，放大一些，呵呵清晰度是必需的。）3、点开“工具”的自定义4、选择“计算器”，拖至菜单任意处，修改即可。5、成功啦。附源代码：Sub 计算器() On Error GoTo lzhy Dim ReturnValue As String Dim ErrorNumber As Integer Dim n2 As Boolean Dim n3 As Boolean If (Dir(C:WINDOWSCALC.EXE) ) Then n2 = True Else: n2 = False End If If (Dir(C:WINDOWSSystem32CALC.EXE) ) Then n3 = True Else: n3 = False End If If n2 = True Then ReturnValue = Shell(C:WINDOWSCALC.EXE, 1) AppActivate ReturnValue End If If n3 = True Then ReturnValue = Shell(C:WINDOWSSystem32CALC.EXE, 1) AppActivate ReturnValue End If Exit Sublzhy: ErrorNumber = Err.Number If ErrorNumber = 53 Then MsgBox 请先在“控制面板”内打开“添加删除程序”，在“Windows安装程序”内的“附件”窗口中找到“计算器”选项选定后安装，此功能即可用。, vbCritical, 使用注意 End If End SubSub 画图程序() On Error GoTo lzhy Dim ReturnValue As String Dim ErrorNumber As Integer Dim n2 As Boolean Dim n3 As Boolean If (Dir(C:Program FilesAccessoriesMSPAINT.EXE) ) Then n2 = True Else: n2 = False End If If (Dir(C:WINDOWSSystem32MSPAINT.EXE) ) Then n3 = True Else: n3 = False End If If n2 = True Then ReturnValue = Shell(C:Program FilesAccessoriesMSPAINT.EXE, 1) AppActivate ReturnValue End If If n3 = True Then ReturnValue = Shell(C:WINDOWSSystem32MSPAINT.EXE, 1) AppActivate ReturnValue End If Exit Sublzhy: ErrorNumber = Err.Number If ErrorNumber = 53 Then MsgBox 请先在“控制面板”内打开“添加删除程序”，