Copy column 1 data into Column 3

theoxskyl · #2 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

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
documents saved with double column revert to single column when re-opened	danw	Word	6	04-08-2015 06:24 AM
Embedded Excel in Powerpoint - custom animation, display column by column	andytheanimal	PowerPoint	2	01-20-2015 06:30 AM
Copy column entries on value	Guloluseus	Excel	3	01-05-2015 08:28 PM
How can I temporarily break a 3 column format in order to type a single column paragraph	William P	Word	1	01-04-2015 06:40 PM
Want a quotient using a constant to show up in column c each time a number is added to column b	fibbermcghee	Excel	2	12-09-2014 05:48 PM