Hi Klaus,

Thank you for your macro...it's much appreciated.

I can see that the text is successfully being moved to the right hand column
but it is doing 2 things that I don't want it to do :-

1) It is COPYING the text as opposed to MOVING it (the original text needs
to be moved, not replicated)

2) It is pasting in 2 entries of the text...for example, if asking to move
(this is a test) to the right hand column, after running the macro, in the
right hand column you get (this is a test) (this is a test).

It would be greatly appreciated if you could provide me with some more help
regarding this.

Many thanks.

As I said, if you want to delete the original bracket (= "move" the
bracket), use rngFind.Delete (see code below).

There was a bug in the macro that hit when the cell text ended with a
bracket, and with empty cells.
That caused the double brackets you got.

It's a rather typical problem I've run into multiple times:
If the Range you search is empty, you somehow expect to get no matches with
".Wrap = wdFindStop". But instead Word goes off and searches the rest of the
document.

I've hopefully fixed it in the code below.

Regards,
Klaus

  Dim i As Long, i_Col As Long
  i_Col = Selection.Columns(1).Cells(1).ColumnIndex
  Dim rngFind As Range
  Dim rngCell As Range
  Dim rngMove As Range
  Dim myRow As ROW
  For Each myRow In Selection.Tables(1).Rows
     Set rngCell = myRow.Cells(i_Col).Range
     rngCell.MoveEnd Unit:=wdCharacter, Count:=-1
     If rngCell.End > rngCell.Start Then
        Set rngFind = rngCell.Duplicate
        Set rngMove = myRow.Cells(i_Col + 1).Range
        rngMove.MoveEnd Unit:=wdCharacter, Count:=-1
        rngFind.Find.ClearFormatting
        rngFind.Find.Replacement.ClearFormatting
        With rngFind.Find
           .Text = "\(*\)"
           .Forward = True
           .Wrap = wdFindStop
           .Format = False
           .MatchWildcards = True
        End With
        Do While rngFind.Find.Execute And _
           (rngFind.End > rngFind.Start)
           rngMove.Collapse (wdCollapseEnd)
           rngMove.FormattedText = rngFind
           ' If you want to keep the original brackets, replace
           ' the next line with
           ' rngFind.Collapse(wdCollapseEnd)
           rngFind.Delete
           If rngFind.End = rngCell.End Then
              Exit Do
           Else
              rngFind.End = rngCell.End
           End If
        Loop
     End If
  Next myRow