How To Apply A VBA Macro to All Subfolders in a Directory of a docx. Extension

gmaxey · #1 09-11-2015, 06:18 AM

I've not looked at Graham's code in awhile, but we worked on this together. I'm pretty sure that you will need to change your Sub to a Function in this format:

Code:

Function FontChangeArial16Blue(ByRef oDoc As Word.Document) As Boolean
  On Error GoTo Err_Handler
  With oDoc.Range.Font
      .Size = 16
      .Name = "Arial Unicode MS"
      .Color = wdColorBlue
   End With
  FontChangeArial16Blue = True
lbl_Exit:
  Exit Function
Err_Handler:
  FontChangeArial16Blue = False
  Resume lbl_Exit
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Run a macro on multiple docx. files	Peter Carter	Word VBA	27	12-15-2022 04:10 PM
Help - Need Macro to Apply Blur	SSL	PowerPoint	6	07-26-2015 08:59 AM
.wda file extension added after .pdf, .docx, .xls, etc.	GaryofLG	Outlook	1	06-07-2015 11:13 PM
Macro to apply style to selected tables	ubns	Word	1	08-02-2012 04:09 AM
Macro to loop in subfolders, change links, export xml data	Catalin.B	Excel Programming	2	09-08-2011 11:37 PM