前面分享过在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 = Nothing
End Sub