怎么用VB绘制word表格的边框

[shenshen1987]

怎么用VB绘制word表格的边框，以下是我录制word宏后提取的，我需要选用几种线型绘制，当第二次运行的时候With Options就会报462错误，无法调用出需要的线型。
WordApp.ActiveDocument.Tables(1).Select
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With

[of123]

用记录宏的方法，得到你需要的代码。

[赵4老师]

在Word中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[shenshen1987]

引用 1 楼 of123 的回复:

用记录宏的方法，得到你需要的代码。

这些就是宏记录的代码，我需要是VB二次运行时选择线型时会报错。

[shenshen1987]

引用 2 楼 zhao4zhong1 的回复:

在Word中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

这些就是宏记录的代码，我需要是VB二次运行时选择线型时会报错。

[赵4老师]

WordApp.ActiveDocument.Tables(1).Select 这句的意思是当前Word文件的第一个表格 可能是你二次运行时，无法取到

[shenshen1987]

引用 5 楼 zhao4zhong1 的回复:

WordApp.ActiveDocument.Tables(1).Select 这句的意思是当前Word文件的第一个表格 可能是你二次运行时，无法取到

老师，你好，我该如何有效获取word的第一份表格呢？