MsgBox 'Finished applying borders to ' & n & ' tables. Columns.Count = 1 And oarray(i) = wdBorderVertical Then GoTo Skip 'Skip if only one column and wdBorderVertical Rows.Count = 1 And oarray(i) = wdBorderHorizontal Then GoTo Skip

'Skip if only one row and wdBorderHorizontal Change the solid underline below the word, Travel, to a decorative. 'Define array with the borders to be changed 'Diagonal borders not included here If the border is not in color, add color toit. MsgBox 'The document contains no tables.', vbInformation, Title 'to all tables in the active document.' & vbCr & vbCr & _ Border and shading used to add a border around your page to draws focus and adds a stylish touch to your document. Msg = 'This command applies uniform table borders ' & _ Page Color Through to this option you can add a splash of color to your document by change the color of the page. Title = 'Apply Uniform Borders to All Tables' '= 'Change the values below to the desired style, width and color '= 'The macro applies uniform table borders to all tables in the active document '2: Adjusted to handle tables with only one row or column '1: Adjusted to always fix vertical borders in 1-row tables correctly 'Insert the desired values of oBorderStyle, oBorderWidth and oBorderColor '= 'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART. Select either Whole document to apply the border.

YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE. Select the color for the border in the Color box select where to apply the border in the Apply To box. '= 'Macro created 2007 by Lene Fredborg, DocTools - 'THIS MACRO IS COPYRIGHT.

How to change the border color in word