Ich habe eine Script das Html Seiten in ein Worddokument einfügt  und danach Formatierungen anpasst.

U.A. fügt es Tabellen zusammen indem es die Leerzeilen dazwischen löscht. Wenn ich die Stelle in Einzelschritten laufen lasse (F8) ist das Ergebnis richtig. Wenn ich das Script einfach durchlaufen lasse, sind hinterher die Tabellen unterschiedlich breit.

Hat dazu jemand eine Idee?

    For Each para In ActiveDocument.Paragraphs
    
        If para.style = "tab_text" Then
            tableFound = True
        ElseIf para.style = "Standard" And tableFound = True And Len(para.Range.text) = 2 Then
            ' Leere Celle es erfolgt keine Aktion
        ElseIf para.style = "Standard" And tableFound = True And Len(para.Range.text) = 1 Then
            para.Range.Delete
            tableFound = False
        ElseIf tableFound = True Then
            tableFound = False
        End If
        
    Next