Find and Replace within Word Tables

[ajhez]

Hi guys,

Any ideas why the below find and replace code isn't finding '£' located in tables within a word document?

The code finds and replaces all of the £ into € that are in the body of the document, but for some reason it doesn't find all of the '£' that are in word tables with the document.



Private Sub Test()
If ComboBox14.Text <> "€" Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "£"
.Replacement.Text = "€"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Any ideas?

Thanks,
AJHEZ

[mana]

Option Explicit

Sub test()
Dim t As Table

For Each t In ActiveDocument.Tables
t.Range.Find.Execute FindText:="aa", ReplaceWith:="bb", Replace:=wdReplaceAll
Next

End Sub

[ajhez]

Thanks, mana.

Would this also find the values outside the tables?

Both values inside and outside the tables need to be found and replaced - is it possible to do this in one macro?

[mana]

???
>Title : Find and Replace within Word Tables


Sub test2()
ActiveDocument.Range.Find.Execute FindText:="aa", ReplaceWith:="bb", Replace:=wdReplaceAll
End Sub

[ajhez]

I think the issue may actually be that it is failing to change £ to € where the text has a number straight after it.

e.g. it will change £ 1,000 (where there is a space) but it will not change £1,000...

[Kilroy]

Minor changes



Sub Test()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "£"
.Replacement.Text = "€"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

The code Mana posted works perfect as well when you put your characters in.


Sub test2()
ActiveDocument.Range.Find.Execute FindText:="£", ReplaceWith:="€", Replace:=wdReplaceAll
End Sub

[ajhez]

Thanks, both - this has been a massive help!

AJHEZ