Fusion word 2007 avec vb 6 et un modèle de document Dotx

[Résolu]
Signaler
Messages postés
258
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
27 octobre 2010
-
Messages postés
258
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
27 octobre 2010
-
Bonjour à tous,

J'ai une appli en vb6 contenant un module permettant de faire de la fusion Word à partir d'un modèle de document
lorsque j'utilise un modèle ".dot" avec office 2003 ou 2007 tout est ok
par contre, quand j'utilise un modèle ".dotx" avec office 2007, lors de l'ouverture du document, je récupère une erreur 13.
le code utilisé est le suivant :

 Dim A_WORD           As Object
   Dim mvarDocumentId   As Variant
   
   On Error Resume Next
   
  
   ' Nouvelle instance of WORD
   Set A_WORD = GetObject(, "Word.Application")
    ' non zero means WORD wasn't open
   If Err.Number <> 0 Then
      ' ouverture WORD
      Set A_WORD = CreateObject("Word.Application")
   End If
   
    Err.Clear
    On Error GoTo StartWORD_Error
   
   ' Test ouverture WORD
   If (A_WORD Is Nothing) Then
      ' Erreur
      Message "WORDNONPRESENT", vbInformation
   Else
  
      ' On rend l'application non visible.
      A_WORD.Application.Visible = False
      'c'est cette ligne ci dessous qui plante en err 13
      Set mvarDocumentId = A_WORD.Application.Documents.Add(sFicModele, False)
      'contrôle des champs existants
      lNbChamps = A_WORD.Application.activedocument.Fields.Count

Malgré mes recherches, je n'ai pas trouvé d'info... donc, si quelqu'un a une idée, elle sera la bienvenue...
D'avance Merci

cordialement

Pat

 Don't Worry , Be Happy





<hr />
lorsque le problème est résolu, pensez Réponse Acceptée

1 réponse

Messages postés
258
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
27 octobre 2010
5
bonjour (re)
en fait le pb vient de mon modèle dotx qui n'est pas au bon format...

je refait des tests et je reposterais un mémo si besoin

merci

Pat

 Don't Worry , Be Happy

<hr />lorsque le problème est résolu, pensez Réponse Acceptée