VisualBasic In Word Eingebettete Excel Sheets automatisch Pfad anpassen

[Roots]

Guten Morgen

Ich habe in der Firma eine Word Vorlage in welchem 2 Excel Sheets angepasst sind.
Jedesmal wenn nun ein neues Dokument erstellt wird, werden die 2 "Quell-Excel-Dateien" in das Verzeichnis kopiert, wo sich das Word Dokument befindet. Dies geschieht per Makro.

Meine Frage ist nun, ob mir jemand damit helfen kann, das Makro so anzupassen, dass der Pfad zu den Excel-Dateien, bei den eingebetteten Sheets, auch automatisch angepasst wird.


Vielen Dank für eure Hilfe

Edit: es handelt sich um linked und nicht embedded Excel-Sheets!

 

[BORG316]

Na dann poste mal den Macrocode...

 

[Roots]

Hier:

Spoiler

Sub Copy()

Dim fso As Object
Dim Path As String

Path = ActiveDocument.Path
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "G:\Firma\Verkaufspreisgestaltung\Preisliste Attix Teil1.xlsm", "Path"
fso.CopyFile "G:\Firma\Verkaufspreisgestaltung\Preisliste Attix Teil2.xlsm", "Path"

MsgBox (Path)


End Sub