Enregistrer un document Word incorporé dans une feuille de calcul Excel sur disque à l'aide de VBA

Question

Nous avons une feuille de calcul Excel qui génère actuellement un rapport à l'aide d'un modèle Word stocké sur le réseau local de l'entreprise. Cela fonctionne bien pour les utilisateurs internes, mais pas pour ceux qui ne sont pas connectés au LAN, par exemple. utilisateurs d'ordinateurs portables.

La gestion ne souhaite pas distribuer le modèle en tant que fichier séparé à des utilisateurs externes, mais préférerait l'intégrer dans la feuille de calcul sur une feuille de calcul masquée. Il est ensuite proposé que lors de la génération d'un rapport, le modèle incorporé soit enregistré dans le chemin temporaire de l'utilisateur et le rapport généré à partir de là.

Ma question alors, est de savoir comment puis-je enregistrer le modèle Word incorporé sur disque en utilisant VBA. Cela semblerait être une tâche simple mais je n'ai trouvé aucune solution sur google. Toute aide serait appréciée.

Answer 1

Vérifiez la documentation MSDN.

Je crois que vous recherchez la méthode SaveAs.

Il y a un exemple de ceci ici; MSDN - VBA Ref - SaveAs Method

Answer 2

D'accord, je pense que je pourrais avoir une réponse, mais il est testé uniquement dans Excel 2010.

Sub SaveEmbedded() 
Dim sh As Shape 
Dim objWord As Object ''Word.Document 
Dim objOLE As OLEObject 

    ''The shape holding the object from 'Create from file' 
    ''Object 2 is the name of the shape 
    Set sh = ActiveSheet.Shapes("Object 2") 

    ''Activate the contents of the object 
    sh.OLEFormat.Activate 

    ''The OLE Object contained 
    Set objOLE = sh.OLEFormat.Object 

    ''This is the bit that took time 
    Set objWord = objOLE.Object 

    ''Easy enough 
    objWord.SaveAs2 Filename:="c:\docs\template.dot", FileFormat:= _ 
    wdFormatTemplate ''1=wdFormatTemplate 
End Sub