Word VBA: add borders to active table

tinfanide · #1 11-25-2011, 10:44 PM

Code:

Sub table()

    With ActiveDocument
    
    .Tables.Add Range:=Selection.Range, _
    NumRows:=3, _
    NumColumns:=3, _
    DefaultTableBehavior:=wdWord8TableBehavior
    
' I want to select this table
' and add borders
    
    End With

    With ActiveDocument.Tables(2)
    
        .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
        .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
        .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
        .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
        .Borders(wdBorderVertical).LineStyle = wdLineStyleSingle
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleSingle
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleSingle
    
    End With


End Sub

Please see the comments above.
Please help, thx!

macropod · #2 11-30-2011, 04:33 AM

Hi Tinfanide,

This is easiest if you assign the new table to a variable:

Code:

Sub AddTable()
Dim oTbl
With ActiveDocument
  Set oTbl = .Tables.Add(Range:=Selection.Range, NumRows:=3, _
    NumColumns:=3, DefaultTableBehavior:=wdWord8TableBehavior)
  With oTbl
    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
    .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
    .Borders(wdBorderVertical).LineStyle = wdLineStyleSingle
    .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleSingle
    .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleSingle
  End With
End With
Set oTbl = Nothing
End Sub

tinfanide · #3 12-02-2011, 05:53 AM

Yes, just like giving the table an id.

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
letterhead design with column and borders	jiquvox	Word	1	10-11-2011 11:18 AM
BORDERS are too big	rockerz	Word	3	06-08-2011 06:17 PM
Drag Button which refers to the active Word document to Explorer	DRob	Word	0	10-03-2010 06:40 AM
Tables and Borders/Gridlines	Jukee	Word	1	06-22-2010 02:49 AM
I need to use alternating borders	sarajev	Word	1	11-19-2009 01:56 AM