Excel中的VB宏可使用單元格中的名稱將活動文檔保存為PDF

Question

我是該論壇的新手，很高興能參與其中。 我已經遇到這個特定問題大約三個星期了。

我想做的是創建一個為我自動化功能的宏。 我必須一直處理大量合同，並在每個.doc上估算信息（例如名稱，地址和ID號），而不是將該文檔另存為PDF確實很耗時。 因此，我嘗試創建一個excel表，在該表中我可以將自動保存到.doc的信息分配給該表，此復制+粘貼操作是通過特殊的粘貼功能完成的（如果我更改了excel中的某些內容，它就會更改.doc，因此我擁有了整個合同中輸入了一些空格，當我在excel中鍵入時，這些空格會被填充）。

用適當的信息填充excel中的單元格后，我需要使用其中一個單元格的信息（在這種情況下，要輸入公司名稱的特定單元格）將“ doc另存為” PDF為PDF，然后我需要o將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

Answer 1

嘗試將問題行的開頭更改為：

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

並保持其他部分不變。

評論后編輯：

回到“另存為”方法，然后嘗試以下方法：

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

這次嘗試使用新指令而不是復雜的'.SaveAs`方法。