主题：word报表：如何使多行数据在同一个word中？

 用代码处理

http://www.foxtable.com/webhelp/scr/2890.htm

需要动态生成的（几行）的地方，标记为特殊字符，如 [内容1]

编写代码替换内容1的值。

不会做，请上传具体实例。

代码改一下

Dim tm As String  = ProjectPath & "Attachments\调动文件.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\调动文件.doc" '指定目标文件
Dim t As Table = Tables("调动信息表")
Dim wrt As New WordReport(t,tm,fl) '定义一个WordReport
Dim count As Integer = 0
Dim str As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
    count += 1
    Dim r As Row = t.Rows(i)
    If count = 1 Then
        str &= "   " & r("姓名") & "同志由" & r("调出学校") & "调" & r("调入学校") & "工作;"
    Else
        str &= "  " & r("姓名") & "同志由" & r("调出学校") & "调" & r("调入学校") & "工作;"
    End If
    If i < t.BottomPosition Then
        str &= vbcrlf
    End If
Next
wrt.ReplaceOne("[个数]",count)
wrt.ReplaceOne("[内容]",str)
wrt.BuildOne(t.Rows(t.TopPosition))
wrt.Show() '显示报表