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