Dim i As Long, j As Long
Dim rng As Range
With Selection.Tables(1)
For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
Set rng = .Cell(i, j).Range
rng.End = rng.End - 1
If Right(rng.Text, 2) = "Wa" Then
rng.Text = Left(rng.Text, Len(rng.Text) - 2) & "WA"
End If
Next j
Next i
End With
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"MathKing" <Math...@discussions.microsoft.com> wrote in message
news:74EDF920-AC2B-41FA...@microsoft.com...
Find: Wa^10
Replace: WA^10
with 'use wildcards'. Do note that this will also change 'Wa' immediately preceding paragraph marks elsewhere in the document if the
Find/Replace isn't limited to the table (eg by selecting the table).
--
Cheers
macropod
[Microsoft MVP - Word]
"MathKing" <Math...@discussions.microsoft.com> wrote in message news:74EDF920-AC2B-41FA...@microsoft.com...