主题：如何合并pdf文件

老师，我有多个word， excel文件，我想把他们合并成一个pdf,我可以把每个文件都生成pdf，然后我想把多个pdf文件合并为一个,请问老师，用ft怎么合并多个pdf或者有没有更好的思路？是不是需要用插件，老师方便给个例子吗？谢谢有点甜老师

把多个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

老师，怎么把一个excel插入到word呢？我看您的哪个例子是把word插入到word

参考：https://zhidao.baidu.com/question/267560974.html

 

一样的，用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