|
|
楼主 |
发表于 2011-8-26 10:27:13
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2011-8-26 10:30 编辑
- W* X: A- p5 n& T使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
+ Y; l& C) S+ x6 w/ }+ |+ K- L" lPDDoc1.Open 第一个PDF文档的完整路径(字符串)# S* L) ]) p* U0 J1 \0 {4 i
PDDoc2.Open 第二个PDF文档的完整路径(字符串)/ Z- h' I2 y8 N" ^# {' Y
PDDoc1.Inse ...# n2 i f* @1 a) }+ s7 Y
woaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif
2 v/ _9 ]' }7 \; ?: Z+ S9 Q3 |为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并- ) L' A h" l) J
- Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
' K# V: A) ~" ~ - Dim path1 As String, path2 As String, path3 As String% ~ E, i1 E5 N D: N
- path1 = "d:\1.pdf", L7 |% u# e$ D6 T+ v
- path2 = "d:\2.pdf"
! Z0 }; c& i9 Z7 L' w - path3 = "d:\3.pdf"1 c& Y( G/ g* y, h% m
- & f0 _( ~4 d! R9 [& Y6 J
- PDDoc1.Open path1
& ^ u) T! n+ @" u% g - PDDoc2.Open path2
' q9 I: m( M- I6 s - PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0, F9 W! f) R7 x" c
- PDDoc1.Save 1, path30 W ^( {& ?$ W
- i2 R/ L8 u. p
3 c: _2 X* y# {" r6 t) }
9 Z W* ?% u, G, U
$ ]. }# b0 C7 H/ D ?( n引用了Acrobat类库，下图3 ~' a! g) E1 W3 f, C
|
|
发表于 2011-8-24 16:57:12
发表于 2011-8-26 08:30:52
