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

157787698

如何合并两份PDF格式的图纸？或者如何将一张CAD图纸里面的所有图框打印成一份PDF文件
0 v( {9 Y& |: c& V  a  _# n
% L0 @3 N; `9 Mcad图纸输出成PDF格式可以直接调用ADOBE PDF打印机，但是如果一张图纸有多个图框，将打印成多份PDF文件
# U& X3 J/ ~; H% t有没有办法合并呢？或者直接输出成一份PDF文件？

3 g; F3 o9 x% ~, J请大虾们帮忙

157787698

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

lamborghin

Adobe Acrobat 可以

157787698

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

woaishuijia

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

1. Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
2. PDDoc1.Open 第一个PDF文档的完整路径(字符串)
   6 E" Z& v$ k4 T. R
3. PDDoc2.Open 第二个PDF文档的完整路径(字符串)
   
4. PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0
   
5. PDDoc1.Save 1, 新文档的完整路径

复制代码

157787698

多谢斑竹，我去试试

157787698

使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
# O7 E* P6 k  H2 H' vPDDoc1.Open 第一个PDF文档的完整路径(字符串)
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
PDDoc1.Inse ...
9 `" t4 a$ H4 n8 ~% Y5 w$ owoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并

1. 
   * ^8 ]3 O( R; N. b- Y
2.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
3.     Dim path1 As String, path2 As String, path3 As String
   7 T5 W" p: \2 _- a5 g
4.     path1 = "d:\1.pdf"
   & E1 Z& U% q$ ~
5.     path2 = "d:\2.pdf"
   . z: N( b6 Q5 V' a2 Q" P: k: a
6.     path3 = "d:\3.pdf"
   ' K, ^: l/ |* n% ^" d/ h9 c" {4 E1 z
7.    
   
8.     PDDoc1.Open path1
   
9.     PDDoc2.Open path2
   7 f! [( a( j7 x. A( D6 A1 \3 B
10.     PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
    
11.     PDDoc1.Save 1, path3
    
12. 
    5 D4 x) Z2 G/ j+ C2 A! h- y" ]# k1 M

复制代码

引用了Acrobat类库，下图
3 }) i2 h$ E: @. E

woaishuijia

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

1.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
2.     Dim path1 As String, path2 As String, path3 As String
     S3 y+ m+ n6 z/ P7 q
3.     path1 = "d:\1.pdf"
   
4.     path2 = "d:\2.pdf"
   ) N/ `, U6 ~, B% M
5.     path3 = "d:\3.pdf"
   
6.    
   
7.     PDDoc1.Open path1
   
8.     PDDoc2.Open path2
   6 S" i* y6 i: k: H* n- P
9.     PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0
   * Y0 i6 n1 x# G: B8 X8 ~8 Q
10.     PDDoc1.Save 1, path3

复制代码

157787698

多谢
) @0 n2 R% w9 R0 d, H5 I# `: a
我理解成了页号可以从0开始，呵呵

shajianlin

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