Microsoft Office Forums - View Single Post - Update content in table adds a new column

Fredrik1987 · 03-14-2017, 12:55 AM

Hi all!

This is my first project in Word, as you can see I'm a bit inexperienced

I'm comparing the content in two documents, and replacing/updating the content in Userdocument's tables.

If the table have one row, it inserts a new column instead of updating the content.

My question:

The "error" rises when the table has only 1 row, is this some specialcase I'm not aware of?

Code:

'/  UpdateContent in leftmost column
Private Sub CompareAddContent( _
MalCol As Column, _
UserCol As Column _
)


Dim Cell As Cell
Dim row As Integer
Dim cl_Match As Cell
Dim NewRow As row


For Each Cell In MalCol.Cells
    
    Cell.Range.Copy
    
    Set cl_Match = LookForMatch(UserCol, Cell.Range.Text)   '   This function looks for correct content (Works)
    If cl_Match Is Nothing Then
    
        
        '/  Insert new row and add content
        Set NewRow = UserCol.Parent.Rows.Add
        NewRow.Cells(1).Range.PasteAndFormat wdFormatOriginalFormatting
        
        
    Else
        
        
        '/  Replace content in cell
        '/  ***********************
        '/  It works fine if the number of rows > 1
        cl_Match.Range.PasteAndFormat wdFormatOriginalFormatting
        '/  **********************
        
        
    End If
Next


End Sub