Run a macro on multiple docx. files

macropod · #7 04-09-2013, 02:49 PM

Aside from the fact you've omitted the 'If strFolder & "" & strFile <> strDocNm Then', which means the macro probably won't run to completion if you store the document containing it in the same folder you want to process, there is nothing inherently wrong with your code. Even so, your Find/Replace part could be greatly streamlined:

Code:

    With .Range.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Text = "["
      .Replacement.Text = " ~"
      .Execute Replace:=wdReplaceAll
      .Text = "]"
      .Replacement.Text = "~"
      .Execute Replace:=wdReplaceAll
      .Text = "~*~"
      .Replacement.Text = " "
      .Execute Replace:=wdReplaceAll
    End With

Are you sure the files are .docx format? By specifying that, no .doc or .docm files will be processed.

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