Mass replacing word(s)

macropod · #1 02-18-2013, 07:31 PM

Hir Gerry,

Quote:

Originally Posted by fumei

If it is a simple replace over a number of files, using DIR would be the simplest way to go.

I'm sure you realize it's a little more complicated than that ... I suspect Greg's Addin uses the Dir command for the batch processing option.

fumei · #2 02-19-2013, 01:55 AM

Hi Paul. I am sure Greg's addin does use DIR. It is a very useful tool.

My point was that if it is a simple (say a single word or phrase) operation, then it actually is NOT all that complicated.

Code:

Sub ChangeSomething()
Dim file
Dim path As String
Dim r As Range
path = "c:\ThisOne\"
file = Dir(path & "*.doc")
Do While file <> ""
   Documents.Open path & file
   Set r = ActiveDocument.Range
   r.Find.Execute FindText:="this phrase", _
      ReplaceWith:="booga booga whatever", Replace:=wdReplaceAll
   ActiveDocument.Save
   ActiveDocument.Close
   file = Dir()
Loop
End Sub

All Word docs in the ThisOne folder get the phrase changed. Yes, for sure, the addin is handy, and it works. However, again, if it is a simple operation, then performing that action on all files in a folder is also simple.

The OP asked: "is there any way to replace some text in multiple files at one time with a new text"

The answer of course is, yes.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mass editing of hyperlinks	Michael137	PowerPoint	0	10-29-2012 02:44 AM
Prevent OOO reply when sending a mass email	tdmag62	Outlook	1	11-30-2011 09:27 PM
Word replacing problem!!!!	Jamal NUMAN	Word	2	07-08-2011 03:56 AM
Mass e-mail seperation	daryl	Mail Merge	1	03-23-2010 03:45 PM
Mass attachment downloads?	dpool2002	Outlook	1	06-21-2006 02:11 PM