Hallo. Mein Problem in Kurzform:

Ich habe ein Makro (erstellt mittels Aufzeichnung) in einer Word-Datei names "DOK" erstellt und die Datei abgespeichert in dem Speicherort C:\Users\admin\Desktop\Ordner 1.

Es gibt also einen Ordner 1. In diesem gibt es das Word-Dokument 1 und das Word-Dokument 2. Mittels des Makro werden beide Dokumente in dem Word-Dokument "DOK" zusammengefügt. Das neue Gesamtdokument wird als Dokument 3 auch in Ordner 1 gespeichert. Soweit so gut.

Nun möchte ich aber, dass das Makro auch funktioniert, wenn ich die Word-Datei "DOK" (in der ja das Makro gespeichert ist) in einen anderen Ordner 2 kopiere. Dort sind ebenso zwei Dokumente mit den Namen Dokument 1 und Dokument 2 vorhanden (die aber natürlich einen anderen Inhalt haben, als das Dokument 1 und das Dokument 2 in dem Ordner 1). Ich weiß schon, dass das mit dem Auslesen des aktuellen Dateipfads zusammenhängt, habe es aber noch nicht hinbekommen.

Ich wäre dankbar für eine konkrete Hilfe bzw. direkte Anpassung meines Makros, so dass das Auslesen des Dateipfads integriert wird und inwiefern ggf. ein weiteres Makro, bspw. mit dem Titel "Dateipfad" zu der Definition des Pfadauslesens erforderlich ist. Danke vorab und hier das aktuelle Makro:

Sub Makro1()
'
' Makro1 Makro
'
'
    ChangeFileOpenDirectory "C:\Users\admin\Desktop\Ordner 1\"
    Selection.InsertFile FileName:="Dokument 1.docx", Range:="", ConfirmConversions _
        :=False, Link:=False, Attachment:=False
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    ChangeFileOpenDirectory _
        "C:\Users\admin\Desktop\Ordner 1\"
    Selection.InsertFile FileName:="Dokument 2.docx", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
    ChangeFileOpenDirectory "C:\Users\admin\Desktop\Ordner 1\"
    ActiveDocument.SaveAs FileName:="Dokument3.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub