Excel VBA- Word表中的顶部边框

Question

我的excel工作表包含7个表，这些表将粘贴到新的word文档中。 这是我用来调整Word文档表属性的代码。

For i = 1 To wddoc.Tables.Count
wddoc.Tables(i).Select
wddoc.Tables(i).AutoFitBehavior wdAutoFitwindow
With wddoc.Tables(i).Range
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.bordersall = True
.Font.Name = "Tahoma"
.Font.Size = "9"
End With

Next i

但是问题是，当出现下图所示的分页符时，下一页没有顶部边框。

是否有一种方法可以在所有单词表中添加上边框（如果没有）？