Access新建空白word文档代码整理

时　间:2019-08-07 16:19:35
作　者:淡泊   ID：49106  城市：大连
摘　要:access新建空白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


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店