Microsoft Office Forums - View Single Post

theoxskyl · 06-18-2015, 10:49 AM

Hello,
As I understand, you need to copy all the cells of the 1st column to the cells of the 3rd column. The macro is quite simple.

Code:

Sub copy_col1_to_col3()
    Dim t As Table
    Dim r As Row
    
    For Each t In ActiveDocument.Tables
        For Each r In t.Rows
            If r.Cells(1).Range.Font.Name = "Calibri" And r.Cells(1).Range.Font.Size = 11 Then
                r.Cells(3).Range = r.Cells(1).Range
            End If
        Next
    Next
End Sub

Best regards,
Theocharis