转载请注明出处，谢谢

环境背景

Win10+Word 2016 MSO

操作步骤

1.新建test.doc

2.视图->宏

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

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

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

End Sub

5.重新打开文件，即可执行文档中的命令 whoami与notepad

6.文件重命名后或者第一次打开需要启动宏。

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

参考链接

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