Question

我有一个Excel链接的Word文档以及Excel中的VBA代码。在代码序列的末尾，我想将Word文档保存在指定的文件夹中，文件格式为“ Word文档”（aka doc或docx），然后保存为PDF文档。

我试图通过这样做，但是我得到的输出文件没有“任何”格式。另外，在文件名中指定文件格式也无济于事。

此外，尝试将文件导出为PDF也不起作用（无效过程...）

有什么建议吗？

最好，弗朗兹

Sub WordErstellen(rechnungsnummer As Variant, firma As Variant, name As     Variant, datum As Variant)

Dim WordApp As Object
Dim dateiname, pfad As Variant

path_word = "C:\mypath\Word\"
path_pdf = "C:\mypath\PDF\"

myfilename = rechnungsnummer & "_" & firma & "_" & name & "_" & datum

Set WordApp = CreateObject("Word.Application")
Set doc = WordApp.Documents.Add("C:\mypath\mytemplate.docm")
WordApp.Visible = True

doc.Activate

'Save

doc.SaveAs2 Filename:=path_word & myfilename, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=15

doc.ExportAsFixedFormat OutputFileName:=path_pdf & myfilename, _
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


End Sub

我试图通过这样做，但是我得到的输出文件没有“任何”格式。另外，在文件名中指定文件格式也无济于事。

此外，尝试将文件导出为PDF也不起作用（无效过程...）

Answer 1

尝试：

doc.SaveAs2 path_word & myfilename & ".docx", 12, False, "", True
doc.SaveAs2 path_word & myfilename & ".pdf", 17, False, "", True

PS：您不需要：

doc.Activate

Word的SaveAs2对话框不起作用（文件格式错误）

1 个答案: