环境背景

Win10+Word 2016 MSO

操作步骤

1.新建test.doc
Windows下使用Word宏程序执行命令-冯金伟博客园

2.视图->宏
Windows下使用Word宏程序执行命令-冯金伟博客园

3.新建名为AutoOpen的宏，便于打开word时自动运行，其它自动执行指令如下
AutoExec ：启动 Word 或加载全局模板时
AutoNew ：每次新建文档时
AutoOpen：每次打开已有文档时
AutoClose：每次关闭文档时
AutoExit ：退出 Word 或卸载全局模板时
Windows下使用Word宏程序执行命令-冯金伟博客园

4.写入如下内容，保存后关闭文档，其中shell与wshshell是两种执行命令的方式

Sub AutoOpen()
'
' AutoOpen 宏
'
'
    Shell "cmd.exe /k whoami"
    Dim wshshell
    Set wshshell = CreateObject("wscript.shell")
    wshshell.exec "notepad"

End Sub

Windows下使用Word宏程序执行命令-冯金伟博客园

5.重新打开文件，即可执行文档中的命令 whoami与notepad
Windows下使用Word宏程序执行命令-冯金伟博客园

6.文件重命名后或者第一次打开需要启动宏。
Windows下使用Word宏程序执行命令-冯金伟博客园

注：doc文档文件与dot模板文件中均可保存宏指令

参考链接

1.https://zhidao.baidu.com/question/244826341.html

转载请注明出处，谢谢

如有收获,请点赞

如有不同意见,请留言

如有错漏请指正，不胜感激