老师好！

用图片替换模板中的内容，怎么没有正确显示图片？图片就看到一行的高度，图片上传不了~

Dim Filter As String = "标注 = true"
Dim cnt As Integer
cnt = DataTables("组织生活会").Compute("Count([标注])", Filter)

If cnt = 0 Then
    msgbox("请勾选要生成的行!")
Else
    Dim tm As String = ProjectPath & "Attachments\\报表模板\\组织生活\\03组织生活会记录.docx" \'指定模板文件
    Dim fileName As String = ProjectPath & "Reports\\组织生活\\03组织生活会记录.docx" \'指定目标文件
    Dim wrt As New WordReport(Tables("组织生活会_table1"), tm, fileName) \'定义一个WordReport
    Dim drs As List(Of DataRow)
    drs = DataTables("组织生活会").Select(Filter)
    For Each dr As DataRow In drs
        wrt.Replace("[abc]", _UserName)
        wrt.ReplaceWithImage("[会议主题图片]", ProjectPath & "Attachments\\组织生活会\\主题图片\\" & dr("会议主题图片"), 370, 260)
        wrt.BuildOne(dr)
\'        wrt.RecordsOnEachPage  =1
    Next
    wrt.Show() \'显示报表
    ShowAppWindow("03组织生活会记录.docx", 1) \'最大化显示此窗口
End If