用代码计算好，生成内容后，动态替换模板的内容

 http://www.foxtable.com/help/topics/2890.htm

有这部份的视频吗？原来的优酷在线视频的地址怎么没有了呢？

百度云盘，可以直接在线看的

没必要视频教程吧？你用代码获取你要的数据后，然后写入到word里面不就行了？

代码我还不熟练，我打开视频后他一直提示让我登录，但我登录后还是看不成，还提示登录。不知道是不是我浏览器的问题，我用的win10中自带的IE浏览器。

那你就看优酷的吧

http://i.youku.com/i/UMzAzNDIzOTY2MA==/playlists

谢谢！

我看着帮助改了一段代码如下：这个模板如下图：1。是上半部份，2。是下半部份。
此主题相关图片如下：qq图片20160615224745.png

但生成报表后是这样：
此主题相关图片如下：qq图片20160615225033.png

能不能把模版中的上半部份只生成一条，下面不要再生成多余的？

Dim drs As List(of DataRow) = DataTables("日报表").Select("日期 = #" & Date.Today & "#") \'筛选出符合条件的行
If drs.Count > 0 Then \'如果存在符合条件的行
    Dim tm As String  = ProjectPath & "Attachments\\练习.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\练习.doc" \'指定目标文件
    Dim wrt As New WordReport(Tables("日报表"),tm,fl) \'定义一个WordReport
    For Each dr As DataRow In drs \'逐行生成报表
        wrt.Replace("[1]",DataTables("日报表").Compute("Sum(资金可用余额)"))
        wrt.Replace("[2]",DataTables("日报表").Compute("Sum(当天收入截至当天17时_现金回款额)"))
        wrt.Replace("[3]",DataTables("日报表").Compute("Sum(支出合计)")) \'用代码计算出总的销售数量并替换模板中的合计标记
        wrt.BuildOne(dr)
    Next
    wrt.Show() \'显示报表
End If

 你可以把第一部分、第二部分，都看作是一个整体，全部用代码生成。

 比如你模板里写

[第一部分]

[第二部分]

 然后编写代码，合成两个长长的字符串，即可。