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

157787698 · 发表于 2011-8-24 16:57:12

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

如何合并两份PDF格式的图纸？或者如何将一张CAD图纸里面的所有图框打印成一份PDF文件

cad图纸输出成PDF格式可以直接调用ADOBE PDF打印机，但是如果一张图纸有多个图框，将打印成多份PDF文件
有没有办法合并呢？或者直接输出成一份PDF文件？

请大虾们帮忙

157787698 · 发表于 2011-8-24 16:57:59

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

lamborghin · 发表于 2011-8-24 17:04:07

Adobe Acrobat 可以

157787698 · 发表于 2011-8-25 10:53:51

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

woaishuijia · 发表于 2011-8-26 08:30:52

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

Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
: I# i8 I" X, ~2 g" [
PDDoc1.Open 第一个PDF文档的完整路径(字符串)2 O c+ x; A& i( @
PDDoc2.Open 第二个PDF文档的完整路径(字符串)5 W& J' [% g) Y# u
PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0" V v+ c* ^, o# K- R+ v: {
PDDoc1.Save 1, 新文档的完整路径

复制代码

157787698 · 发表于 2011-8-26 09:42:01

多谢斑竹，我去试试

157787698 · 发表于 2011-8-26 10:27:13

本帖最后由 157787698 于 2011-8-26 10:30 编辑

使用下面代码前应保证安装了Acrobat并引用其类库Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
- I2 z2 }! ~) h9 y+ N$ p! ZPDDoc1.Open 第一个PDF文档的完整路径(字符串)$ |8 n" ^7 `7 L( H
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
* N D! s0 Y. b" pPDDoc1.Inse ...% E8 g- q$ c. h3 l- k) D
woaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

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

' L3 m X# r' h4 W M5 p* ]$ R
Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc+ h* i$ u7 {" Q
Dim path1 As String, path2 As String, path3 As String% y) D% i) N" y( U
path1 = "d:\1.pdf"
- b$ E/ M! a8 L: ~* C6 E2 e
path2 = "d:\2.pdf"
' f& O* o" O0 r! l+ ?
path3 = "d:\3.pdf"1 h- A& q' C& q; [" L7 c3 ^6 z0 ?
' x8 E" W) ?6 m: Q( u
PDDoc1.Open path1/ Q" u3 U4 q8 g+ o# V6 l, _6 \
PDDoc2.Open path2, M0 ^+ F6 P* ]' E, h( e
PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
I0 M$ H9 F, k5 B7 G" {/ I0 k" O
PDDoc1.Save 1, path3
3 V- {/ C( x) C4 l2 a; l& M
" t- E2 h+ f- g M

复制代码

引用了Acrobat类库，下图
引用.JPG

woaishuijia · 发表于 2011-8-26 10:42:15

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

Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
- U4 V; a! t) V5 ?2 ?
Dim path1 As String, path2 As String, path3 As String% b0 Z1 Z4 j8 i$ c, Q4 N: N
path1 = "d:\1.pdf"( E0 S3 o6 g. u1 ~2 J$ E) W9 S. q) O
path2 = "d:\2.pdf"& V, @1 M' i& x1 t1 F
path3 = "d:\3.pdf"
0 y w6 G1 y0 r+ S6 f" \
2 r$ ~# G5 L+ c0 u- x
PDDoc1.Open path1/ Z7 }" I. ]! I
PDDoc2.Open path2! b$ `$ G" F9 Z/ u! B
PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0+ L4 ?, T4 \ J, n2 h
PDDoc1.Save 1, path3

复制代码

157787698 · 发表于 2011-8-26 13:20:59

多谢

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

shajianlin · 发表于 2011-10-10 21:12:11

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

		自动登录	找回密码
密码			注册

通知

[已答复] VBA：如何合并两份PDF格式的图纸？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块