将Word文档另存为pdf时在Excel中出现运行时错误5

Question

So I've been running this code on a couple computers for awhile. However, the spreadsheet has begun to crash and refuses to save, so I created a new one, with everything the same. It crashes as I try and save my word document as a PDF, specifically, this line

            wrdDoc.ExportAsFixedFormat OutputFileName:=Path & "Lot " & Lot_Number & " " & Address & " " & Suburb & " " & Job & " - s40" & ".pdf", _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False

Here is my full code, My apologies for lack of comments etc, it was written to be used only by me.

Sub AutoFill()

ScreenUpdating = False

Dim Job As String
Dim Rail As String
Dim Panel_Type As String
Dim Address As String
Dim Lot_Number As Integer
Dim Suburb As String
Dim Town As String
Dim Town_Check As String
Dim Current_Date As String
Dim DTC As String
Dim WordFileName As String
Dim Path As String
Dim i As Integer
Dim wrdApp As Object
Dim wrdDoc As Object

Dim count As Integer
count = Range("Solarcount")


Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    wrdApp.DisplayAlerts = wdAlertsNone

For i = 1 To count
    Job = Range("WordArray").Cells(i, 1)
    Rail = Range("WordArray").Cells(i, 2)
    Panel_Type = Range("WordArray").Cells(i, 3)
    Lot_Number = Range("WordArray").Cells(i, 4)
    Suburb = Range("WordArray").Cells(i, 7)
    Address = Range("WordArray").Cells(i, 11)
    Town = Range("WordArray").Cells(i, 10)
    Town_Check = Range("WordArray").Cells(i, 12)
    Current_Date = Range("WordArray").Cells(i, 14)
    DTC = Range("WordArray").Cells(i, 15)

    Path = Range("Path")

    Select Case Rail
        Case "Blue Sun"
            WordFileName = Range("FileNames").Cells(1, 1)
        Case "Clenergy"
            WordFileName = Range("FileNames").Cells(2, 1)
        Case "Conergy"
            WordFileName = Range("FileNames").Cells(3, 1)
        Case "Sunlock"
            WordFileName = Range("FileNames").Cells(4, 1)
    End Select

    Set wrdDoc = wrdApp.Documents.Open(Path & WordFileName, , True)
    With wrdDoc
        With .Bookmarks
            .Item("Address").Range = Address
            .Item("Current_date").Range = Current_Date
            .Item("Job_1").Range = Job
            .Item("Job_2").Range = Job
            .Item("Lot_Number").Range = Lot_Number
            .Item("Panel_Type").Range = Panel_Type
            .Item("Panel_Type_2").Range = Panel_Type
            .Item("Suburb").Range = Suburb
            .Item("Town").Range = Town
            .Item("Town_check").Range = Town_Check
            If Customer = "Sunlock" Then
                .Item("DTC").Range = DTC
            End If
        End With

        wrdDoc.SaveAs (Path & "Lot " & Lot_Number & " " & Address & " " & Suburb & " " & Job & " - s40" & ".doc")
        wrdDoc.ExportAsFixedFormat OutputFileName:=Path & "Lot " & Lot_Number & " " & Address & " " & Suburb & " " & Job & " - s40" & ".pdf", _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False

        .Close ' close the document
    End With
Next

wrdApp.Quit ' close the Word application
Set wrdDoc = Nothing
Set wrdApp = Nothing

ScreenUpdating = True

End Sub

Answer 1

Solved it.

Needed to include the Microsoft Word 14.0 Object Library