关于word报表开头设置固定内容的代码修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

假如想在开头加上 “关于干部任免的公示” 固定内容只加一次以下代码实现不了差在哪呢老师

Dim tm As String = ProjectPath & "Attachments\公示.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\公示.doc" '指定目标文件

Dim wrt As New WordReport(Tables("酝酿上会"),tm,fl) '定义一个WordReport

Dim sum As Integer

Dim cnt As Integer

For Each r As Row In Tables("酝酿上会").rows '逐行生成报表

If cnt > 0 Then

wrt.ReplaceOne("关于干部任免的公示","")

End If

cnt = cnt + 1

wrt.BuildOne(r)

wrt.Show() '显示报表

主题：关于word报表 开头设置固定内容的代码修改？