Sub Macro2()
'改变边线设置
With Options
.DefaultBorderLineStyle = wdLineStyleDouble
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
Options.DefaultBorderLineWidth = wdLineWidth300pt
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.SelectCell
Selection.SelectColumn
Selection.Cells.Merge '合并列
Selection.SelectRow
Selection.Cells.Merge '合并行
End Sub
这是我录制的一个宏.先设置了表格边线的样式宽度,再添加了几个单元格,然后合并.你也可以这样做.
'改变边线设置
With Options
.DefaultBorderLineStyle = wdLineStyleDouble
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
Options.DefaultBorderLineWidth = wdLineWidth300pt
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.SelectCell
Selection.SelectColumn
Selection.Cells.Merge '合并列
Selection.SelectRow
Selection.Cells.Merge '合并行
End Sub
这是我录制的一个宏.先设置了表格边线的样式宽度,再添加了几个单元格,然后合并.你也可以这样做.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货