后缀.pub （批量转PDF）

1055751654 · 发表于 2020-4-9 11:27

本帖最后由 1055751654 于 2020-4-9 15:19 编辑

来求助老师写个代码，有开发工具，里面能装代码，就是不知道怎么写，谢谢老师

魂断蓝桥 · 发表于 2020-4-9 14:46

Sub a()
Dim myf, tof
Dim appPub As New Publisher.Application
myf = Dir(Application.ActiveDocument.Path & "*.pub")
Do While myf <> "" And myf <> "转换PDF.pub"
      tof = Application.ActiveDocument.Path & Left(myf, Len(myf) - 3) & "pdf"
      appPub.Open Application.ActiveDocument.Path & myf
      appPub.ActiveDocument.ExportAsFixedFormat Format:=pbFixedFormatTypePDF, Filename:=tof
      appPub.ActiveDocument.Close
      myf = Dir()
Loop
Set appPub = Nothing
End Sub

A.rar (57.89 KB, 下载次数: 6)

1055751654 · 发表于 2020-4-9 14:55

魂断蓝桥发表于 2020-4-9 14:46
Sub a()
Dim myf, tof
Dim appPub As New Publisher.Application

谢谢老师，好厉害呀

1055751654 · 发表于 2020-4-9 15:19

本帖最后由 1055751654 于 2020-4-9 15:22 编辑

哇塞，太完美了

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

[已解决] 后缀.pub （批量转PDF）

评分