主题：哪位高手有合同套打的案例。

这是个样本，合同条款数量不定、产品行数也不定，谁有这样合同套打的案例？

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

点击浏览该文件:合同模版样本.rar

用excel报表来做，如果要弄成word，就把excel的内容拷贝到word中去。

 

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

如何关闭指定的文件，如“d:\test.doc“。

什么意思？什么关闭。

 

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

 

If FileIsOpened("d:\test1.doc")= True Then
    ShowAppWindow("d:\test1.doc",5)
End If

 

有错误，不能关闭这个文件。

If FileIsOpened("d:\test1.doc")= True Then
    ShowAppWindow("test1",5)
End If