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, X: M0 A) j1 ]! T
PDDoc1.Open 第一个PDF文档的完整路径(字符串) Q! h1 E; k0 O* t
PDDoc2.Open 第二个PDF文档的完整路径(字符串)- N6 t' X% k: X: i
PDDoc1.InsertPages 第二个文档在第一个文档中的插入位置(页号从0开始,在该页后插入), PDDoc2, 要插入的第二个文档内容的起始页号(从0开始), 插入的页数, 0$ h" p+ K3 O, F+ V1 M4 h! p
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* l* a! B* a% T2 w9 c% m3 F0 I* h
PDDoc1.Open 第一个PDF文档的完整路径(字符串)9 ~' G7 h) J* k a0 ~4 t
PDDoc2.Open 第二个PDF文档的完整路径(字符串)& Q4 O, S) r0 |9 f; W& @! ]: {
PDDoc1.Inse ...
& X3 N2 F& C# bwoaishuijia 发表于 2011-8-26 08:30 http://www.3dportal.cn/discuz/images/common/back.gif

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

5 f3 \" a; e( ?
Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc
7 @* w# x0 W- V% C+ m$ X5 C0 l
Dim path1 As String, path2 As String, path3 As String
, k. P4 @, s5 U: W) f8 J$ ]
path1 = "d:\1.pdf"7 A3 Y' \8 }& a
path2 = "d:\2.pdf"
9 e% X; v" S4 r0 C u
path3 = "d:\3.pdf"
$ `* z" J1 [& U" i5 i. U) T
2 j' t$ Z( D! H0 o
PDDoc1.Open path1
/ C5 @. e, _" Z: C' {" E& A# I) D
PDDoc2.Open path2 W2 q! U. ^' P4 N9 h$ ?2 P. c
PDDoc1.InsertPages 1, PDDoc2, 1, 1, 0
/ C4 E# j# q. O" `3 p( A
PDDoc1.Save 1, path3
* Y+ U8 ^, u. F/ s2 H( a
0 ]* j! x+ |' n: H# j/ e2 M# T

复制代码

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

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

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

Dim PDDoc1 As New AcroPDDoc, PDDoc2 As New AcroPDDoc+ \) C' W% H$ y9 a
Dim path1 As String, path2 As String, path3 As String% e; O5 Y7 L- `. d& ~
path1 = "d:\1.pdf", [: d& K6 U' x% K; {+ w
path2 = "d:\2.pdf"& a9 L6 u w$ a
path3 = "d:\3.pdf"
- L' l. ~- C& P0 `
$ h5 E& a) K% U5 q0 a
PDDoc1.Open path1* _) U' c: j7 k. }" W
PDDoc2.Open path2
( Y" p& K+ |3 _
PDDoc1.InsertPages 0, PDDoc2, 0, 1, 0
, ^# U, p( A3 g# T
PDDoc1.Save 1, path3

复制代码

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

多谢

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

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

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

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

通知

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

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

浏览过的版块