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

157787698

如何合并两份PDF格式的图纸？或者如何将一张CAD图纸里面的所有图框打印成一份PDF文件
/ m( E# o4 t  w7 |
cad图纸输出成PDF格式可以直接调用ADOBE PDF打印机，但是如果一张图纸有多个图框，将打印成多份PDF文件
0 Y/ s& m0 G9 O1 ?  F' s) p, M有没有办法合并呢？或者直接输出成一份PDF文件？

请大虾们帮忙

157787698

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

lamborghin

Adobe Acrobat 可以

157787698

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

woaishuijia

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

1. Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   
2. PDDoc1.Open 第一个PDF文档的完整路径(字符串)
   & u9 n% {0 Q$ r/ t. g
3. PDDoc2.Open 第二个PDF文档的完整路径(字符串)
   + A  q6 ~- s8 K/ T" t# f
4. PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0
   : c" r* p# L# B) e" Q% Q) M) y
5. PDDoc1.Save 1, 新文档的完整路径

复制代码

157787698

多谢斑竹，我去试试

157787698

使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
+ t9 z9 i3 ?) TPDDoc1.Open 第一个PDF文档的完整路径(字符串)
: {" m, L; H/ v/ N, v' O/ hPDDoc2.Open 第二个PDF文档的完整路径(字符串)
PDDoc1.Inse ...
& A! Z- v  V+ N: u! {) X0 B, {: F$ Bwoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

0 L2 T1 {) {) ~" Y" F
为什么不能合并呢？下面程序只是把第一个文件另存为并重命名一下，并没有实现合并

1. 
   
2.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
     h; h( Z3 V8 t* `5 L
3.     Dim path1 As String, path2 As String, path3 As String
   
4.     path1 = "d:\1.pdf"
   & o/ o9 m) z& {, s6 \- s
5.     path2 = "d:\2.pdf"
   
6.     path3 = "d:\3.pdf"
   9 z+ |4 q" F5 f. w$ P: r5 O
7.    
   . N; v; }% B! w0 l) @
8.     PDDoc1.Open path1
   ! Z; ?9 U$ F: @- c
9.     PDDoc2.Open path2
   
10.     PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
    : W2 _% k( S2 p  D* z
11.     PDDoc1.Save 1, path3
    
12. 
    

复制代码

" T5 T+ x# f' c

引用了Acrobat类库，下图

woaishuijia

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

1.     Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
   ; V5 D1 a' T8 r, b8 ?# ~
2.     Dim path1 As String, path2 As String, path3 As String
   
3.     path1 = "d:\1.pdf"
   
4.     path2 = "d:\2.pdf"
   
5.     path3 = "d:\3.pdf"
   
6.    
   / Z, B  S0 ~% v5 c% M3 l6 M
7.     PDDoc1.Open path1
   
8.     PDDoc2.Open path2
   
9.     PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0
   
10.     PDDoc1.Save 1, path3

复制代码

157787698

多谢
. ~3 Q1 ]8 e! k
4 N: k; h1 q# w3 D我理解成了页号可以从0开始，呵呵

shajianlin

批量打印 batchplot
) g: ^1 b* |4 G4 J% _4 G0 J# ~+pdf factory 可以实现