VBA Word Table - Select More than 1 Column at a time

macropod · #2 09-22-2015, 10:13 PM

Try something along the lines of:

Code:

Sub FormatColumns()
Dim i As Long, StrCols As String
If Selection.Information(wdWithInTable) = False Then Exit Sub
StrCols = InputBox("Please input the column #s to process." & vbCr & "(e.g. 1,2,3,5)")
On Error Resume Next
With Selection.Tables(1)
  If .Uniform = False Then Exit Sub
  For i = 0 To UBound(Split(StrCols, ","))
    With .Columns(Trim(Split(StrCols, ",")(i)))
      .Borders(wdBorderLeft).ColorIndex = wdWhite
      .Borders(wdBorderRight).ColorIndex = wdWhite
      .Borders(wdBorderTop).ColorIndex = wdWhite
      .Borders(wdBorderBottom).ColorIndex = wdWhite
      .Borders(wdBorderHorizontal).ColorIndex = wdWhite
    End With
  Next
End With
End Sub

As coded, the macro will process any single selected table, provided it doesn't have merged columns.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table formatting- column widths to percent	dherr	Word VBA	3	05-02-2023 09:37 AM
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
how to apply table style WITHOUT setting it as a table?	dylansmith	Excel	9	05-16-2014 07:25 PM
Conditional Formatting: How to dynamically apply to an expanding table?	tinfanide	Excel	0	10-18-2013 06:34 AM
Apply formatting html version	Kreol2013	Word VBA	0	08-26-2013 05:08 PM