1、在word中打开VBA 代码窗口
2、请输入下述代码
Sub 打开新建关闭保存()
Documents.Open ("C:\Users\14830\Desktop\1.docx") '打开C:\Users\14830\Desktop文件夹里名字为1的文档
Documents.Add '新建一个文档
ActiveDocument.SaveAs "C:\Users\14830\Desktop\中国.docx" '新建的文档命名为中国另存到指定的位置C:\Users\14830\Desktop\
Selection.TypeText "中国是个好地方" '新建文档的光标处插入中国是个好地方这句话
ActiveDocument.Close savechanges:=wdPromptToSaveChanges '关闭这个新建的文档，并询问是否保存中国这个新建文档
End Sub
