Estou tentando gerar um arquivo .doc com duas tabelas ou mais, mas só consigo gerar uma tabela, a 2ª tabela não é gerado. No meu caso, 1º eu envio os dados para o word separando pelo "." e depois utilizo o metodo para converter de texto para tabela, mas só acontece com a 1ª tabela. Ele acaba criando uma 2º tabela dentro da 1ª.
A função que chamo para criar as tabelas é este:
Private Sub DMCToWord(bExpDadosNow As Boolean)
    'Gera os dados solicitados da função que chamou
    'linha inicial da tabela
    LI = (WordApp.Selection.Information(wdMinCharacterLineNumber))
   
    With WordApp
        .Selection.Text = Formulario
        .Selection.MoveDown Unit:=wdParagraph, Count:=1
        .Selection.Text = " " & vbCrLf
        .Selection.MoveDown Unit:=wdParagraph, Count:=1
        .Selection.Text = " " & vbCrLf
        .Selection.MoveDown Unit:=wdParagraph, Count:=1
       
        'linha final da tabela
        LF = (.Selection.Information(wdMinCharacterLineNumber))
   
        'Set TheTable = WordDoc.Range(Start:=WordDoc.Paragraphs(LI).Range.Start, End:=WordDoc.Range.End)
        Set TheTable = WordDoc.Range(Start:=WordDoc.Paragraphs(LI).Range.Start, End:=WordDoc.Paragraphs(LF - 3).Range.End)

        TheTable.Paragraphs.LineSpacingRule = wdLineSpaceAtLeast
        TheTable.Paragraphs.LineSpacing = 14
        TheTable.Font.Name = "Arial"
        TheTable.Font.Size = 8
        TheTable.Paragraphs.Format.Alignment = wdAlignParagraphCenter
        'TheTable.Select
        TheTable.ConvertToTable

        .Selection.Text = " " & vbCrLf
        .Selection.MoveDown Unit:=wdParagraph, Count:=1
       

    End With
end sub