主题：执行完显示出来，怎么写代码？

Dim tm As String  = ProjectPath & "Attachments\dy.doc" '指定模板文件
With Tables("照片")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
             Dim wrt As New WordReport(Tables("照片"),tm,报表) '定义一个WordReport
            wrt.BuildOne(r)
        Next
    End If
End With

多条记录，全放在一个文件里，这样写对吗？