以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]如何在word模板中，加入判断后，替换内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84951)

--  作者：hrw68529 --  发布时间：2016/5/13 16:03:00 --  [求助]如何在word模板中，加入判断后，替换内容 下边一段代码，[求助]如何在word模板中，加入判断后，替换内容？（加红字的地方） Dim tm As String  = ProjectPath & "Attachments\\工伤决定书.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\工伤决定书.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("工伤认定申请表_table1"),tm,fl) \'定义一个WordReport wrt.Replace("[受伤害职工]",iif("[申请人]"="[受伤害职工姓名]","其本人","其职工" & "[受伤害职工姓名]")) wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 [此贴子已经被作者于2016/5/13 16:03:43编辑过]

--  作者：大红袍 --  发布时间：2016/5/13 16:35:00 --   wrt.Replace("[受伤害职工]","<iif([申请人]=[受伤害职工姓名],""其本人"",""其职工"" & [受伤害职工姓名])>")