如何在Mac上自动导出PDF？

Question

我们在一个团队中工作。我们中的一些人在PC上，其他人在Mac上。

我想出了此潜水艇自动导出PDF（+通过PubliPosting for命名链接到Excel），它在我的PC上起作用，但在Mac上不起作用。

Sub Export_nom_lot_pdf()
'
' Export_nom_lot_pdf Macro
'
'
Dim UpDir As String
UpDir = ActiveDocument.Path
AwKN = ActiveDocument.Name
SplitAwKN = Split(AwKN, ".")
NomFichier = SplitAwKN(0)
SplitNF = Split(NomFichier, "_")
phase_nom = SplitNF(0)
lot_num = ActiveDocument.MailMerge.DataSource.DataFields(8).Value
lot_nom = ActiveDocument.MailMerge.DataSource.DataFields(9).Value
entreprise_nom = ActiveDocument.MailMerge.DataSource.DataFields(13).Value
'
ChangeFileOpenDirectory UpDir
ActiveDocument.ExportAsFixedFormat OutputFileName:=phase_nom & "_lot-" & lot_num & "_" & lot_nom & "_" & entreprise_nom, ExportFormat:=wdExportFormatPDF
Application.ScreenUpdating = True
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
End Sub 

Answer 1

您没有说出错误发生的位置，但是代码中几乎可以肯定不起作用的一件事是呼叫 exportasFixedFormat 。

如果是这样，可以说这个问题是这个问题即都不<<代码> exportasFixedFormat nor exportasFixedFormat2 似乎在Mac上工作。从那时起，情况似乎没有改变。您可以使用 saveas2 ，例如，

ActiveDocument.SaveAs2 _
  OutputFileName:=phase_nom & "_lot-" & lot_num & "_" & lot_nom & "_" & entreprise_nom, _
  FileFormat:=WdSaveFormat.wdFormatPDF

使用 exportasFixedFormat 时，不允许您使用一些可用的选项。

您的代码中还有其他一些事情可能会引起问题或可能在Windows上引起问题，如果您更改为 saveas2 ，例如

• ，如果没有保存ActivedOcument，则 Updir 将BE “” ，这将在 ChangeFileOpendirectory 中导致错误。
• 文件名中可能有特殊字符在Windows上允许使用，但在Mac上不允许
• 您将扩展名为“ .pdf”添加到名称中。 （我认为实际上不需要，但您应该检查）。

如果您需要在Windows和Mac版本上使用不同的代码，则可以使用“指令”来执行此操作，例如，

#If Mac Then
' put code for the Mac version here
#Else
' put code for all other versions here
#End If

请参见 this 和此此以获取更多信息。

一次，从Mac上的软件创建PDF的主要方式是打印到该格式。 Mac Word的当前版本还具有与Windows Word中的用户界面选项相等的（例如，将文件发送到Microsoft Service进行转换的选项。记录

我的意见 。在那里有很多差异 - 有时很小，例如在Windows上但不是MAC上的对象属性，有时甚至更大，例如在Mac上未实现的对象，有时甚至更令人困惑的情况，其中某些事物在两个上的工作方式有所不同平台

。