Ainda não tinha trabalhado na integração Excel com o Word, e surgiu uma solicitação de um colega de outro setor, onde importamos dados de um arquivo csv e após algumas formatações é copiado e colado em um arquivo do Word, até ai foi tudo beleza, peguei alguns modelos na net e montei, só que este arquivo tem de ter formatação em algumas linhas da tabela que não são exportadas com a formatação, e é ai que se deu o problema, com a ajuda do gravador de macros e algumas dicas consegui fazer a formatação, só que quando executamos pela primeira vez, não da erro, mas na segunda execução, da erro nas linhas marcadas, se eu eliminar esta duas linhas, pode-se executar quantas vezes quiser sem erros, vi vários links sobre este erro, fiz todas as adaptações sugeridas mas não consegui resolver. Então, só pedindo ajuda aos universitários, também se tiverem alguma outra ideia é sempre bem vinda.

.Rows(1).Height = CentimetersToPoints(0.5) 'ERRO na segunda execução
.Rows(2).Height = CentimetersToPoints(2) 'ERRO na segunda execução

With WordTable
        .AutoFitBehavior (wdAutoFitWindow)
        .Rows.HeightRule = wdRowHeightExactly
        
        'Formata linha 1
        .Rows(1).HeightRule = wdRowHeightExactly
        .Rows(1).Height = CentimetersToPoints(0.5) 'ERRO na segunda execução
        
        'Formata linha 2
        .Rows(2).HeightRule = wdRowHeightExactly
        .Rows(2).Height = CentimetersToPoints(2) 'ERRO na segunda execução
    End With

Formatar Tabela Word -Erro na 2ª execução da Rotina

Grato.

Mauro Coutinho