Suchergebnisse

Bei meinem Word werden die Querverweise von Textmarken die durch VBA Excel gefüllt wurden nicht angenommen. Wo kann das Problem liegen?

Also ich habe ein Word Dokument welches ich durch Textmarken wie Anrede Titel Vorname Nachname etc. über einen VBA code auffülle. Auf dem Word Dokument habe ich dann noch einmal Anrede Titel und Nachname vergeben diese aber dann mit einer ref auf die entsprechenden Textmarken codiert. Da ich alles für viele Unterschiedliche Adressen verwenden will habe ich mir eine Listbox dazwischen geschaltet aus der ich eine Adresse geziehlt auswählen kann. Jetzt werden nur die Textmarken gefüllt aber nicht d…

Also ich habe ein Word Dokument welches ich durch Textmarken wie Anrede Titel Vorname Nachname etc. über einen VBA code auffülle. Auf dem Word Dokument habe ich dann noch einmal Anrede Titel und Nachname vergeben diese aber dann mit einer ref auf die entsprechenden Textmarken codiert. Da ich alles für viele Unterschiedliche Adressen verwenden will habe ich mir eine Listbox dazwischen geschaltet aus der ich eine Adresse geziehlt auswählen kann. Jetzt werden nur die Textmarken gefüllt aber nicht d…

Mal abgesehen von der mdb Datei, ich denke es ist Access, ich habe ja das Grundgerüst stehen und ich dachte es wäre jetzt kein Problem einfach diese Verknüpfungen zu machen. Im Prinzip ist es aber so, ich füge einfach von Excel VBA Daten ein die sich jetzt aber durch Word selbständig wiederholen sollen. Ich brauche nur die Logik von Excel um den Inhalt z.B. bei dem Feld Anrede richtig zu stellen.

Ich befülle die Textmarken mit diesem Code: Do While .Cells(lZeile, 1) <> "" 'Wenn der Eintrag der Listbox mit dem Namen in der Adresstabelle 'übereinstimmt, dann werden die Textmarken gefüllt! If ListBox1.Text = CStr(.Cells(lZeile, 1).Value) Then 'Eintrag gefunden, Textmarken füllen ActiveDocument.Bookmarks("GP_Nummer_ERP").Range.Text = _ CStr(.Cells(lZeile, 1).Value) ActiveDocument.Bookmarks("Anrede").Range.Text = _ CStr(.Cells(lZeile, 2).Value) ActiveDocument.Bookmarks("Titel").Range.Text = _…

Ich habe eine Umgehung gemacht und bin damit zufrieden!