How to save Word documents as PDFs using Excel macro?

[utexas24]

Hi all,

I am having trouble saving Word documents that I am opening and manipulating through an Excel macro as a .pdf. I've tried several ways and it is not working.
Right now it kind of works, but it asks me to save the changes for each file. I am looping this macro through several files so this is not convenient for me. Thanks for your help!

Dim wdApp As Object
Dim wdDoc As Object
Dim fileloc As String
    
fileloc = "Macintosh HD:Users:X:Y:Z.docx" 'Replaced folder names with X Y Z for simplicity
    
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open _
      (Filename:=fileloc)

***      
*several lines of code where I manipulate the word doc*
***

wdDoc.SaveAs Filename:="Macintosh HD:Users:X:Y:ZZ.docx" 

'Saves files as pdf but asks to accept for each file    
With Dialogs(wdDialogFileSaveAs)
     .Format = wdFormatPDF
     .Show
End With

wdDoc.Close savechanges:=False
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing

I have tried using wdDoc.ExportAsFixedFormat a few different ways and it hasn't worked.

    wdDoc.ExportAsFixedFormat OutputFileName:= _
        Replace(wdDoc.FullName, ".docx", ".pdf"), _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
        wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

  wdDoc.SaveAs2 Filename:="Text.pdf", _
        FileFormat:=wdFormatPDF

 
wdDoc.ExportAsFixedFormat OutputFileName:="Macintosh HD:Users:X:Y:ZZ.pdf", _
      ExportFormat:=wdExportFormatPDF

EDIT: I do have the Microsoft Word Object Library enabled in references on excel

[Keebellah]

My guess is do not even neet the Object Library, furthermore, are working on a MAC? Then mention this!

Have you tried recording a macro to save one file?
You can then edit the macro to your neeeds

[Keebellah]

I wonder if you even Googled for an answer:
http://stackoverflow.com/questions/1...at-alternative
http://ideophone.org/one-click-save-...007-2010-2013/
Try one of the above links

[utexas24]

Yes I did google. The second link is where I found the code I currently have (with the Save as window). From this same link I tried "No questions asked" version (the code is written up there in my original question) but I can't get it to work. I have tried copying the exact code and also tried it by replacing "ActiveDocument" with my object (wdDoc) but I get the same error "Object doesn't support this property or method"

[utexas24]

It is in my question title but I did not write it in the description...the macro is written in Excel, it is not a macro in Word.

[Keebellah]

Like I said, have you tried recording a macro?
Well I did with Word (Windows) and this is the result

Sub Save2PDF()
'
' Save2PDF Macro
'
'
Dim myFolder    As String
Dim myFile      As String

'*  if you wqnt to use the current document's path
'*  myFolder = ActiveDocument.Path

myFolder = "G:\Temp"

myFile = ActiveDocument.Name
    
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        myFolder & Application.PathSeparator & Replace(myFile, ".docx", ".pdf"), ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
        wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
        IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
        True, UseISO19005_1:=False
    ChangeFileOpenDirectory myFolder
End Sub

It works here, no prompts nothing

[utexas24]

Ok the problem is definitely that I am on a Mac...because there is no export .PDF button. The only option are "Print as PDF" which when I record gives me this:

    Application.PrintOut fileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=False

But when I run it as a macro it tries to actually print the document to a printer, not as .PDF.

The other option is to do File...Save as... .PDF but when I record this I do not get anything besides this:

    ChangeFileOpenDirectory _
        "Macintosh HD:Users:X:Y:Z:"

Which I think is just changing where the file is saved, not the actual option of a .PDF.

The only way I have gotten so far is using:

With Dialogs(wdDialogFileSaveAs)
     .Format = wdFormatPDF
     .Show
End With

However I need to select "Save" each time. And when I try to loop it through several files, it is able to do the first one but has an error on the next one.

[Keebellah]

It's not a button it's VBA code
My guess if that it sholud be there too, but .... a MAC is like Chineese for me