试试
函数：msds
dim t as table = args(0)
dim r as row = args(1)
dim tm as string = args(2)
dim fl as string = args(3)
Dim wrt As New WordReport(t,tm,fl) '定义一个WordReport
wrt.BuildOne(r)
wrt.Replace("^13","^p")
wrt.Quit() '退出
执行：
Dim tm As String = ProjectPath & "Attachments\MSDS.docx" '指定模板文件For Each dr As Row In Tables("MSDS").Rows '逐行生成报表
Dim st As String = dr("ICSC编号") & "-" & dr("名称") & "-" & "国际化学品安全卡MSDS.docx"
st = st.Replace(" ","")
dr("文件名") = st
Dim fl As String = ProjectPath & "Reports\"& st '指定目标文件
If FileSys.FileExists(fl) = false then
Functions.AsyncExecute("msds",Tables("MSDS"),dr,tm,fl)
End If
Next
DataTables("MSDS").Save()
加好友 
发短信
Post By：2019/6/29 11:35:00 [显示全部帖子]
