Makro til ændring af kæder til Excel

Har et Word-dokument, som indeholder et antal kæder til forskellige ark i samme Excel-fil.
Ønsker at flytte både Word-dokument og Excel-filen ud i forskellige nye mapper.
Kæden i Word skal så pege på Excel-filen i samme mappe.
Dette kan løses pr. "håndkraft" (Filer - Relaterede dokumenter - Rediger kæder i filer).

Vil gerne kunne klare det med et enkelt klik og ikke ét klik for hver kæde.