☰

如何使用 VBA 更改 Word 2016 中的特定表格

tag-icon • tag-icon vba microsoft-word-2016
如何使用 VBA 更改 Word 2016 中的特定表格

我刚开始使用 VBA，因为我想调整表格的宽度。经过 2 小时，我发现这个对我有用，但它Document.Tables会将其应用于文档中的所有表格。

Sub resizeTables()  
  For Each Table In ActiveDocument.Tables  
    On Error Resume Next  
    Table.Columns(1).Width = 12.8  
    Table.Columns(2).Width = 22.7  
    Table.Columns(3).Width = 22.7  
    Table.Columns(4).Width = 227  
    Table.Columns(5).Width = 22.7  
    Table.Columns(6).Width = 227  
    On Error GoTo 0  
  Next  
End Sub

我应该使用什么才能仅更改给定文档中的第三个表格？

答案1

为了实现您想要的效果，请完全删除每个循环并直接访问您想要的表，如下所示：

Sub resizeTables()  
  On Error Resume Next  
  ActiveDocument.Tables(3).Columns(1).Width = 12.8  
  ActiveDocument.Tables(3).Columns(2).Width = 22.7  
  ActiveDocument.Tables(3).Columns(3).Width = 22.7  
  ActiveDocument.Tables(3).Columns(4).Width = 227  
  ActiveDocument.Tables(3).Columns(5).Width = 22.7  
  ActiveDocument.Tables(3).Columns(6).Width = 227  
  On Error GoTo 0  
End Sub

相关内容