#1
|
|||
|
|||
find replace to all open documents
Hi.
I am looking for a macro to find and replace text between all open documents. I found a lot of macros on the internet, but they all open the files and after the replacement close them. And I want the files to stay open after the replacment. Is it possible to change such a macro so that instead of selecting a folder it will perform the operation on the files that are already open? thanks. Yacov |
#2
|
||||
|
||||
Looping through currently open documents is easy
Code:
Sub DocsOpen() Dim aDoc As Document For Each aDoc In Application.Documents MsgBox aDoc.Name Next aDoc End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Thanks a lot.
I did not quite understand the logic, when to run the macro because sometimes it works and sometimes it does not work for me. should I perform a search / replace in one file anf only after that need to run the macro? |
#4
|
|||
|
|||
I tried my luck, and I have no luck :-)
Help would be appreciated Sub MFindReplace() Dim aDoc As Document Dim strFindText As String Dim strReplaceText As String With Selection .HomeKey Unit:=wdStory With Selection.Find .Text = strFindText .Replacement.Text = strReplaceText .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll For Each aDoc In Application.Documents MsgBox aDoc.Name Next aDoc End With End Sub |
#5
|
||||
|
||||
Like this
Code:
Sub MFindReplace() Dim aDoc As Document, strFindText As String, strReplaceText As String strFindText = "Finders" strReplaceText = "Keepers" For Each aDoc In Application.Documents With aDoc.Range.Find .Text = strFindText .Replacement.Text = strReplaceText .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With Next aDoc End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#6
|
|||
|
|||
Thanks a lot Guessed. works great
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Find or replace in all word documents | jkathir | Word | 6 | 08-30-2019 07:27 AM |
Find & Replace text in Field Code across multiple documents | RPM7 | Word VBA | 6 | 05-12-2017 12:58 AM |
Find & replace footer text in a folder of Word 2010 documents | kennethc | Word | 3 | 03-28-2015 02:49 AM |
How do I find/replace the same word in multiple documents? | Ineedhelp! | Word | 3 | 03-04-2014 03:50 PM |
Find and replace multiple documents change style | BaPW | Word | 0 | 08-14-2011 11:12 AM |