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

157787698

如何合并两份PDF格式的图纸？或者如何将一张CAD图纸里面的所有图框打印成一份PDF文件
, q$ r- m3 {. Y* i9 m5 [& J
" K! P' k/ ~. ^4 J3 ~  |" f' wcad图纸输出成PDF格式可以直接调用ADOBE PDF打印机，但是如果一张图纸有多个图框，将打印成多份PDF文件
2 D! m0 C. O9 {& [& ]1 D! }6 p有没有办法合并呢？或者直接输出成一份PDF文件？

* T, O2 D- k4 A2 G) ?请大虾们帮忙

157787698

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

lamborghin

Adobe Acrobat 可以

157787698

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

woaishuijia

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

1. Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
2. PDDoc1.Open 第一个PDF文档的完整路径(字符串)
   
3. PDDoc2.Open 第二个PDF文档的完整路径(字符串)
   
4. PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0
   + l" M9 B( p0 [- o/ H6 A4 E
5. PDDoc1.Save 1, 新文档的完整路径

复制代码

157787698

多谢斑竹，我去试试

157787698

使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
, T& X3 i2 l1 j( f, F5 ?# Z5 m2 aPDDoc1.Open 第一个PDF文档的完整路径(字符串)
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
PDDoc1.Inse ...
woaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

( k3 g4 M/ ^' z' e: u! W为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并

1. 
   
2.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   2 ]% D+ }% y% H8 M2 k# f) n+ M
3.     Dim path1 As String, path2 As String, path3 As String
   2 U+ F- ~; V/ e( [' m' M: w
4.     path1 = "d:\1.pdf"
   
5.     path2 = "d:\2.pdf"
   7 ~, c+ V4 w$ q7 G1 t
6.     path3 = "d:\3.pdf"
   $ t+ D- ~. x& X, d+ ]! F
7.    
   
8.     PDDoc1.Open path1
   7 I- z/ z; E  b7 ]
9.     PDDoc2.Open path2
   0 Q6 \- u( F9 Q0 @7 d4 ]; E! B
10.     PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
    
11.     PDDoc1.Save 1, path3
    ) z3 @) H/ x7 ~* N" J" O; i
12. 
    # t/ |+ k: P0 R/ y# c% Z

复制代码

+ a) D& `3 Y# \' ^7 b( E
. Y: b! o" D& j) B% z
# @. t. [! }9 D  _: p6 n引用了Acrobat类库，下图
% S. R7 P3 q" E. d1 ^+ y

woaishuijia

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

1.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   0 F" [* w) k4 U- i5 `
2.     Dim path1 As String, path2 As String, path3 As String
   ( Y0 i1 e0 r( @' v
3.     path1 = "d:\1.pdf"
   8 Z7 Q' v  ~" L9 w
4.     path2 = "d:\2.pdf"
   
5.     path3 = "d:\3.pdf"
   1 i  f- |6 X9 E/ S! T6 m  \; o
6.    
   2 z0 T, h: e. B1 |  u6 S0 `
7.     PDDoc1.Open path1
   
8.     PDDoc2.Open path2
   % }' g' o' `+ z; s' `) P# L9 {
9.     PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0
   
10.     PDDoc1.Save 1, path3

复制代码

157787698

多谢

我理解成了页号可以从0开始，呵呵

shajianlin

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