Office: Aktuellen Pfad verwenden

Hallo

Ich möchte in Excel mit einem Makro ein bestimmtes Word-Dokument öffnen, welches immer im gleichen Pfad abgelegt ist, wie die Excel-Datei.
Der Dateiname aber nicht der Pfad ist fix, so dass ich keinen festen Pfad festlegen möchte. Das Word-Dokument ist aber immer im selben Pfad wie die Excel Datei gespeichert. Wie lautet der Befehl immer den aktuellen Pfad zu verwenden?

Ich habe bereits das Makro zum öffnen eines fixen Pfads:

Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.Documents.Open "D:\Daten\Kunden\KundeA\Arbeitsvertrag
Vielen Dank für die Hilfe!

yves65

:)

 

Im einfachsten Fall so:

AppWD.Documents.Open ActiveWorkbook.Path & "\Konstanter Word-Dateiname.doc"


HTH

 

Moin yves65,

Code:

 

Herzlichen Dank für die schnellen Antworten!

Nun kommt die eher noch schwierigere Aufgabe, das geöffnete Word-Dokument serienbriefmässig mit der vorhergeöffneten Excel-Datei so zu verknüpfen, dass auch der jeweilig aktuelle Pfad verwendet wird. Mit einem festen Pfad sah das Makro so aus. Wie lautet es mit dem jeweilig aktuellen Pfad aber festem Dateinamen?

Code:

 

Moin,

ich verstehe dich nicht. Was ist jetzt neu? Wie du den aktuellen Pfad erhälst steht doch oben.

 

Wie geb ich denn den Pfad hier ein?

ActiveDocument.MailMerge.OpenDataSource Name:= _
"I:\Kunden\KundeA\Exceldatei.xls", _

 

So vielleicht,

wenn zuvor die Pfadvariable wie oben beschrieben gefüllt wurde.

ActiveDocument.MailMerge.OpenDataSource Name:= _
strPfad & "Exceldatei.xls", _

 

Das funktioniert irgendwie nicht, denn ich werde gefragt, mit welchen Daten der Serienbrief verknüpft werden soll? Mit einem festen Pfad geht das Makro, aber wenn ich es mit dem aktuellen Pfad mache, dann geht es nicht mehr.
Es sollte die Daten aus dem bereits geöffneten Excel-File ziehen.

Mein Makro lautet so:

Code:

 

Wenn ich das Makro wie oben verwende, dann passiert folgendes:

Es öffnet sich das Word dokument, aber es erscheint auch ein Fenster "Datenverknüpfungseigenschaften" mit der Aufforderung "Geben Sie den Datenbanknamen ein oder wählen Sie einen aus" mit dem Pfad:

C:\Windows\system32\Exceldatei.xls

Ich möchte aber, dass er das automatisch mit der Exceldatei, die im selben Pfad gespeichert ist wie die Worddatei, macht. Wer kann mir helfen?

Vielen Dank und meine besten Wünsche für 2009!

yves65