excel中的VBA宏将活动文档保存为PDF，名称来自单元格答案

【问题标题】：VB macro in excel to save an active doc to PDF with name from a Cellexcel中的VBA宏将活动文档保存为PDF，名称来自单元格
【发布时间】：2013-03-08 15:18:47
【问题描述】：

我是论坛的新手，很高兴成为其中的一员。我已经有这个特定的问题大约三周了。

我要做的是创建一个为我自动执行功能的宏。我必须一直处理大量合同并在每个 .doc 上输入信息（如姓名、地址和 ID 号），而不是将该文档保存为 PDF 非常耗时。所以我尝试创建一个excel表，我可以在其中输入自动保存到.doc的信息，这个复制+粘贴是通过特殊的粘贴功能完成的（如果我在excel中更改某些内容，它会更改.doc，所以我有整个在我输入 excel 时填写了一些空白的合同）。

用适当的信息填充 excel 中的单元格后，我需要将该文档“另存为”为 PDF，其中包含来自其中一个单元格的信息（在这种情况下，特定单元格是输入公司名称的位置），然后我需要将该 excel 表复制到一个新选项卡中，该选项卡将具有公司名称（保存 .doc 的同一单元格）。

这是我目前所拥有的：

Sub Autocontratos()

Set appWD = CreateObject("Word.Application")
appWD.Visible = True

appWD.Documents.Open Filename:="C:\Users\lguimaraes\Dropbox\Trabalho em equipe\Laurence\Contracts.docx"

appWD.ActiveDocument.SaveAs Filename:= _
    ThisWorkbook.Path & "/" & "Contratos" & Range("C2").pdf, ExportFormat:= _
    wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
    ChangeFileOpenDirectory "C:\Users\lguimaraes\Dropbox\Trabalho em equipe\Laurence\Contratos"

appWD.ActiveDocument.Close
appWD.Quit

End Sub

【问题讨论】：

你已经描述了你的想法。请描述您的问题，我们可以尽力帮助您。
嘿，Kaz，对不起，或者没有提出我的问题。问题是，当我运行上面的程序时，它显示执行时间错误 438。对象不接受属性或方法。比它在 appWD.ActiveDocument.SaveAs Filename 之后照亮本节中的所有内容
如果我删除了 appWD。在 appWD.ActiveDocument.SaveAs Filename 上比它说的错误是 Compilation error, named argument has not been found

标签： excel vba pdf save doc

【解决方案1】：

尝试将问题行的开头改为：

appWD.ActiveDocument.ExportAsFixedFormat Filename:= _
     ThisWorkbook.Path & "\" & "Contratos" & Range("C2") & ".pdf", ExportFormat:= _

并保持其他部分相同。

评论后编辑：

回到“另存为”方法并尝试以下方法：

appWD.ActiveDocument.SaveAs _
ThisWorkbook.Path & "\" & "Contratos" & Range("C2") & ".pdf", FileFormat:=17

这次尝试使用新指令而不是复杂的 '.SaveAs` 方法。

【讨论】：

嘿KazJaw。我进行了更改，但发生了相同的运行时错误 438。
请查看新提案