Office: Positionsrahmen

Guten Tag beisammen,
ich nutze Word 2019.
Aus einer ältern Word-Version habe ich Dokumente, in welchen sich ein Positionsrahmen (mit Inhalt - Absender, Bankdaten, Datum) befindet.
Nun würde ich diesen Positionsrahmen gerne per Makro markieren und durch einen anderen mit aktuellen Daten ersetzen.
Leider geht das mit 'Makro aufzeichnen' nicht (mehr).
Gibt es eine Möglichkeit, die entsprechenden Befehle direkt ins Makro einzutragen?
Mit der Makro-Programmierung bin ich nur am Rande vertraut.

Grüße Huppart

 

Hallo Huppart,

für 1 Dokument mit genau 1 Frame ist das einfach:

Code:

Sub frameInhaltAendern()
ActiveDocument.Frames(1).Range.Text = "Hans Muster" & vbLf & "Wiesenweg 3"
End Sub

Aber offenbar willst du das auf mehrere Dokumente ausweiten, weshalb noch einige Fragen offen sind:

• Um wieviele Dokumente gehts ungefähr?
• Wo sind diese Dokumente gespeichert (z.B. alle im selben Ordner oder verstreut über viele Ordner
• Wenn es in einem Ordner Dokumente gibt, die bearbeitet werden sollen und welche, die nicht angefasst werden sollen: Woran erkennt man, welche Dokumente bearbeitet werden sollen?
• Welches Dateiformat haben die Dokumente (*.doc oder *.docx oder gemischt)
• Wieviele Frames gibt es pro Dokument?

 

Hallo Gerhard,

zunächst muss ich gestehen, dass ich außerhalb der Aufzeichnung ein Makro-Anfänger bin.
Die Doks - 100 vielleicht - sind verstreut auf einem Server, teilweise .doc, teilweise .docx. Ich möchte die Änderung immer nur bei Bedarf - also wenn eines der Docs verwendet wird - machen. Es sind immer zwei Frames in den Docs.

Dank deines Hinweises habe ich es mit
ActiveDocument.Frames(2).Range.Select
geschafft, den Positionsrahmen (der zeite von zwei) zu markieren. Das weitere krieg ich dann vermutlich hin.
Vielen Dank zunächst, ich werde berichten.

Grüße Huppart

 

Hallo Huppart,

wenn du das bei Bedarf machen willst, kriegst du das - vorausgesetzt, der neue Text ist immer derselbe - auch makrofrei hin: Mach dir einen Textbaustein, gib dem einen möglichst kurzen Namen, klicke in deinen Positionsrahmen und tippe den Textbausteinnamen rein, direkt gefolgt von F3.

 

Hallo Gerhard,

hab's jetzt mit einem Makro hingekriegt, 's macht was es soll.
Den Code werde ich niemandem zeigen - das Ergebnis zählt :-)

Herzlichen Dank für deine Unterstützung.