|
|
楼主 |
发表于 2011-8-26 10:27:13
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2011-8-26 10:30 编辑 & N7 @. Z* ], F$ ~
使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc/ Y2 E+ }, t' S/ o/ s. B, C
PDDoc1.Open 第一个PDF文档的完整路径(字符串)% c7 V9 [; F+ m8 R" B! G/ o) }
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
6 \5 E; H7 ?- v$ H& t6 g& v% mPDDoc1.Inse ...
: P7 n; x- S. L7 x: }woaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif
3 A k$ n! ~2 F2 W# b& w为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并-
6 g. v% |/ i0 s$ Q$ r/ v" {4 b - Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc" X7 _! D2 Y# _0 Z
- Dim path1 As String, path2 As String, path3 As String
- m. [# B3 I+ W6 Q* d2 s9 Z9 H4 g - path1 = "d:\1.pdf"
" S j. Q$ T- ?+ W, W - path2 = "d:\2.pdf"
2 Y# \2 b& v+ ~9 A/ r0 ^ - path3 = "d:\3.pdf"
) U+ U: Q- A$ c6 V. c" V+ a8 ]( o -
2 G- s; E! W! [8 `* ~& j. ? - PDDoc1.Open path17 Y! `8 c2 h8 V( Z4 c1 }$ j- {
- PDDoc2.Open path2/ a8 O) z* j- Z5 `" W
- PDDoc1.InsertPages 1, PDDoc2, 1, 1, 04 C5 D# `! L; W& c7 X/ x' {* v3 q
- PDDoc1.Save 1, path3
: g- Y0 E0 I" b# K2 j. ^ h3 _+ @
/ e% w, \- U+ v/ q* p/ ]$ T1 {
' K; k# U7 c' P4 q+ r+ e4 _7 a6 r' H2 B ?
: @' n; b, G7 } `$ Q引用了Acrobat类库，下图- W4 R! J4 p q/ r. H7 K
|
|
发表于 2011-8-24 16:57:12
发表于 2011-8-26 08:30:52
