Prev: A macro listbox in the quick launch area
Next: Resetting Form Fields
From: Diamonds_Mine on 19 Mar 2010 12:17
Word 2003 - I found the great links below that allow you to find/replace text
in multiple *.doc files, but I'd like to find/replace text in multiple
template (*.dot) files. Is there different code for template files? Thanks
in advance for you responses.

http://www.gmayor.com/batch_replace.htm
http://gregmaxey.mvps.org/VBA_Find_And_Replace.htm

From: Greg Maxey on 19 Mar 2010 14:52
You will need to change a line of code:

Open the template and open the VB Editor (ALT+F11)

Open the UserForm module "UserInterface." In the proceure "Private Sub
Processor" change:

myFile = Dir$(PathToUse & "*.doc")

to:

myFile = Dir$(PathToUse & "*.dot")


"Diamonds_Mine" <DiamondsMine(a)discussions.microsoft.com> wrote in message
news:F93D0CD0-56D3-4B8D-AB0C-5007EBA75C47(a)microsoft.com...
> Word 2003 - I found the great links below that allow you to find/replace
> text
> in multiple *.doc files, but I'd like to find/replace text in multiple
> template (*.dot) files. Is there different code for template files?
> Thanks
> in advance for you responses.
>
> http://www.gmayor.com/batch_replace.htm
> http://gregmaxey.mvps.org/VBA_Find_And_Replace.htm
>


From: Krystal on 22 Mar 2010 14:21
Is there a way to utilize this macro for use to change file names as well?

"Greg Maxey" wrote:

> You will need to change a line of code:
>
> Open the template and open the VB Editor (ALT+F11)
>
> Open the UserForm module "UserInterface." In the proceure "Private Sub
> Processor" change:
>
> myFile = Dir$(PathToUse & "*.doc")
>
> to:
>
> myFile = Dir$(PathToUse & "*.dot")
>
>
> "Diamonds_Mine" <DiamondsMine(a)discussions.microsoft.com> wrote in message
> news:F93D0CD0-56D3-4B8D-AB0C-5007EBA75C47(a)microsoft.com...
> > Word 2003 - I found the great links below that allow you to find/replace
> > text
> > in multiple *.doc files, but I'd like to find/replace text in multiple
> > template (*.dot) files. Is there different code for template files?
> > Thanks
> > in advance for you responses.
> >
> > http://www.gmayor.com/batch_replace.htm
> > http://gregmaxey.mvps.org/VBA_Find_And_Replace.htm
> >
>
>
> .
>
From: Greg Maxey on 22 Mar 2010 14:59
See: http://gregmaxey.mvps.org/Batch_Rename_Files.htm

Krystal wrote:
> Is there a way to utilize this macro for use to change file names as
> well?
>
> "Greg Maxey" wrote:
>
>> You will need to change a line of code:
>>
>> Open the template and open the VB Editor (ALT+F11)
>>
>> Open the UserForm module "UserInterface." In the proceure "Private
>> Sub Processor" change:
>>
>> myFile = Dir$(PathToUse & "*.doc")
>>
>> to:
>>
>> myFile = Dir$(PathToUse & "*.dot")
>>
>>
>> "Diamonds_Mine" <DiamondsMine(a)discussions.microsoft.com> wrote in
>> message news:F93D0CD0-56D3-4B8D-AB0C-5007EBA75C47(a)microsoft.com...
>>> Word 2003 - I found the great links below that allow you to
>>> find/replace text
>>> in multiple *.doc files, but I'd like to find/replace text in
>>> multiple template (*.dot) files. Is there different code for
>>> template files? Thanks
>>> in advance for you responses.
>>>
>>> http://www.gmayor.com/batch_replace.htm
>>> http://gregmaxey.mvps.org/VBA_Find_And_Replace.htm
>>>
>>
>>
>> .


 | 
Pages: 1
Prev: A macro listbox in the quick launch area
Next: Resetting Form Fields