|
|
楼主 |
发表于 2011-8-26 10:27:13
|
显示全部楼层
来自： 中国浙江杭州
本帖最后由 157787698 于 2011-8-26 10:30 编辑
) `6 z1 s2 W+ |3 I& C6 |: M使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc1 T5 L0 Y0 o4 \0 Q% ^& M
PDDoc1.Open 第一个PDF文档的完整路径(字符串)* Y x9 ]9 @7 f& z
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
) ? V; Z, K- ?- D7 e% DPDDoc1.Inse ...# a% \: \4 ?! [0 D# M0 \
woaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif
) P6 R1 Y$ l* g) R: J1 s0 \# Y为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并-
$ C; P# O0 u, `6 M" c9 w - Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc" {5 l% W5 v$ _6 C) R4 T6 C( o
- Dim path1 As String, path2 As String, path3 As String
1 v% {: p2 _; Z3 s7 R - path1 = "d:\1.pdf"
5 J6 \; Y& Z* e' n - path2 = "d:\2.pdf"
3 {0 N5 ?. e( C0 i ` - path3 = "d:\3.pdf"* n( `* G O& ^3 z L' d
-
+ I/ J3 ?; g4 Q9 O) K - PDDoc1.Open path1) u. U6 H7 {, ?( ?
- PDDoc2.Open path2$ J& v; }" Z: ?6 ^8 d% K, N
- PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0+ L3 H1 @9 k, \. b+ `& q0 m
- PDDoc1.Save 1, path3+ S2 u7 z4 d( N: x- L5 m% e
- 5 a- B* w6 w9 J! p# C
. x* `" p; |' r* X' a2 H f) f4 v9 r, Y' d( c7 C7 m8 j. H/ R n
. |! t& N" _. j d
引用了Acrobat类库，下图
; I5 ?6 `7 k( H# P
|
|
发表于 2011-8-24 16:57:12
发表于 2011-8-26 08:30:52
