Discussion :

[Thom@s]

Bonjour,

je cherche un moyen en VBScript de piloter Word pour qu'il ouvre un document et effectue un certain nombre d'actions dessus en utilisant les commandes des menus(select all, refresh,...).
Est-ce que c'est possible en VBScript et surtout est-ce que je peux piloter plusieurs session de Word sur la même machine?


Merci pour votre aide.

[SfJ5Rpw8]

ben oui... mais pourquoi plusieurs sessions...
tiens un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
Dim WordApp 'As Word.Application
Dim WordDoc 'As Word.Document
 
Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add    '-- crée un nouveau document
WordApp.Selection.TypeText "Rajout de texte"
WordDoc.SaveAs "C:\monDocument.doc"    '-- enregistre le nouveau doc

largement inspiré de la VBA ...

Manipuler WORD

[Thom@s]

Plusieurs sessions pour pouvoir générer 15000 rapports en parallèle.
Quid des performances...


Merci

[SfJ5Rpw8]

Plusieurs sessions pour pouvoir générer 15000 rapports en parallèle.
Quid des performances...


Merci

?? tu veu lancer en simultané 15000 fois Word sur ta machine

[Thom@s]

Non, je vais eviter mais je peux créer par exemple 10 chaines qui s'exécutent en //.

[Iceman421]

On peut aussi jouer sur la taille et la police :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set objWord = CreateObject("Word.Application")
 
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
 
'Ecriture avec paragraphe et taille
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "Texte dans Word"
objSelection.TypeParagraph()
 
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()

C'était pour ceux que ça intéresse!