Como alterar a tabela específica no Word 2016 usando o VBA

Question

Estou apenas começando a usar o VBA porque quero organizar a largura da minha tabela. Após 2 horas, descobri que este funciona para mim, mas o Document.Tables aplicará isso a todas as tabelas no documento.

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 

O que devo usar para alterar apenas a terceira tabela em um determinado documento?

    

Answer 1

Para alcançar o que você está procurando, remova completamente o para cada loop e acesse a tabela que deseja diretamente, conforme abaixo:

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