I am trying to do a global replace of all occurrences of the string "Comp" with the string "&&&" everywhere in the first table in a Word document using the following code executed from Excel:

Sub ScanOutlines()
EditWordTable_Method2 "C:\Test \", "Test"
End Sub
Public Sub EditWordTable_Method2(sDocPath As String, wdDocName As String)
Dim WordDocument As Object
Dim wdApp As Object
Set wdApp = GetObject("", "Word.Application")
DoEvents
wdApp.Application.Documents.Open sDocPath & wdDocName & ".doc"
wdApp.Application.Visible = True
wdApp.ActiveDocument.Tables(1).Select
'Change "Comp" to "&&&" . . .
wdApp.Selection.Find.ClearFormatting
wdApp.Selection.Find.Replacement.ClearFormatting
With wdApp.Selection.Find
.Text = "Comp"
.Replacement.Text = "&&&"
.Forward = True
.Wrap = WdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wdApp.Selection.Find.Execute Replace:=wdReplaceAll
DoEvents
wdApp.ActiveDocument.Tables(1).Range.Copy
Sheets.Add.Name = "Temp"
ActiveSheet.PasteSpecial Format:="HTML", Link:=False,
DisplayAsIcon:=False

The code successfully opens the Word file, and selects the table but does not perform the replace. Instead, the "Replace:=wdReplaceAll" execution only selects the first instance of "Comp" in the table but does not perform any actual replaces. The code after the replace runs fine also, i.e. the table gets copied and pasted into the Excel sheet "Temp" just fine. But for some reason, the code refuses to perform any edits to the Word table. Anyone know what's wrong here? Thanks!