主题：[求助]请教我这个word模板为何不能生成呢？

Dim fl As String = ProjectPath & "Reports\退学.doc" '指定目标文件
Dim mg As String = ProjectPath & "Images\二维码.wmf" '约定的图片文件
Dim wrt As New WordReport(Tables("基础表"),tm,fl) '定义一个WordReport
For Each r As Row In Tables("基础表").Rows '逐行生成报表
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeModuleSize = 2 '二维码的放大倍数
    Bar.Code = "编号:" & r("退学申请序号") & vbcrlf & "所属二级学院:" & r("二级学院") & vbcrlf & "年份:" & r("提出申请年份")
    bar.SaveImage(mg,300)
    wrt.BuildOne(r)
Next
wrt.Show() '显示报表