怎么建一个空白word(用VBA实现创建Word空白文档)

在Access数据库里用VBA代码来实现创建一个空白的Word文件。

代 码：

'新建空白word文档

Private Sub cmd_word_Click()

'1

''定义俩个对象

' 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

'2

' '定义两个具体的对象

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

' 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

'3

'定义Word应用程序对象时使用New关键字

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

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