var jCOM = JavaImporter(Packages.jp.ne.so_net.ga2.no_ji.jcom);
 
function main{
var rm = new jCOM.ReleaseManager();
    try {
        var wrdApp = new jCOM.IDispatch(rm, "Word.Application" );
       
       
   
        
        wrdApp.Documents.Open("c:\\toto.doc" );
       
     
       
        
        var visible = wrdApp.get("Visible" );        
        wrdApp.put("Visible", true);
   
    }
    catch ( e ) {
        Dialogs.MsgBox(e.toString())
    }
    finally 
    {
        rm.release();
    }   
}
main();

1. var w = new ActiveXObject("Word.Application" );
2. w.Visible = true;
3. var d = w.Documents.Open("c:\\toto.doc" );
4. d.Activate();
5. w.Selection.TypeText("prout" );

1. Option Explicit
3. ' Titre : DS2XLS
4. ' Auteur : MagicBuzz
5. ' Version : 1.0
6. ' Date : 10-05-2006
7. '
8. ' Script VBS qui génère un document Excel à partir d'un extract "ToXml()" d'un Objet DataSet de .NET
9. ' Ce script est censé fonctionner sur n'importe quelle version de Windows, et n'importe quelle version d'Excel
10. ' Bon, rien n'est garanti non plus hein...
12. ' Constantes
13. ' Ces GUID génériques ont l'avantage d'être idetiques pour toutes les versions
14. ' Il faut alors faire confiance à Microsoft pour ne pas changer la structure des objets d'une version à l'autre
15. Const EXCEL_GUID = "Excel.Application"
16. Const MSXML_GUID = "MSXML.DOMDocument"
18. ' Méthodes
19. Sub Main()
20.     ' Excel objects
21.     Dim xls
22.     Dim wkb
23.     Dim sht
24.    
25.     ' DOM objects
26.     Dim dom
27.     Dim declaration
28.     Dim table
29.     Dim colonne
30.     Dim ligne
31.    
32.     ' Common variables
33.     Dim args
34.     Dim filename
35.     Dim tabName
36.     Dim arrColonnes()
37.    
38.     ' Compteurs
39.     Dim i
40.     Dim j
41.    
42.     ' On récupère le nom du fichier XML à traîter
43.     Set args = WScript.Arguments
44.    
45.     If args.Count <> 1 Then
46.         MsgBox("Nombre d'arguments incorrects : 1 attendu" )
47.         Exit Sub
48.     End If
49.     filename = args(0)
50.    
51.     ' Création d'une instance d'Excel
52.     Set xls = CreateObject(EXCEL_GUID)
54.     ' On ne l'affiche pas
55.     'xls.Visible = True
56.    
57.     ' Ajout d'un espace de travail (par défaut, Excel s'ouvre vide)
58.     Set wkb = xls.Workbooks.Add()
59.    
60.     ' L'espace de travail contient de base 3 sheets. On en vire deux et on renomme la dernière
61.     ' En effet, un espace de travail doit au moins toujours contenir une feuille...
62.     For i = wkb.WorkSheets.Count To 2 Step -1
63.         wkb.WorkSheets(i).Delete
64.     Next
65.     wkb.WorkSheets(1).Name = "tmpSheet"
66.    
67.     ' Ouverture du document XML contenant les données du dataset à sauvegarder
68.     Set dom = CreateObject(MSXML_GUID)
69.     dom.Load filename
70.    
71.     ' Recherche du tag de description des DataTables
72.     Set declaration = dom.DocumentElement.SelectNodes("xs:schema/xs:element/xs:complexType/xs:choice/xs:element" )
73.    
74.     ' C'est parti !
75.     For Each table In declaration
76.         tabName = GetAttributeByName(table, "name" )
77.         Set sht = wkb.WorkSheets.Add()
78.         sht.Name = tabName
80.         ReDim arrColonnes(1)
81.         i = 0
82.         For Each colonne In table.SelectNodes("xs:complexType/xs:sequence/xs:element" )
83.             i = i + 1
84.             ReDim Preserve arrColonnes(i)
85.             ' En-tête
86.             arrColonnes(i) = GetAttributeByName(colonne, "name" )
87.             sht.Cells(1, i).Value = GetAttributeByName(colonne, "name" )
88.             sht.Cells(1, i).Interior.ColorIndex = 36
89.             sht.Cells(1, i).Font.Bold = True
90.             ' Formattage du type de la colonne
91.             Select Case GetAttributeByName(colonne, "type" )
92.                 Case "xs:string"
93.                     sht.Columns(i).NumberFormat = "@"
94.                 Case "xs:decimal"
95.                     sht.Columns(i).NumberFormat = "0.00"
96.                 Case Else
97.                     ' Ouais, ben désolé, moi je me sert que de string et decimal...
98.                     sht.Columns(i).Interior.ColorIndex = 3
99.                     MsgBox("Type inconnu : " & GetAttributeByName(colonne, "type" ))
100.             End Select
101.         Next
102.        
103.         ' Maintenant, on parcours l'ensemble des éléments correspondant au datatable en cours de lecture
104.         j = 1
105.         For Each ligne In dom.DocumentElement.SelectNodes(tabName)
106.             j = j + 1
107.             For i = 1 To UBound(arrColonnes)
108.                 ' On recopie bêtement le contenu du tag portant le nom de la colonne désirée
109.                 sht.Cells(j, i).Value = ligne.SelectSingleNode(arrColonnes(i)).Text
110.             Next
111.         Next
112.        
113.         ' Ca c'est pour faire joli (si faire se peut)
114.         sht.Columns.EntireColumn.AutoFit
115.     Next
116.    
117.     ' Vous vous rappelez de la sheet renommée ? Ben on la zigouille maintenant
118.     wkb.WorkSheets("tmpSheet" ).Delete
119.    
120.     ' On indique qu'on ferme l'espace de travail en enregistrant le document (une popup d'enregistrement apparaît)
121. '    wkb.Close(true)
122.    
123.     ' On quitte Excel
124. '    xls.Quit
125.     xls.Visible = True
126. End Sub
128. Function GetAttributeByName(node, attributeName)
129.     ' Impossible d'utiliser les collections nommées en VBS. Du coup on fait avec les moyens du bords...
130.     Dim tmpRet
131.     Dim att
133.     tmpRet = ""
135.     For Each att in node.attributes
136.         If att.Name = attributeName Then
137.             tmpRet = att.Value
138.             Exit For
139.         End If
140.     Next
141.    
142.     GetAttributeByName = tmpRet
143. End Function
145. ' Démarrage du programme
146. Call Main()