VBScript将表格附加到现有Word文档并向表格添加边框

要求：打开现有Word文档并在文档末尾追加一个表。还要向表中添加边框

尝试了以下代码：这没有给我预期的结果

dim doc1 
Set objWord = CreateObject("word.application") 
objWord.Documents.Open "C:\test.docx"
 const END_OF_STORY=6
 objWord.Selection.EndKey 6
 Set objRange = objWord.Selection.Range                
 Const wdCollapseEnd = 0
objRange.Collapse wdCollapseEnd    

objWord.Visible = false 
set doc1 = objWord.ActiveDocument 

doc1.Tables.Add objRange, 4, 4
set tab1 =doc1.Tables(1)
tab1.Cell(1,1).Range.Text = "Test" 
tab1.Cell(1,2).Range.Text = "Test1"
tab1.Cell(1,3).Range.Text = "Test2"
tab1.Cell(1,4).Range.Text = "Test3"
doc1.Tables.Add objRange, 1, 1 
set tab2 = doc1.Tables(1) 
tab2.Cell(1,1).Range.Text = "test7" 

objWord.ActiveDocument.Save
    objWord.Quit
    Set objWord = Nothing

---

它如何不给出预期的结果？它不会将表添加到文档的末尾，您是否可以让我知道如何向该表添加边框打开文档时，您需要做的第一件事是将文档分配给doc1变量：Set doc1=objWord.Documents.Open。。。然后不要使用选择，而是：Set objRange=doc1.Content。然后设置tab1=doc1.Tables.Add，看看这是否有帮助。对于边框：首先尝试在宏中录制创建边框以获得基本语法。因为我不知道什么样的边界，在哪里尝试提供任何代码对我来说都没有意义…亲爱的大家。我也有同样的问题。这个莉娜有什么解决办法吗。