Hallo, ich habe viele Worddokumente gleichen Aufbaus aus einem Serienbrief. Diese sind alle in einem einzelnen Ordner gespeichert. Ich möchte in allen Doku's einen neuen Satz einfügen. Hierzu habe ich ein Makro augezeichnet, welches das erste Doku öffnet, die Änderungen vornimmt, speichert und das Doku wieder schließt. Das klppt auch, aber nur mit dem ersten Doku. Mein Problem ist: anschließend soll die nächste Datei in dem Ordner geöffnet werden und entsprechend geändert werden. Leider werde ich aus der Wordhilfe nicht schlau. Bin daher dankbar für jede Art der Hilfe. Tidalix Sub Makro() ' ' Makro Makro ' Makro aufgezeichnet am 17.05.01 von Tidalix ' ChangeFileOpenDirectory "I:\Dannapfel\001-150\" Documents.Open FileName:="AQ00FLDP.doc", ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto Selection.MoveDown Unit:=wdLine, Count:=78 Selection.MoveUp Unit:=wdLine, Count:=23 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeText Text:="Test" ActiveDocument.Save ActiveDocument.Close End Sub
Till1
