那位大老有mdb数据保存为doc代码
doc是一个表格模板把mdb数据保存到相应的表格中

能给个源码吗？

Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Add(App.Path & "\电力设备试验单\dl.docx")
Word.Bookmarks("项目名称").Range.Text = "123"
Word.SaveAs "项目名称"
Word.Close
WordApp.Quit
我要数据传到dl.docx并以“项目名称”这个标签在同一文件夹内另存为一个新文件我这样写有问题请帮我改下谢谢。

[此贴子已经被作者于2022-6-30 09:27编辑过]

不行哦
Private Sub Command1_Click()
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Add(App.Path & "\电力设备试验单\dl.docx")
Word.Bookmarks("项目名称").Range.Text = Text1.Text
Word.SaveAs ("")
Word.Close
WordApp.Quit
End Sub
dl.docx是一个模板文件，我把模板文件里定义了多个标签，我把Text1,Text2.....写入相应的标签中Command1执行后dl.docx另存为以Text1为文件名,位置也和模板文件一个文件夹里。Word.SaveAs ("这里怎么写")

[此贴子已经被作者于2022-7-1 09:03编辑过]

终于搞定了。
Word.SaveAs (App.Path & "\电力设备试验单\" & Text1.Text & ".docx")