//Pour reprendre l'instance de word en cours
OLE_Rapport est un objet automation dynamique
fs est un objet automation dynamique
MonFichier est un Objet automation Dynamique

Si OLE_Rapport = NULL Alors
 OLE_Rapport = allouer un objet Automation("Word.Application") 
Fin
Quand exception Dans 
 OLE_Rapport>>CreateLink(Fichier)
Faire
 Retour
Fin
Fs = allouer un objet automation "Scripting.FileSystemObject"
MonFichier = Fs>>CreateTexteFile(Fichier, OLEVrai)
MonFichier>>Close()
OLE_Rapport>CreateLink(Fichier)