Hello everyone,


I have created a macro to change the font properties in a document but would like to run the same macro in all DOC files placed in a specific folder.


Is there any code to do that in a batch process?


If yes, which code should I use for that and where/how to include it in the macro below?


Note that Macro should work for .DOC formats although I also will be use it for .DOCX.


Many thanks!


Sub Macro1()
With ActiveDocument.Styles("Normal").Font
.NameFarEast = "Calibri"
End With
With ActiveDocument.Styles("Normal")
.AutomaticallyUpdate = False
.BaseStyle = ""


.NextParagraphStyle = "Normal"
End With
End Sub