Comment utiliser VBA pour obtenir le chemin du fichier vers un raccourci à partir duquel ActiveDocument a été lancé?

Question

Je construis un système de gestion de documents. Dans chaque sous-répertoire du référentiel de documents principal, il existe un raccourci vers un modèle de document. Lorsqu'un utilisateur souhaite créer un nouveau document, il accède au sous-répertoire approprié du document et clique sur le raccourci.

Lorsque l'utilisateur clique sur le raccourci, MS Word est lancé, affichant le nouveau document basé sur le modèle. Lorsque l'utilisateur clique sur Enregistrer, le document sera normalement enregistré dans le répertoire en cours qui sera l'emplacement par défaut pour les nouveaux documents spécifiés dans Options Word.

Je souhaite que le répertoire actuel d'un nouveau document soit identique au répertoire du raccourci à partir duquel il a été créé. L'utilisateur a déjà décidé où le document doit être localisé en naviguant vers le sous-répertoire approprié et en cliquant sur le raccourci. Il ne devrait pas être nécessaire pour l'utilisateur de retrouver le même emplacement dans le dialogue Enregistrer sous ....

Si je peux obtenir le chemin d'accès au raccourci, je peux enregistrer par programme le document dans le même répertoire ou dans un nouveau sous-répertoire.

Également demandé sur MSDN VBA Forum et sur VBA Express.

Answer 1

Je ne pense pas que vous allez être en mesure de le faire sans faire quelques bidouillages terrible autour de la pêche au chalut du système de fichiers (j'ai eu un encéphalogramme sur la propriété « Démarrer dans » du raccourci, mais malheureusement cela n'a pas fonctionné).

Malheureusement je pense que la meilleure solution pourrait être de se débarrasser des raccourcis et juste avoir beaucoup de copies du modèle de document traînant.

Chris

Answer 2

Peut-être que cela?

Public Sub OriginalPath() 

    Debug.Print TemplateProject.ThisDocument.Path 

End Sub