以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  哪位高手有合同套打的案例。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76291)
--  作者：lihe60
--  发布时间：2015/10/26 15:09:00
--  哪位高手有合同套打的案例。
这是个样本，合同条款数量不定、产品行数也不定，谁有这样合同套打的案例？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:合同模版样本.rar

[此贴子已经被作者于2015/10/26 15:10:05编辑过]
--  作者：大红袍
--  发布时间：2015/10/26 15:20:00
--  

用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
--  作者：lihe60
--  发布时间：2015/10/26 16:09:00
--  
如何关闭指定的文件，如“d:\\test.doc“。
--  作者：大红袍
--  发布时间：2015/10/26 16:13:00
--  

什么意思？什么关闭。

 

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

 
--  作者：lihe60
--  发布时间：2015/10/26 16:18:00
--  

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

 

有错误，不能关闭这个文件。
--  作者：大红袍
--  发布时间：2015/10/26 16:21:00
--  

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