saveas pdf from excel vba

[pamtupac]

hi all,

i'm trying to write a macro that will save my already opened word doc as a PDF and closes the doc from my excel when i click a button. here is my code:

Private Sub CommandButton4_Click()
'name from cell in sheet
cName = Range("a1").Value

Dim appWD As Word.Application
Set appWD = GetObject(, "Word.Application")
appWD.Visible = True

Set wdDoc = appWD.Documents.Open("C:\Users\sesa460426\Documents\Quotes\Tool\QuickQuoteDoc.docx")
With wdDoc
.SaveAs ("C:\Users\sesa460426\Documents\Quotes") & cName & (".pdf")
.Close
End With
wdApp.Quit
End Sub

i keep getting run time error 91: object variable or with block variable not set.

it is saving it as a pdf but i can not open this pdf so i'm wondering if i have to use a different method to save it as pdf or is just cuz the runtime error in my code.

Thank you in advance

 

[John_w]

You need ExportAsFixedFormat rather than SaveAs:

Private Sub CommandButton4_Click()

    Dim wordApp As Word.Application
    Dim cName As String
    
    cName = ActiveSheet.Range("A1").Value

    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    On Error GoTo 0
    
    If Not wordApp Is Nothing Then
        wordApp.ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Users\sesa460426\Documents\Quotes" & cName & ".pdf", _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False
        wordApp.Quit False
    Else
        MsgBox "A Word document isn't open"
    End If

End Sub

 

[pamtupac]

thank you so much! i'm very new to vba and while i understand the logic it's the syntax that i usually have issues with. Thanks again