VBA：如何合并两份PDF格式的图纸？

157787698

如何合并两份PDF格式的图纸？或者如何将一张CAD图纸里面的所有图框打印成一份PDF文件
. w. [0 m5 h5 S/ a8 t' [/ _' J
) {+ T) B% _( j8 n9 ?; icad图纸输出成PDF格式可以直接调用ADOBE PDF打印机，但是如果一张图纸有多个图框，将打印成多份PDF文件
: F+ D1 w, A- m( n" U1 O& q+ Z" f有没有办法合并呢？或者直接输出成一份PDF文件？
6 u8 L3 {  C- D6 |
7 L  [0 Y1 t# p& c  y+ T" P# _8 S2 H请大虾们帮忙

157787698

PDF里面是有手工插入文档的功能的，但是如何自动实现呢

lamborghin

Adobe Acrobat 可以

157787698

我知道Adobe Acrobat 可以，但是如何通过程序来自动实现呢

woaishuijia

使用下面代码前应保证安装了Acrobat并引用其类库

1. Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   2 o& [3 _3 q# V6 ^) Y% L
2. PDDoc1.Open 第一个PDF文档的完整路径(字符串)
   
3. PDDoc2.Open 第二个PDF文档的完整路径(字符串)
   ) z( f  ]6 X% S% v
4. PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0
   2 ^6 I6 f4 l6 }3 x% P
5. PDDoc1.Save 1, 新文档的完整路径

复制代码

157787698

多谢斑竹，我去试试

157787698

使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
PDDoc1.Open 第一个PDF文档的完整路径(字符串)
( i* p* I0 p& j7 p/ w" Y, K3 jPDDoc2.Open 第二个PDF文档的完整路径(字符串)
$ r3 v. B$ n! yPDDoc1.Inse ...
  b5 ]  k! L4 W3 _- gwoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

4 J$ z" |- F' i
为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并

1. 
   8 ~0 S2 J! d: I' @: U8 R# ?
2.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
3.     Dim path1 As String, path2 As String, path3 As String
   
4.     path1 = "d:\1.pdf"
   5 ?: i9 \* D9 d  X& G6 ?
5.     path2 = "d:\2.pdf"
   2 z  w) U) }- B' P) M* N+ H/ U2 x
6.     path3 = "d:\3.pdf"
   
7.    
   % y) i1 ?* ^! }4 ~) N, P; u
8.     PDDoc1.Open path1
   
9.     PDDoc2.Open path2
   
10.     PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
    
11.     PDDoc1.Save 1, path3
    0 @' f& \, }: R, S# B
12. 
    . ]2 F  u% `/ ~; S6 r

复制代码

) i0 d, A! {! P  Z9 W
$ z$ B$ f' d7 b+ l
引用了Acrobat类库，下图
$ A/ U% C& b2 S% n, P5 t4 Z

woaishuijia

页号错了.我在5楼已经说了页号从0开始,呵呵

1.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
2.     Dim path1 As String, path2 As String, path3 As String
   
3.     path1 = "d:\1.pdf"
   * ]. X. W( X- @- l) t3 o
4.     path2 = "d:\2.pdf"
   7 j. u  f1 k) \4 W
5.     path3 = "d:\3.pdf"
   
6.    
   8 B3 c; x3 e: c& u1 B1 w# |
7.     PDDoc1.Open path1
   
8.     PDDoc2.Open path2
   
9.     PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0
   
10.     PDDoc1.Save 1, path3

复制代码

157787698

多谢
; F0 D; G0 b2 r& R3 r( A# t" J
6 g1 G  ~" ?1 W& V" n+ ^5 B7 d我理解成了页号可以从0开始，呵呵

shajianlin

批量打印 batchplot
+pdf factory 可以实现