向word模板中写入数据_在access中把文字写入到word

前面分享过在access中添加表格到word中。

下面代码通过typetext方法把数据添加到word中

    Dim WdApp As Word.Application    Dim WdDoc As Word.Document    Dim StrAdr As String     StrAdr = CurrentProject.Path & "文档1.docx"     Set WdApp = GetObject(, "Word.Application")      '打开word文档    Set WdDoc = WdApp.Documents.Open(StrAdr)    WdApp.Visible = True    '设置Word文档的内容    With WdApp.Selection         '设置字体格式        .Font.Name = "微软雅黑"        .Font.Size =18        .TypeText Text:="写入的内容..."           End With    '保存     WdDoc.Save    Set WdApp = Nothing    Set wddpc = NothingEnd Sub