https://www.herber.de/bbs/user/141946.zip
Hallo zusammen,
folgende Ausgangssituation: ich habe eine aus einer Datenbank kreierte Excel-Datei, welche HTML-Codes beinhaltet. Mit dieser Datengrundlage habe ich bisher immer eine Word-Datei manuell erstellt, indem ich den Inhalt per Copy-Paste eingefügt sowie Schriftgröße, Schriftart, Absatz angepasst habe.
Das ist aber bei einer großen Datenmenge sehr aufwendig und nicht mehr zeitgemäß.
Aus diesem Grund habe ich mich als kompletter Neuling an die VBA-Programmierung gewagt. Und zwar möchte ich mit einem Code die aus der Datenbank erstellte Excel Datei so programmieren, dass mir die gewünschte Word-Datei per Button erstellt wird.
Anbei hänge ich mein Werk an mit der Bezeichnung "Grunddaten". Die Datei "AutomatischeWord" ist das Ergebnis, wenn man in der Grunddaten Excel die drei Buttons von links nach rechts betätigt. Denn es müssen bestimmte Wörter Fett und größer formatiert werden, sowie Absätze usw eingefügt. Dies ist an den HTML-Codes entsprechend zu erkennen. Deswegen benötige ich diese Codes zu Beginn.
Anschließend habe ich eine "VorlageExcel.docx" erstellt welche mit Textmarken die entsprechenden Stellen zuweisen soll. Doch wie ihr sehen könnt sieht die automatisch erstellte Word-Datei ein wenig wild aus.
Ich habe Absätze drin, die ich nicht möchte; es kommen große Abstände zwischen zwei Wörtern zustande usw. Die Datei "MusterWord.docx" habe ich manuell geschrieben. So sollte es idealerweise auch automatisch mit Excel erstellt werden.
Doch ich komme einfach nicht mehr weiter und habe keine Ideen wie ich die Formatierung in den Griff bekommen soll. Die Formatierung ist mir das Wichtigste. Wenn in der Word noch HTML-Codes bleiben ist das auch nicht weiter schlimm, dann gehe ich eben den manuellen Weg mit Suchen&Ersetzen in Word.
Ich habe in den Grunddaten festgestellt, dass die HTML-Codes in jeder Zeile nicht ganz einheitlich sind, aber das kann ich nicht ändern da es mir so automatisch generiert wird.
Könntet ihr mir bitte hier weiterhelfen?
Vielen Dank und viele Grüße!