Word Erro em Código VBAWord - Aplicar Ajuste de Janela em todas as tabelas de um Doc

[Ewerton de Miranda]

Bom dia, 

 

Preciso de ajuda na elaboração de um código VBA no Word, para um macro que aplica auto-ajuste à janela, para todas as tabelas do arquivo.

 

Escrevi o seguinte código: 

 

Sub Formatar_tabela()
Dim doc             As Document
Dim qtd_tabelas     As Integer
Dim a               As Integer
Dim auto_ajuste     As Single
Set doc = ActiveDocument
qtd_tabelas = doc.Tables().Count
For a = 1 To qtd_tabelas
    doc.Tables(a).Select
    With Selection
    .Tables(a).AutoFitBehavior (wdAutoFitWindow)
   .Tables(a).AutoFitBehavior (wdAutoFitWindow)
    End With
Next a

 

O problema que tenho, é que o macro aplica o ajuste na primeira tabela, entretanto, quando seleciona a segunda tabela, ocorre o seguinte erro:

 

A linha que está depurando é essa:

 

 

Gostaria de entender o porquê de isto estar acontecendo.

 

Desde já agradeço.

[Midori]

@Ewerton de Miranda Não precisa selecionar a tabela, veja se o loop assim resolve,

 

For a = 1 To qtd_tabelas
    Call doc.Tables(a).AutoFitBehavior(wdAutoFitWindow)
Next a

 

[Ewerton de Miranda]

Vaaleeeu, resolveu! 

Muito obrigado.