Microsoft Office Forums - View Single Post - [Solved] Run Macro for DOC files in different folders

macropod · 01-29-2019, 01:39 PM

For PDF creation, you'd uncomment the line:

Code:

    '.SaveAs2 FileName:=Split(.Fullname, ".doc")(0) & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False

replace the line:

Code:

   Call RefreshFields(wdDoc)

with:

Code:

   .Range.Font.Size = 11

and change the line:

Code:

   .Close SaveChanges:=True

to:

Code:

   .Close SaveChanges:=False

You also don't need the RefreshFields sub.