Access創建空白的Word文檔

2017-10-17 17:12:00
黃善超
原創
1092

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



    分享