主题：[求助]如何让这个报表不重复打印？

各位老师，我这里有个例子：

用excel报表来做，做好以后拷贝过去word报表

 

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

 

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

这个代码放在什么位置？如果复制到指定位置怎么写？

按钮

如果要复制到word中的指定位置怎么写？

位置查找参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=126389