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

各县、区人民政府，各管理区、开发区，市政府各部门：

市政府研究决定：

***同志任人口和计划生育委员会副主任；

免去***同志物价管理办公室副主任职务；

***同志任公安交通警察支队支队长；

免去***同志重点项目办公室副主任职务；

***同志任物价管理办公室副主任；

内容是由[姓名]&[职务]组合的，怎么弄，如：***同志任人口和计划生育委员会副主任；***同志在姓名列，人口和计划生育委员会副主任在职务列，怎么改

各县、区人民政府，各管理区、开发区，市政府各部门：

市政府研究决定：

   黄荣武同志任信阳市人社局科长;

刘去同志任信阳市人社局科长,免去其信阳市人社局局长职务;

大家同志任信阳市人社局科长;

周老大同志任信阳市人社局科长;

免去王家银同志信阳市人社局局长职务;

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() '显示报表

以上代码生成的报告，[列表]和[文号]内容不是做为副本表的内容，是DataTables的内容，如何做到，根据副本表中选定的内容，进行生成。谢谢