Little Nudge needed to get me home free

[ChuckDrago]

Hi everyone,

I am trying to get a Word document to open (so that it updates its date) and then save it to a designated folder as a pdf. I tried to adapt a great macro I got in this forum but to no avail. Here is the code, thus far:
<code/>Sub SubTest()
Dim Pth As String, Fname As String
Pth = "C:\Latex Free Holder"
Fname = "Cover Letter"
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("L:\Intranet Elements\Latex Free Masters\Latex Free Cover Letter.docx")
objWord.Visible = True
objWord.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pth & Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub</code>
The error occurs in the export statement. I tried ActiveDocument, objWord and objDoc as starters, but nothing seems to work. Errors go from Object required to Method not supported.
Any suggestions will be much appreciated, as always,
Chuck

 

[CalcSux78]

What's Up Chuck (sorry for the dad joke)

Try:

Sub Test()
Dim Pth As String, Fname As String
Pth = "C:\Latex Free Holder"[B][COLOR=#0000ff] & "\"[/COLOR][/B]
Fname = "Cover Letter"


Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("L:\Intranet Elements\Latex Free Masters\Latex Free Cover Letter.docx")
objWord.Visible = True
objWord.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Pth & Fname[COLOR=#0000ff][B] & ".pdf"[/B][/COLOR], Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[ChuckDrago]

What's Up Chuck (sorry for the dad joke)

Try:

Sub Test()
Dim Pth As String, Fname As String
Pth = "C:\Latex Free Holder"[B][COLOR=#0000ff] & "\"[/COLOR][/B]
Fname = "Cover Letter"


Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("L:\Intranet Elements\Latex Free Masters\Latex Free Cover Letter.docx")
objWord.Visible = True
objWord.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Pth & Fname[COLOR=#0000ff][B] & ".pdf"[/B][/COLOR], Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

No good, sorry.

 

[CalcSux78]

Sorry, I didn't test fully since I don't have an "L drive".

ExportAsFixedFormat is a method of Word.Document (objDoc), not Word.Application (objWord). So adjust your last line to this:

objDoc.ExportAsFixedFormat OutputFileName:=Pth & Fname & ".pdf", _
    ExportFormat:=wdExportFormatPDF

 

[ChuckDrago]

Sorry, I didn't test fully since I don't have an "L drive".

ExportAsFixedFormat is a method of Word.Document (objDoc), not Word.Application (objWord). So adjust your last line to this:

objDoc.ExportAsFixedFormat OutputFileName:=Pth & Fname & ".pdf", _
    ExportFormat:=wdExportFormatPDF

No cigar... It reports Error 5 (Invalid procedure, call or argument)

 

[ChuckDrago]

No cigar... It reports Error 5 (Invalid procedure, call or argument)

Latest and greatest: Whoever needs to do what I tried, check this https://www.devhut.net/2016/02/01/vba-save-a-word-document-as-a-pdf/ Their code, while a bit extensive, worked flawlessly.
Thank you for your assistance CalSux78.
Chuck