Création macro VBA : valeur champ Word = valeur cellule Excel

J'ai besoin d'une macro VBA réalisant l'action suivante :
- Un document Word contient une propriété personnalisée appelée "ChampLibre".
- La valeur de cette propriété doit être modifiée en allant récupérer la valeur d'une cellule donnée (par exemple A1) d'un classeur Excel qu'il faut aller ouvrir dans un dossier.