Office: (Office 365) gleiche Textmarker auf mehrere Seiten

Hallo zusammen,
bin eigentlich viel im Excel Forum unterwegs. Nun überschneidet sich das ganze.
Mein Problem.
Ich habe ein Worddokument mit einer Tabelle. Diese wird mit Daten aus Excel gefüllt.(Textmarker).
Das klappt.
Nun will ich aber noch eine zweite Seite machen. Dort soll nur die Tabelle identisch mit der Seite 1 sein. Also auch die Textmarker die logischerweise mit den Daten aus Excel gefüllt werden sollen. Überschriften und ein paar andere Daten unterscheiden sich aber.
Ich hoffen ich konnte es einigermaßen verständlich rüberbringen.
Danke für die Hilfe
Gruß
Martin

 

Hallo Martin,

da gibts mehrere Möglichkeiten, und es wäre sinnvoll, wenn du erst mal deine Gegebenheiten erklärst:

• Wie kommen die Daten nach Word? Händisch kopiert, per Verknüpfung oder per VBA?
• Sind deine Textmarken (1) offene (bei blinkender Schreibmarke erstellte) oder geschlossene (erstellt, während ein Bereich markiert ist)? Im letzteren Fall: Existieren sie nach dem Einfügen aus Excel noch bzw. stellst du sie wieder her?
• Um wie viele verschiedene Einträge handelt es sich (d.h. von wie vielen Elementen brauchst du Duplikate)?
• Wäre es dir auch möglich, statt mit Textmarken mit Inhaltssteuerelementen als Einfüge-Behälter zu arbeiten?
• Wäre VBA überhaupt eine Option?

Vielleicht wäre es hilfreich wenn du zusätzlich zu den Antworten ein Muster deiner Word-Tabelle mit den Textmarken drin zur Verfügung stellst.

(1) Nur um Missverständnisse zu vermeiden: Als Textmarker bezeichnet man Textstellen, die mit transparenter Farbe hinterlegt sind. Die meinst du vermutlich nicht

 

Hallo Gerhard,
O mein Gott das sind aber viele Fragen!!!
zu 1 per VBA
code auszug

Code:

Anschreiben.Bookmarks("Mietername").Range.Text = Range("Mietername").Text
Anschreiben.Bookmarks("Zeit_Bis").Range.Text = Range("Zeit_bis").Text

zu 2 keine Ahnung habe einen Lösungsansatz aus dem Internet übernommen.
zu 3 ca. 38 brauch keine Duplikate will nur die Seite 2 mal ausdrucken. Aber auf einem mit den Vermerk "für ihre Unterlagen und auf dem zweiten Ausdruck "bitte unterschrieben zurück"
zu 4 da ich mit Word keine Erfahrung habe kann ich die das nicht beantworten.
zu 5 eventuell wenn es ähnlich ist wie bei Excel wie gesagt keine Word Erfahrung.

Ein Datei habe ich angefügt.
Gruß
Martin

 

Hallo Martin,

nach Kenntnis deines Musterdokuments seh ich grob skizziert folgende Möglichkeiten:

1.
Im Word-Dokument erst mal nur die Tabelle auf Seite 2 stehen lassen. Wenn die Tabelle komplett ausgefüllt ist, wird sie auf die dritte Seite zwischen die beiden Vermerke kopiert. Das kannst du per Makro machen.

2.
Das Dokument ohne die dritte Seite anfertigen, und per Makro zwei Drucke einleiten, wobei zwischen dem ersten und dem zweiten Druck der obere Vermerk geändert und der untere neu eingefügt wird. Das hätte den Charme, dass man an der Tabelle gar nichts ändern muss.

3.
In der ersten Tabelle mit Textmarken und in der zweiten Tabelle mit Querverweisen auf diese Textmarken arbeiten.
Das erfordert aber einiges an Aufwand:
Deine Textmarken sind sämtlich offene, d.h. sie kennzeichnen keinen Bereich, sondern nur eine Position. Solche Textmarken kann man nicht auslesen. Du müsstest sie in offene Textmarken umwandeln, welche leider den Nachteil haben, dass sie beim Befüllen zerstört werden. Du müsstest also auch dein Makro dergestalt anpassen, dass nach jeder Zeile, die eine Textmarke füllt, die Zeilen notiert werden, die dafür nötig sind, diese wieder herzustellen.

4.
Statt der Textmarken Inhaltssteuerelemente nehmen, die im Original und in der Kopie identische Tags haben und diese dann per Makro ausfüllen. Da du nicht sicher bist, ob du das machen kannst: Du kannst es, sofern du nicht auf einem Mac arbeitest, sondern mit einer Word-für-Windows-Version nicht älter als 2007, und natürlich, sofern es dir erlaubt ist, dein Dokument entsprechend einzurichten.
Auch da musst du dein bestehendes Makro anpassen, was aber weniger aufwändig ist.
Beispiel: In deiner Originaltabelle hast du ein Text-Inhaltssteuerelement mit dem Tag "Gesamtstrom" eingefügt. Genau das gleiche in der zweiten Tabelle. Dann lauten die Codezeilen, um beide zu befüllen so:

Anschreiben.SelectContentControlsByTag("Gesamtstrom").Item(1).Range.Text = Range("Gesamtstrom").Text
Anschreiben.SelectContentControlsByTag("Gesamtstrom").Item(2).Range.Text = Range("Gesamtstrom").Text

Falls du dich für einen Ansatz entscheiden kannst und weitere Hilfe brauchst, melde dich wieder.

 

Hallo Gerhard,
danke für die Ausführliche Erklärung welche Möglichkeiten ich habe (sehr viel wie ich sehen )
Da es hier sich um meine persönliche Abrechnung handelt (nicht gewerblich) kann ich alles mache wie ich es will.
Werde mich mal mit deine Vorschläge befassen und eventuell auf dein Angebot ,mir zu helfen, zurückkommen.
Danke
Gruß
Martin