我来帮你搞定这个Word表格加边框的难题！看你已经写了部分VBScript代码，我帮你补全并实现边框添加功能，你可以根据效果调整样式：

Set objWord = CreateObject("Word.Application")
objWord.Visible = True ' 让Word窗口可见，方便你实时查看效果
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Const NUMBER_OF_ROWS = 3
Const NUMBER_OF_COLUMNS = 3 ' 补充列数，你可以按需修改

' 在选区位置创建表格
objSelection.Tables.Add objSelection.Range, NUMBER_OF_ROWS, NUMBER_OF_COLUMNS
Set objTable = objSelection.Tables(1) ' 获取刚创建的表格对象

' 一次性设置所有边框的统一样式
With objTable.Borders
    .LineStyle = 1 ' 实线（对应Word常量wdLineStyleSingle，值为1）
    .LineWidth = 2 ' 1磅宽度（对应wdLineWidth100pt，值为2）
    .Color = 0 ' 黑色（对应wdColorBlack，值为0）
End With

' 如果需要差异化边框（比如外框粗、内框细），可以单独设置某类边框：
' With objTable.Borders(1) ' wdBorderTop，值为1
'     .LineStyle = 1
'     .LineWidth = 3 ' 1.5磅
'     .Color = 0
' End With
' With objTable.Borders(2) ' wdBorderLeft
'     .LineStyle = 1
'     .LineWidth = 3
'     .Color = 0
' End With
' With objTable.Borders(11) ' wdBorderInsideHorizontal
'     .LineStyle = 1
'     .LineWidth = 1 ' 0.5磅
'     .Color = 0
' End With

关键细节说明： #

• 我添加了objWord.Visible = True，避免Word在后台运行，你能直接看到边框效果。
• 必须把创建后的表格赋值给objTable变量，这样才能精准操作表格的边框属性，这也是很多网上方法失效的原因——没正确获取表格对象。
• 线型可选值：1=实线，4=点划线，5=虚线，你可以替换成需要的样式。
• 线宽可选值：1=0.5磅，2=1磅，3=1.5磅，数值越大线越粗。
• 颜色可以用Word内置常量值，也可以用RGB值（比如RGB(255,0,0)表示红色）。

内容的提问来源于stack exchange，提问作者George Z.