View Single Post
  #2  
Old January 3rd, 2010, 04:00 AM posted to microsoft.public.word.tables
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default Replace Wa(end of cell) with WA(end of cell) in table (Word 2000)

You may need to use a macro. The following code will do it for all of the
cells in the table in which the selection is located

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" wrote in message
...
I want to find and replace Wa(end of cell mark) with WA(end of cell mark)
in
a table. I can't find the end of cell mark as a special character to use
in
the find and replace command in Word 2000. I have other such tasks to
perform. Can someone help me, please?