在access中，我们有需要把数据导入到word 中，比如导入一些数据表格和文本
首先，我们需要创建一个word文档：
Private Sub cmd_word_Click()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
'创建Word对象，添加空白文档并打开word
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Add
wordApp.Visible = True
End Sub
创建成功
