Введите 5 ошибок при использовании ExportAsFixedFormat

Question

Кажется, что это работает для всех остальных, но мой exportasfixedformat всегда вызывает ошибку типа 5.

Я пробовал: подобный код с другими, проверяя все было затемнено, используя _ и многое другое, ноЯ просто не могу разобраться с этим.

Dim wordApp As Object
Dim wordDoc As Object
Dim newName As String
Dim FilE As String
Dim filePath As String

Public Sub MainCode()
filePath = "X:\Invoices\10.4.1 RFPOs\"
FilE = "X:\Invoices\10.4.1 RFPOs\Supporting Evidence Template v1.docx"
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Set wordDoc = wordApp.documents.Open(FilE)
newName = "THIS SMELLS"
wordDoc.CustomDocumentProperties("PO_Item").Value = newName
wordDoc.Fields.Update
wordDoc.ExportAsFixedFormat outputfilename:=filePath & newName & ".pdf", 
exportformat:=wdExportFormatPDF
wordDoc.Close
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing

End Sub

Ошибка времени выполнения '5': недопустимая процедура или аргумент.

Answer 1

, если ссылка на Word была там все время, ошибка 5 также будет возникать, если CustomDocumentProperties «PO_Item» не добавлен.Я воспроизвел ошибку 5 в этой строке.

Сделайте это

wordDoc.CustomDocumentProperties.Add _
    Name:="PO_Item", LinkToContent:=False, Value:=newName, _
    Type:=msoPropertyTypeString

Также держите в строке

wordDoc.ExportAsFixedFormat outputfilename:=filePath & newName & ".pdf", exportformat:=wdExportFormatPDF

, и это проверено и работает.

Answer 2

У вас есть набор ссылок на библиотеку объектов Microsoft Word в разделе Инструменты> Рекомендации? - BigBen 1 час назад

СПАСИБО БЕН! Я дважды просмотрел список и подумал, что ссылка на Office 16.0 была правильной - это большой список, и только после того, как ваш комментарий вернулся снова и обнаружил, что «слово» было там все время:)