Cut Text from one table cell to another

mrayncrental · #1 02-07-2014, 12:14 AM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can I create a single-cell table that moves with the text?	lcaretto	Word Tables	7	11-01-2013 06:04 AM
Enter text into next available cell in a table	molesy	Word VBA	2	09-11-2013 02:25 AM
Text Form Fields - Filling the table cell	simville02	Word Tables	1	01-31-2013 11:12 PM
Text Wrapping on Fixed Lines in a Form field/Table cell	okrmjr	Word Tables	0	10-30-2009 08:52 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM