前面分享过在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