Dim objWordAppl
Dim objDoc

Dim myDocument,s
Dim WordWasNotRunning    ' Indicateur de libération finale.
Dim documentExist_WD
Dim typeAction
Dim nomAppli

nomAppli = "Word.Application"
myDocument=__zeDoc__
typeAction=__typeAction__

Select Case typeAction
Case 1  'ouvrir doc dans nouv instance
    Set objWordAppl = WScript.CreateObject("Word.Application")
    objWordAppl.Documents.Open myDocument
    objWordAppl.Visible = TRUE
    'Set wrd = Nothing
    
Case 2,3,4
   
    '============================
    ' Test pour déterminer si une copie de Microsoft Word
    ' est déjà en exécution.
    On Error Resume Next    ' Retarde la récupération d'erreur.
    ' La fonction Getobject appelée sans le premier
    ' argument renvoie une référence à une instance de
    ' l'application. Si l'application n'est pas en
    ' exécution, une erreur se produit.
    Set objWordAppl = Getobject(, "Word.Application")
    If Err.Number <> 0 Then 
        WordWasNotRunning = True
    end if
    Err.Clear     ' Efface l'objet Err si une erreur s'est produite.

    on error goto 0 'rétablit la gestion des erreurs

    if WordWasNotRunning=true then
        's="CreateObject"
        'msgbox (s)
        Set objWordAppl = WScript.CreateObject("Word.Application")
    end if

    objWordAppl.Visible = TRUE

    objDoc = ""
    if(objWordAppl.documents.count > 0) then
       set objDoc = objWordAppl.ActiveDocument
    end if

    if(objDoc="") then
        Set objDoc = objWordAppl.Documents.Add
    end if
           
    Select Case typeAction
    Case 2  'insertion de fichier
        With objWordAppl.Selection
            .InsertFile myDocument ', ,False
            .InsertParagraphAfter
            '.InsertBreak Type:=wdSectionBreakNextPage
            '.Collapse Direction:=wdCollapseEnd
        End With
        
    Case 3  'copie txt
          'objWordAppl.Selection.TypeText "Four score and seven years ago"
        objWordAppl.Selection.Paste 
        
    Case 4  'insertion d image
        With objWordAppl.Selection
            .InlineShapes.AddPicture myDocument, False, True 'LinkToFile:=False, SaveWithDocument:=True
            '.InsertParagraphAfter
            '.InsertBreak Type:=wdSectionBreakNextPage
            '.Collapse Direction:=wdCollapseEnd
        End With
    Case Else
    
    End Select
    
Case Else

End Select	