Kommando zurück,
es ist sogar noch verrückter.
Das hier klappt nicht (wie oben schon geschrieben):
Dim TargetDoc As Document
Set TargetDoc = Documents.Open(WSZ_Pfad$ + "\" + WSZDatei$)
TargetDoc.Range.Paste <------------ Hier tritt der Fehler auf
Das hier klappt aber auch nicht (im Gegensatz zu oben geschriebenem):
Documents.Open(WSZ_Pfad$ + "\" + WSZDatei$).Range.Paste
Aber das hier klappt:
Dim TargetDoc As Document
Set TargetDoc = Documents.Open(WSZ_Pfad$ + "\" + WSZDatei$)
Documents.Open(WSZ_Pfad$ + "\" + WSZDatei$).Range.Paste
Ich hatte zuvor nicht bemerkt, dass ich die ersten zwei Zeilen versehentlich stehen gelassen hatte.
Was sich als gut herausgestellt hat, sonst wäre ich immer noch nicht weiter.
Was ich nicht verstehe:
Es steht nun zweimal Documents.Open drin, aber er macht es nur einmal.
Zuvor stand es nur einmal drin, er hat es auch nur einmal gemacht, aber das Makro beim Paste gestoppt.
Irgendwie bin ich im Paralleluniversum mit abweichenden Naturgesetzen.
Irgendjemand den Hauch einer Idee?
Gruß,
Alex
|