删除表格excel VBA的部分边框

Question

我们有时必须在工作中填写一组表格，我正在尝试通过让 excel VBA 将表格重新创建为 word 文档并填充适当的数据并打印为 pdf 来自动完成任务.我被困在删除边框线样式上。我希望左侧没有边界线。我尝试了不同的方法，根据我的理解，最有可能起作用的方法如下： （注意：“.Border(xlEdgeleft).LineStyle = xlLineStyleNone”是给我带来麻烦的行）

Sub main()

Dim objWord As Object
Dim objDoc As Object
Dim objHdrRange As Object
Dim myTable As Object

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objHdrRange = objDoc.Sections(1).headers(1).Range
Set myTable = objWord.activedocument.tables.Add(objHdrRange, 5, 5)

With myTable
    .Borders.enable = True
    .Border(xlEdgeleft).LineStyle = xlLineStyleNone
   ‘more code goes here later
End With

Set objDoc = Nothing
Set objHdrRange = Nothing
objWord.Quit

End Sub

Answer 1

xlEdgeLeft 和 xlLineStyleNone 来自 Excel 对象模型，而不是 Word 对象模型，您需要后者。

由于您是后期绑定，您可以添加以下行：

Const wdBorderLeft As Long = -2
Const wdLineStyleNone As Long = 0

并将xlEdgeLeft 和xlLineStyleNone 分别替换为这些。

有关更多详细信息，请参阅 WdBorderType 和 WdLineStyle 枚举文档。