|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Dim appWD, wrdDoc, mp, mf '声明变量类型
mp = ThisWorkbook.Path & "\" '路径
Myname = 1111 'Word文档名(不含后缀)
mf = Dir(mp & "*" & Myname & "*.doc*") '显示文档的全名(包括后缀)
Set appWD = CreateObject("Word.Application") '定义对象
If mf <> "" Then
Set wrdDoc = appWD.Documents.Open(ThisWorkbook.Path & mf) '打开Word文档
appWD.Visible = True '显示打开的Word文档
'.........其他代码
wrdDoc.Close False 'false→关闭时不保存;True→关闭时保存
appWD.Quit '退出
Else
MsgBox "没有这个Word文档!", 16, "警告......" '弹出警告
End If
End Sub
|
评分
-
1
查看全部评分
-
|