Dim str As String = "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"For Each c As Col In Tables("告知内容").cols str = str.replace("【" & c.name & "】", e.DataRow(c.name))Nextmsgbox(str)