通过Access创建空白Word文档-杨雪专栏

通过Access创建空白Word文档（1）
Access与Word之间的数据读写:CreateObject()函数，Add()方法

语法：

 Set[对象变量1]=CreateObject("word.application")
             Set[对象变量2]=[对象变量1].Documents.Add

通过上面的语法格式编写代码，可以新建一个word应用程序，并为其新增一个文档。

例：
步骤：1.在“F_创建word文档”窗体中插入“新建word文档”按钮。
2.为“F_创建word文档”窗体添加“cmd_word_Click”事件。
3.在“cmd_word_Click”事件过程中添加代码。
4.运行程序查看结果。

截图：

代码：

Option Compare Database
'新建一个空白的word文档
Private Sub cmd_word_Click()
'定义俩个对象
    Dim wordApp As Object
    Dim wordDoc As Object
    '创建word应用程序
    Set wordApp = CreateObject("word.application")
    '创建的word应用程序设置为可视
    wordApp.Visible = True
    '在word应用程序中新建空白word文档
    Set wordDoc = wordApp.Documents.Add
    '释放对象控件
    Set wordApp = Nothing
    Set wordDoc = Nothing
End Sub

通过Access创建空白Word文档（2）
除了采用的定义对象的方法来创建空白文档外，还可以通过定义word应用程序对象和文档对象来实现，
其具体的定义语法如下：

 Dim [变量名1] As Word.Application
       Dim [变量名2] As Word.Document

注：定义word应用程序对象和文档对象需要在引用“Microsoft Word 14.0 Object Library”支持库后
才能够使用。

例：
步骤同上：
代码：

'创建一个空白的Word文档
Private Sub cmd_word_Click()
    '定义两个具体的对象
    Dim wordApp As Word.Application
    Dim wordDoc As  Word.Document
    '创建Word应用程序对象并添加空白文档
    Set wordApp = CreateObject("word.application")
    Set wordDoc = wordApp.Documents.Add
    '设置Word应用程序可以状态为真
    wordApp.Visible = True
End Sub

通过Access创建空白Word文档（3）
Access与Word之间的数据读写:New关键字.Visible属性
语法：

 Dim[变量名] As New Word.Application

注：引用“Microsoft Word 14.0 Object Library”支持库后才能够使用。

例：步骤同上
代码：

'创建一个空白的Word文档
Private Sub cmd_word_Click()
    '定义Word应用程序对象时使用New关键字
    Dim wordApp As New Word.Application
    Dim wordDoc As Word.Document
    '创建空白Word文档
    wordApp.Documents.Add
    wordApp.Visible = True
    '释放对象空间
    Set wordApp = Nothing
    Set wordDoc = Nothing
End Sub