Aus Excel Textmarken in Worddokument setzen und befüllen

Liebe Excel-Kollegen,

ich habe ein Problem für das ich keine Lösung finde. Hat jemand von Euch eine Idee?
Danke für's lesen!

Mein Problem:
Ich möchte während der Laufzeit des Excel-VBA-Codes in einer Worddatei die von Excel mit VBA geöffnet wurde, Textmarken setzen und anschließend mit Daten aus Excel befüllen.

Das befüllen von Textmarken mit Daten ist nicht kompliziert und viel beschrieben. Ich finde aber keinen Weg wie man die Textmarken während der Laufzeit automatisiert erzeugen kann.

Hintergrund:
Ich extrahiere aus JSON die relevanten Daten von Flügen, die dann zeilenweise in einem Worddokument editiert- und anschließend als PDF gespeichert werden sollen.
(Quasi einen Flugplan schreiben: VonFlughafen-nachFlughafen-DatumAbflug-ZeitAbflug-DatumAnkunft-ZeitAnkunft)
Dazu muss das Worddokument die richtige Anzahl von Zeilen und Textmarken haben.
Mein Wunschansatz:
Die erste Zeile wird so oft kopiert wie Flüge vorhanden sind, dann werden die Textmarken geschrieben und mit Daten befüllt und gut.
Als Workaround könnte ich natürlich für jede mögliche Anzahl von Flügen ein Muster erzeugen. Das ist aber ziemlich unelegant, wegen der vielen redundanten Daten und eventuellen Änderungen an den Mustern.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,

vielen Dank für den Input!

Ich habe mal ein Muster erstellt, wie das etwa gedacht ist.

Markieren der richtigen Stelle zum einfügen der Textmarke (hier in einer Tabelle in der Wordinstanz) klappt problemlos. Nur das Einfügen einer Textmarke will nicht klappen. Ich habe schon etliche Formate ausprobiert, aber es gibt immer Fehler 450 Falsche Anzahl von Argumenten oder ungültige Eigenschaftszuweisung.

Danke nochmals für die Hilfe, Gruß, Roland

Beispiel:



'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub Worddatei_öffnen_und_Textmarke_Setzen()

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

     

    Set appWord = CreateObject("Word.Application")

    appWord.Visible = True

    

    'WordDatei erstellen/öffnen

    Set doctest = appWord.Documents.Add

    

        

With doctest

    

    Set myRange = doctest.Range(Start:=pos, End:=pos2)

    

    'Tabelle in Worddatei einfügen und die erste Zelle markieren

    .tables.Add Range:=myRange, NumRows:=2, NumColumns:=9

    .tables(1).Rows(1).Cells(1).Select

    

    'Hier eine Textmarke schreiben

    .Selection.Bookmarks.Add , Range:=Selection.Range, Name:="TEST"

    

End With

End Sub

Beliebteste Forumthreads (12 Monate)

Aus Excel Textmarken in Worddokument setzen und befüllen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Excel Textmarken in Worddokument setzen und befüllen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread