主题：[求助]word模板遇到难题了！！

 试试这样

Dim tm As String  = ProjectPath & "Attachments\任免汇报.doc"
Dim fl As String = ProjectPath & "Reports\任免汇报.doc"
Dim wrt As New WordReport(Tables("政府会议_任免"),tm,fl) '定义一个WordReport
wrt.Replace("[计数]",Tables("政府会议_任免").Compute("Count(姓名)")) '用代码计算出总的销售数量并替换模板中的合计
wrt.Replace("[列表]",Tables("政府会议_任免").DataTable.GetComboListString("内容","","序列号").Replace("|",vbcrlf & "  "))
wrt.Replace("[文号]",Tables("政府会议_任免").DataTable.GetComboListString("文号").Replace("|",","))
wrt.Build() '生成报表
wrt.Show() '显示报表