当前运行代码如下：
Dim tm As String = ProjectPath & "Attachments\关于将某同志进行入党积极分子备案的报告.doc"
Dim fl As String = ProjectPath & "Reports\关于将某同志进行入党积极分子备案的报告.doc"
Dim wrt As New WordReport(tm,fl) '注意这里无需指定表名
wrt.AddDataTable("变更登记","智慧党建","Sel/ect TOP 1 * from {变更登记} where 姓名 = '" & vars("姓名") & "'")
wrt.Build()
wrt.Show()
问题：黑色加粗部分是变更登记表中的字段值，想把XX部分替换为党员信息表中的字段值，怎么操作呢？
word模板如下：
关于将[姓名]同志进行入党积极分子备案的报告
XX党委：
按照发展党员有关规定，根据党员推荐和群团组织推优情况，经[现支部]委员会研究，确定[姓名]同志为入党积极分子。现将有关情况报告如下：
[姓名]，男，X族，XX文化，XX省XX市XX县XX乡XX村人，XX年X月X日出生，XX年X月参加工作，现任XX单位XX职务。该同志于<Format([事项时间],
"yyyy年MM月dd日")>提出入党申请，根据党员推荐和群团组织推优情况（说明具体推荐情况），经[现支部]委会XX年X月X日研究，确定其为入党积极分子，指定培养联系人为XX同志、XX同志。
现予备案，请审查。
[现支部]委员会(盖章)
年 月 日
关于将王考同志进行入党积极分子备案的报告
XX党委：
按照发展党员有关规定，根据党员推荐和团组织推优情况，经第一支部委员会研究，确定王考同志为入党积极分子。现将有关情况报告如下：
王考，男，X族，XX文化，XX省XX市XX县XX乡XX村人，XX年X月X日出生，XX年X月参加工作，现任XX单位XX职务。该同志于2020年12月08日提出入党申请，根据党员推荐和团组织推优情况（说明具体推荐情况），经第一支部委会XX年X月X日研究，确定其为入党积极分子，指定培养联系人为XX同志、XX同志。
现予备案，请审查。
第一支部委员会(盖章)
年 月 日
加好友 
发短信
Post By：2020/12/8 17:36:00 [只看该作者]
