Hi - I am trying to cut text that is in brackets ([text]) from one table cell to another table cell - move all words in brackets from column 3 to column 2.
The macro below works fine ---but if the original cell has 2 sets of bracketed words (e.g. [Set A], [Set B]) then when the text is pasted in the new cell, it overwrites whatever is already in the cell (only end up with [Set B] instead of [Set A] and [Set B])
Instead, I would like to add the pasted text on a new line in the cell with a blank line in between.
Any suggestions????
Code:
Dim keepSearch As Boolean
Dim Count As Integer
ActiveDocument.Tables(1).Select
Do
Selection.Tables(1).Columns(3).Select
With Selection.Find
.ClearFormatting
.Text = "["
.Replacement.ClearFormatting
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Execute
End With
If Selection.Find.Found Then
Selection.Extend
keepSearch = True
' find second quote of this pair
With Selection.Find
.ClearFormatting
.Text = "]"
.Replacement.ClearFormatting
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Execute
End With
'Move selected text to column left
Selection.Cut
Selection.MoveLeft Unit:=wdCell
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveRight Unit:=wdCell
Else
keepSearch = False
End If
Loop While keepSearch