以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何合并pdf文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135803)
--  作者：fntfgz
--  发布时间：2019/6/3 16:23:00
--  如何合并pdf文件
老师，我有多个word， excel文件，我想把他们合并成一个pdf,我可以把每个文件都生成pdf，然后我想把多个pdf文件合并为一个,请问老师，用ft怎么合并多个pdf或者有没有更好的思路？是不是需要用插件，老师方便给个例子吗？谢谢有点甜老师
[此贴子已经被作者于2019/6/3 17:04:27编辑过]
--  作者：有点甜
--  发布时间：2019/6/3 19:05:00
--  

把多个word、excel复制粘贴到一个word里面，然后用word另存为pdf，即可。

 

操作word，参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=99542&skin=0

 

另存为pdf，参考

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    doc.ExportAsFixedFormat("d:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
    doc.saved = True
    app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try
--  作者：fntfgz
--  发布时间：2019/6/3 22:30:00
--  
老师，怎么把一个excel插入到word呢？我看您的哪个例子是把word插入到word
--  作者：有点蓝
--  发布时间：2019/6/3 22:54:00
--  
参考：https://zhidao.baidu.com/question/267560974.html
--  作者：有点甜
--  发布时间：2019/6/4 10:43:00
--  
以下是引用fntfgz在2019/6/3 22:30:00的发言：
老师，怎么把一个excel插入到word呢？我看您的哪个例子是把word插入到word

 

一样的，用vba打开excel，拷贝，然后粘贴过去，就行了的。如

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
   
    Dim App2 As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App2.WorkBooks.Open("D:\\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'指定要复制的工作表
    Ws.UsedRange.Copy
    wb.saved = True
    app2.DisplayAlerts = False
   
    app.ActiveWindow.Selection.WholeStory
    app.Selection.MoveRight(Unit:=1)
    app.Selection.TypeText(Text:=vbcrlf)
    app.ActiveWindow.Selection.paste
   
    App2.Quit
   
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try