Access创建空白的Word文档

2017-10-17 17:12:00
黄善超
原创
169

Access作为Office的组件,和Word,excel 交互数据是肯定可以的。在Access中操作其他Office组件也是我们常用功能之一。

比如说把刷选好的数据导出到Excel,按Access内容创建一份Word简历

这里先来介绍一下如何创建一个空白的Word文档

分享两种方法:


1.通过代码定义对象的方法直接创建

Public Sub 创建空白的word文档()
    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



2.通过定义word应用程序对象和文档对象来实现

注意:此方法需要在引用“Microsoft Word 14.0 Object Library”库。

Public Sub 创建空白的word文档2()
    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



    分享