VBA Word画表格，填实线

Sub 宏1()
'
' 宏1 宏
'
'
Dim MyRange As Range
Dim myTable As Table
Dim tblNew As Table
Set MyRange = Selection.Document.Content
MyRange.Collapse Direction:=wdCollapseEnd
Set tblNew = Selection.Document.Tables.Add(Range:=MyRange, NumRows:=6, NumColumns:=4)

With tblNew

.Cell(1, 1).Range.InsertAfter "名　称"
.Cell(1, 2).Range.InsertAfter "竖向力(kN)"
.Cell(1, 3).Range.InsertAfter "偏心矩e(m)"
.Cell(1, 4).Range.InsertAfter "弯　矩(kNm)"

.Cell(2, 1).Range.InsertAfter "P1"
.Cell(3, 1).Range.InsertAfter "P2"
.Cell(4, 1).Range.InsertAfter "P3"
.Cell(5, 1).Range.InsertAfter "P4"
.Cell(6, 1).Range.InsertAfter "∑P"

.Columns.Select

'将表的下边框设置为效果单实线，线宽1.5磅
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt

.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineWidth = wdLineWidth150pt

.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineWidth = wdLineWidth150pt

.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth150pt

.Borders(wdBorderHorizontal).LineStyle = Options.DefaultBorderLineStyle
.Borders(wdBorderHorizontal).LineWidth = Options.DefaultBorderLineWidth

.Borders(wdBorderVertical).LineStyle = Options.DefaultBorderLineStyle
.Borders(wdBorderVertical).LineWidth = Options.DefaultBorderLineWidth

.Columns.Select
End With
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '选中的对象内所有内容居中

End Sub