How to find&replace several items at once?

macropod · #1 11-29-2013, 08:58 PM

OK, now that I can see what you have, you could use a macro like:

Code:

Sub BulkFindReplace()
Application.ScreenUpdating = False
Dim FList As String, RList As String, j As Long
FList = "¸|î|å|?|®|ß"
RList = "Ç|é|ä|ë|å|ñ"
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Format = False
  .Forward = True
  .MatchCase = True
  .MatchWholeWord = False
   'Process each item from the Find/Replace Lists
  For j = 0 To UBound(Split(FList, "|"))
    .Text = Split(FList, "|")(j)
    .Replacement.Text = Split(RList, "|")(j)
    .Execute Replace:=wdReplaceAll
  Next
End With
Application.ScreenUpdating = True
End Sub

Note that every entry in the Find list (FList) must have a corresponding entry - even if empty - in the Replace list (RList)

Srivas · #2 11-30-2013, 03:29 AM

Wow! Thanks man! That's what I was looking for. It works... but there is a problem. Somehow when I insert the necessary characters into the macro it will display question marks instead. Can I replace the symbols with character codes? If so then how?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I find and replace multiple items at once?	redzan	Word VBA	1	05-16-2013 08:25 AM
Find and Replace	kjxavier	Word	1	03-31-2012 06:57 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM
Is there a way to use "find/replace" to find italics words?	slayda	Word	3	09-14-2011 02:16 PM
Help with find and replace or query and replace	shabbaranks	Excel	4	03-19-2011 08:38 AM