|
|
楼主 |
发表于 2011-8-26 10:27:13
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2011-8-26 10:30 编辑 2 t& j% O" N9 N/ w9 z! h
使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc+ S& B( F( E' W e( N* i
PDDoc1.Open 第一个PDF文档的完整路径(字符串)! [0 X+ V# j$ C y
PDDoc2.Open 第二个PDF文档的完整路径(字符串): o5 h% I" s# U. \' r
PDDoc1.Inse ...
+ J& |6 U/ W4 R- F$ o8 Vwoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif
0 y" c4 D1 T! t2 z+ i* O+ a' j2 N7 w% ^5 F! l
为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并-
. r- c* o# I) V* `+ n - Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
& @$ m& F5 @5 }: _6 `9 P - Dim path1 As String, path2 As String, path3 As String4 [. z4 A6 b9 z `/ k" C& \. a: a
- path1 = "d:\1.pdf"$ H) y, I% l/ w* I" V
- path2 = "d:\2.pdf"
& ]/ ~7 c3 P6 n% b) }3 S - path3 = "d:\3.pdf"
' Q8 P' N8 T+ X5 K- ]0 ~. q) B -
0 J" ], T* i' d, B - PDDoc1.Open path18 K* ?2 V! `. r+ S9 C; ?& G6 S
- PDDoc2.Open path2
* B8 K T8 f1 ~" | k) @ - PDDoc1.InsertPages 1, PDDoc2, 1, 1, 05 {# I/ E5 y6 d$ A! i! a+ w' ?8 n+ u
- PDDoc1.Save 1, path32 ~' O5 L) s( x# l; _: ^
& v# q. C% E1 u/ D4 K1 p
/ {7 e3 m) Z# l; O N& b+ b) u! S7 ^ I1 u# @" I
2 E9 n n0 V* l# q, E引用了Acrobat类库，下图
+ n! u3 e9 V( z2 e7 B' [4 H
|
|
发表于 2011-8-24 16:57:12
发表于 2011-8-26 08:30:52
