|
|
楼主 |
发表于 2011-8-26 10:27:13
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2011-8-26 10:30 编辑 $ _* p2 U1 G: `2 a
使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
R& y2 E5 |6 X+ x$ i8 ^PDDoc1.Open 第一个PDF文档的完整路径(字符串): h* u, G* P% A
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
2 o+ n( p& U5 B( X$ UPDDoc1.Inse ...
O* e2 Q2 W& J" qwoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif
( o- S4 _$ C5 r
为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并-
' a, p2 K' p- z - Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc. Z% x4 {1 f! r# }. `
- Dim path1 As String, path2 As String, path3 As String
$ G9 x: e" s- h* E2 I% g2 o - path1 = "d:\1.pdf"
8 a. m' ? R& ^1 s2 v - path2 = "d:\2.pdf"
* C7 g5 N% H. a/ d - path3 = "d:\3.pdf"
1 ^" H1 e) K% r, v. R5 H -
$ i; _) L$ Q0 x# J7 k - PDDoc1.Open path1
& P) _* b5 |0 Z2 D6 h - PDDoc2.Open path2# e$ e/ \ n/ P! _! D& u
- PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
% Q5 A6 k# O) C8 C3 ^9 Y9 B - PDDoc1.Save 1, path3# O6 c' |& Y9 I6 w
! g- i8 M" {8 V$ `- [* v5 ]; p
6 }' e3 O+ H: ^4 G- _% c* r7 s8 O x4 n+ b! R) o
) I |1 W) }$ N+ [
引用了Acrobat类库，下图
! S: C1 O/ M' ?- X7 _6 [
|
|
发表于 2011-8-24 16:57:12
发表于 2011-8-26 08:30:52
