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
|