asp操作word，如何设置表格边框的线型？

[lhb2000]

asp操作word，如何设置表格边框的线型？我要生成的表格四周为粗边框，及表格行间距为固定12磅，要如何操作？录制宏的VBA用了没效果。
我的部分代码
Set tabCurrent = oapp.Application.ActiveDocument.Tables.Add (oapp.Application.Selection.range,10,6) '插入表格 10行6列
tabCurrent.Rows(1).Cells(1).Range.InsertAfter("ZZZZZZZZZZZZZZZZZZZZZZZ")
tabCurrent.style="网格型"
tabCurrent.TopPadding = 0
tabCurrent.BottomPadding = 0
tabCurrent.LeftPadding = 0
tabCurrent.RightPadding =0
tabCurrent.Spacing = 0
tabCurrent.AllowPageBreaks = True
tabCurrent.AllowAutoFit = True
tabCurrent.Borders.InsideColor = wdColorRed
tabCurrent.Borders.OutsideColor = wdColorRed
tabCurrent.Borders.Enable = true
将边框线换颜色也没有效果

[lhb2000]

有人知道吗？

[Dogfish]

https://msdn.microsoft.com/en-us/vba/word-vba/articles/table-borders-property-word 楼主看看这个链接是否有帮助？

[lhb2000]

tabCurrent.Select With oapp.Application.Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 12 .WordWrap = True End With With tabCurrent With .Borders(-2) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorRed 'wdColorAutomatic End With With .Borders(-4) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color =wdColorRed ' wdColorAutomatic End With With .Borders(-1) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(-3) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt .Color = wdColorAutomatic End With With .Borders(-5) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth075pt .Color = wdColorAutomatic End With With .Borders(-6) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth075pt .Color = wdColorAutomatic End With .Borders(-7).LineStyle = wdLineStyleNone .Borders(-8).LineStyle = wdLineStyleNone .Borders.Shadow = False end With tabCurrent.Borders.Enable = True 我增加这些代码，从录制的宏来的，执行起来不报错，也没有任何变化。