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

读取mdb+创建word进程+新建word模板+数据输出保存

能给个源码吗？

现成的没有，自己可以按照上面思路试一下...

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编辑过]

Print打印夹 = "D:\整治打印_" & Str简
  Dim Fso As New FileSystemObject     '工程_引用_microsoft scripting Runtime  如果【引用】中也没有,就点击“浏览”按钮,添加c:\windows\system32\srrun.dll
  
  If Not Fso.FolderExists(Print打印夹) Then    '创建文件夹
    MkDir Print打印夹
  End If

  Set Word = WordApp.Documents.Open(App.Path & "\存放夹\施工月报.docx")

Word.SaveAs (Print打印夹 & "\施工月报_" & Str简 & Number月报数 & ".docx")   '另存为 终于成功了!!!

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

不行哦
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")