Как изменить конкретную таблицу в Word 2016 с помощью VBA

Question

Я только начинаю использовать 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 

Что я должен использовать, чтобы изменить только 3-ю таблицу в данном документе?

Answer 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