[求助]怎样用VBA将一选中的表格边框加粗线，文字上下左右居中？

ssq1109

缺省生成的表格的边框线是细线，不太好看，如要用粗线如1.5磅的粗线，再者想将各单元格的字符都设为上下左右都居中的格式，要用VBA代码。好像不能录制宏，帮助文件里也找不到。

[此贴子已经被作者于2006-4-27 21:48:05编辑过]

konggs

Sub ge()
If Selection.Information(wdWithInTable) Then '如果光标在表格内
With Selection.Tables(1)
.Borders.OutsideLineWidth = wdLineWidth225pt
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End With
End If
End Sub

konggs

上面，只对光标所在的单个表格。

下面，改进版，对选中的多个表格起作用

Sub ge()
Dim atable As Table
If Selection.Tables.Count >= 1 Then '如果区域的表格内有表格
For Each atable In Selection.Tables
With atable
.Borders.OutsideLineWidth = wdLineWidth225pt
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End With
Next
End If
End Sub

ssq1109

谢谢孔网编！上2代码中225pt一般可能太大了，据我测试用075pt或100pt较合适。