Hallo,
ich muss viele OpenOffice-Dateien in MS-Word-Dateien kopieren.
Dabei ist es erforderlich, immer wieder Textteile wie diesen:
[EmpfSender_Korrespondenz.Anschriftsanrede]
in ein Seriendruck-Mergefield umzuwandeln. Ich mache das mit markieren des Textes zwischen den Klammern, „cut“, Klammern markieren und über das Menü Einfügen-Feld-Seriendruck-Mergefield… hier muss ich den ausgeschnittenen Text einfügen. Fertig ist ein Feld.
Aufgezeichnet als Makro sieht das so aus (ab Text markieren):
Sub OO_to_MS()
’
’ OO_to_MS Makro
’ Makro aufgezeichnet am 31.08.2005 von christof
’
Selection.Cut
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
„MERGEFIELD EmpfSender_Korrespondenz.Anschriftsanrede“, _
PreserveFormatting:=True
End Sub
Beim Aufzeichnen wird der Text aus der Zwischenablage ins Makro gestellt. Ich möchte jetzt das makro so ändern, dass bei jedem Aufruf der soeben im Makro ausgeschnittene Text eingefügt wird. Das muss dann über eine Variable gehen(?) - ich bringe es aber nicht hin…?!
www?
lg Christof