Run a macro on multiple docx. files

macropod · #28 12-15-2022, 04:10 PM

The code in post #25 already executes a Find/Replace, including in headers & footers, in all documents in a folder. All you need do is modify the Update(Rng As Range) sub, thus:

Code:

Sub Update(Rng As Range)
With Rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Format = False
  .Forward = True
  .Wrap = wdFindContinue
  .Text = "ICU Pavilion"
  .Replacement.Text = "ICU Pavilion Increment 5"
  .Execute Replace:=wdReplaceAll
  .Text = "DR 26"
  .Replacement.Text = "DR 44"
  .Execute Replace:=wdReplaceAll
  .Text = "10/03/2022"
  .Replacement.Text = "01/10/2023"
  .Execute Replace:=wdReplaceAll
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to open Docx files?	mond_bees	Word	12	08-29-2012 03:32 AM
convert multiple csv files to multiple excel files	mit	Excel	1	06-14-2011 10:15 AM
looking for macro for multiple files	bolk	Word	3	05-03-2011 05:46 AM
macro to pull data from multiple files	psrs0810	Excel	2	10-25-2010 01:49 PM
Icon for docx files	Jazz43	Word	2	10-20-2009 08:34 PM