У меня есть документ Word, связанный с Excel, с кодом VBA в Excel.В конце кодовой последовательности я хочу сохранить документ Word в указанной папке и с форматом файла «Документ Word» (он же doc или docx), а затем в виде документа PDF.
Я пытаюсь это сделатьчерез, но выходной файл, который я получаю, не имеет никакого формата.Также не помогает указание формата файла в имени файла.
Кроме того, попытка экспортировать файл в формате PDF также не работает (недопустимая процедура ...)
Есть предложения?
Best, Franzi
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 также не работает (недопустимая процедура ...)