Vba macro to select 2 columns in active table

Question

Hello 

I need a macro to select the column where the cursor is inside a table plus the adjacent column. Then change the formatting, like font name and size, just in the selected columns without affecting the other column(s) in the same table. Is it possible?

Thanks  in advance

Answer 1

To deal with the column to the right of the column in which you have the selection, use:

Dim crange As Range

Set crange = Selection.Cells(1).Range

crange.MoveEnd wdColumn, 1

crange.Select

With Selection.Font

.Name = "Algerian"

.Size = 16

End With

Selection.Collapse wdCollapseStart

To deal with the column to the left, use

Dim crange As Range

Selection.MoveLeft wdCell, 1

Set crange = Selection.Cells(1).Range

crange.MoveEnd wdColumn, 1

crange.Select

With Selection.Font

.Name = "Algerian"

.Size = 16

End With

Selection.Collapse wdCollapseStart

Selection.MoveRight wdCell, 1

Answer 2

Hi,

Yes it is possible. I am assuming you mean with a macro.

Adjacent column to the left or to the right?

I hope this information helps. Please let me know if you have any more questions or require further help.

Regards