Copy column 1 data into Column 3

ShailShin · #1 06-18-2015, 12:50 AM

Hi All,

Using word macro, I would like to copy the column 1 paragraphs with font: Calibri and size:11 into column 3 of same table. This needs to be repeat for all the tables in active document.

Can you please provide any reference or sample code for this.

Thanks in Advance,
ShailShin

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
Linear Mode Switch to Hybrid Mode Switch to 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