Run Macro for DOC files in different folders

[dita]

Hello!

I´m looking for a Macro who can make the following:

1.- Open DOC files (version 2010) in different folders under the same level

For example:
\folder A\
\subfolder_1\doc1.doc
\subfolder_2\doc2.doc
\subfolder_3\doc3.doc
\subfolder_4\doc4.doc

2.- Run a macro that it changes the font size from 8pt to 11pt for all of them



3.- After that, create a PDF for all DOC files

Would that be possible?

[macropod]

See, for example: https://www.msofficeforums.com/word-...tml#post125011
The code there doesn't do the font changes & pdf creation you want, but it does show how to loop through all files in a nested series of folders.

It's also not clear from your post whether you want a single PDF for all files in the folder, or a separate PDF for each file: the latter is easy; the former could get complicated if different page layouts have been used.

[dita]

Great, I will look into this thread and will see how the macro works for nested series of folders.

Sorry for being unclear. I want a separate PDF for each file.

[macropod]

For PDF creation, you'd uncomment the line:

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

replace the line:

   Call RefreshFields(wdDoc)

with:

   .Range.Font.Size = 11

and change the line:

   .Close SaveChanges:=True

to:

   .Close SaveChanges:=False

You also don't need the RefreshFields sub.