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

结束子

运行时错误“ 5”：无效的过程或参数。

Answer 1

您是否对“工具”下的“ Microsoft Word对象库”设置了引用> 参考？ – BigBen 1小时前

感谢本！我对列表进行了两次搜索，并认为Office 16.0参考是正确的-这是一个很大的列表，只有在您的评论再次返回并发现“ word”一直存在的时候：）

Answer 2

如果一直都存在对Word的引用，如果未添加CustomDocumentProperties“ PO_Item”，也会引发错误5。我在该行上重现了错误5。

制作

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

也要保持一致

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

，它已经过测试并且可以正常工作。

使用ExportAsFixedFormat时出现5类错误

2 个答案: