Word VBS脚本给单元格添加边框
Word VBS script add border cell
我在下面有一个简单的 VBS 脚本，它可以打开 Word 并创建一个包含 4 个单元格的 table，我只需要为包含 TEXT 的单元格添加底部边框，而不是为整个 table，有什么想法吗？
Set objWord = CreateObject("Word.Application")
objword.visible = true
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,2,2
Set objTable = objDoc.Tables(1)
objTable.Cell(2,1).Range.Font.Name = "Arial"
objTable.Cell(2,1).Range.Text = "TEXT"
objTable.Cell(2,1).Borders(-3).LineStyle = 1 'wdLineStyleSingle
我在下面有一个简单的 VBS 脚本，它可以打开 Word 并创建一个包含 4 个单元格的 table，我只需要为包含 TEXT 的单元格添加底部边框，而不是为整个 table，有什么想法吗？
Set objWord = CreateObject("Word.Application")
objword.visible = true
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,2,2
Set objTable = objDoc.Tables(1)
objTable.Cell(2,1).Range.Font.Name = "Arial"
objTable.Cell(2,1).Range.Text = "TEXT"
objTable.Cell(2,1).Borders(-3).LineStyle = 1 'wdLineStyleSingle