主题：如何实现在word报表中的表格选择满足条件的记录生成报表

如题，如何实现在word报表中的表格内，选择满足条件（例如指定使用单位）的多行记录生成报表。

使用WordReport生成，参考http://www.foxtable.com/help/topics/2890.htm

word报表，是无法做到那种列表的形式的，只有Excel报表可以那样做，word只能套打一行数据。

 

 

变通方法：可以生成一个word、一个excel，然后打开excel，拷贝到word里面去

把word模板拷贝到Excel模板吧！

群主，回一下，到底如何做？

一定要做word报表么？直接做excel报表简单方便。

参考代码。

 

Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application

try
    Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
    Ws.UsedRange.Copy
   
    Dim fileName = "d:\test.doc"
    Dim doc = wapp.Documents.Open(fileName)
    wapp.ActiveWindow.Selection.WholeStory
    wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    wapp.ActiveWindow.Selection.TypeParagraph
    wapp.ActiveWindow.Selection.paste
    wapp.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp.Quit
finally
    eapp.quit
End try

还是用excel表吧！我还是没有弄明白怎么搞。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1.xls

请大红袍版主教教我！