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 AcroPDDoc6 V! X. e B6 b4 z3 k/ C! A
PDDoc1.Open 第一个PDF文档的完整路径(字符串)9 Z9 _' r6 h6 [8 b% n0 B$ d; k [
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
9 L" t: V( z/ x8 R% u
PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0
) o% Z) d+ p" U- |3 n9 G8 N! \
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
$ G! o* M' n e# O+ o% cPDDoc1.Open 第一个PDF文档的完整路径(字符串)8 l% ~) V& a* R( r1 \! T7 y9 ^
PDDoc2.Open 第二个PDF文档的完整路径(字符串)
& p, E7 f3 e" j+ pPDDoc1.Inse ...
3 F' a: }+ W0 S; _3 F+ }woaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

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

6 g8 K- D+ {$ }* |$ o5 O5 x
Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc# a* v0 F; j. t& L' e
Dim path1 As String, path2 As String, path3 As String8 Q) a- o/ h' R6 [' {
path1 = "d:\1.pdf"
# d# O1 I1 t/ q6 E# f2 {4 a
path2 = "d:\2.pdf"7 v9 _8 {7 J3 V1 n$ j- c7 j8 s
path3 = "d:\3.pdf"' Z0 h, C1 q) w9 ^4 \
# U* s6 v" O ?/ G1 b
PDDoc1.Open path18 o. }3 P8 e' s
PDDoc2.Open path2
7 q2 D' |- ]2 R- ]8 {! W# ]
PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0+ T$ B4 A' |/ l9 f5 I
PDDoc1.Save 1, path3
0 c+ I6 h4 o/ I3 b) t' {
* a# ]; [/ v3 Z7 M; q4 C5 l

复制代码

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

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

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

Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
$ W c- d; L* C
Dim path1 As String, path2 As String, path3 As String
2 L# ^0 Y$ ?; q
path1 = "d:\1.pdf": H2 K. j7 }% T) f$ I. f
path2 = "d:\2.pdf"
- |2 e/ N2 ^) u0 D# f
path3 = "d:\3.pdf"
/ p. [& M- S1 w" `8 ~3 D! B6 q
( C8 O4 b& L3 R( c5 |
PDDoc1.Open path1+ T% ?* h2 t% `: F9 W
PDDoc2.Open path25 z: j1 B! C; w! t$ ~( |$ T }
PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0. Q |7 Y8 V- H0 S
PDDoc1.Save 1, path3

复制代码

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

多谢

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

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

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

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

通知

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

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

浏览过的版块