VBS avec WORD2k

Bonjour,

En écrivant un VBS pour piloter WORD 2k, j'ai un comportement aléatoire en fonction des postes de travail :
- lenteur d'exécution de 2-3 minutes sur certains postes et 5-10 secondes sur d'autres et pourtant, le code VBS (ci-dessous ) n'a rien d'extraordinaire.

Environnement : Windows XP PRO SP2/IE6 SP2/Office 2k SP3

Tests effectués :
- J'ai désinstallé tous les KB Microsoft ( sécurité et Office ) --> pb reste entier.
- Bizarrement, si j'installe WORD2003, ça résout le pb.
- Sur les postes posant pb, le porcess WINWORD ne travaille qu'à 1-2% occasionnellement.

Le code VBS :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Dim oTbl Dim oLigTbl   Set oWordApplication = CreateObject("Word.Application") Set oWordDocument = oWordApplication.Documents.Add oWordDocument.Range.Style = "Normal" oWordDocument.Range.Font.Size = 11   Set oTbl = oWordDocument.Tables.Add(oWordDocument.Range, 1, 5)   oWordDocument.Tables(1).Columns(1).PreferredWidthType = 3 oWordDocument.Tables(1).Columns(1).PreferredWidth = oWordApplication.CentimetersToPoints(2.86) oWordDocument.Tables(1).Columns(2).PreferredWidthType = 3 oWordDocument.Tables(1).Columns(2).PreferredWidth = oWordApplication.CentimetersToPoints(0.32) oWordDocument.Tables(1).Columns(3).PreferredWidthType = 3 oWordDocument.Tables(1).Columns(3).PreferredWidth = oWordApplication.CentimetersToPoints(6.35) oWordDocument.Tables(1).Columns(4).PreferredWidthType = 3 oWordDocument.Tables(1).Columns(4).PreferredWidth = oWordApplication.CentimetersToPoints(6.24) oWordDocument.Tables(1).Columns(5).PreferredWidthType = 3 oWordDocument.Tables(1).Columns(5).PreferredWidth = oWordApplication.CentimetersToPoints(2.86) oWordDocument.Tables(1).Borders.InsideLineStyle = 1 oWordDocument.Tables(1).Borders.InsideLineWidth = 6 oWordDocument.Tables(1).Borders.OutsideLineStyle = 1 oWordDocument.Tables(1).Borders.OutsideLineWidth = 6   for i = 1 to 40 Set oLigTbl = oTbl.Rows.Add oLigTbl.Range.Font.Bold = False oLigTbl.Range.Font.Italic = False oLigTbl.HeadingFormat = False oLigTbl.Cells(1).Range.Text = i oLigTbl.Cells(3).Range.Text = i oLigTbl.Cells(4).Range.Text = i next   oWordDocument.SaveAs "d:\TestWord.doc", wdFormatText oWordApplication.Quit 0 msgbox "Terminé

---

"


Je ne pense pas ça vient du code, puisque ceci est fonctionnel sur d'autres postes.

Si quelqu'un a une idée, je suis preneur.

Merci d'avance

Alors une chose peu arriver sur certain de tes postes : Tu n'as plus beaucoup de mémoire disponible au moment du lancement du script.
Moi perso au boulot j'ai un PC avec seulement 512 mo, après avoir lancé quelques applis, je n'ai plus de mémoire disponible et windows décharge une partie de la mémoire sur le disque dure (swap). L'accés disque étant beaucoup plus lent que l'accés en mémoire, je peux te dire que tout rame alors !!!!
Bref vérifie pour les postes où c lent que toute la mémoire ne soit pas déjà utilisée.

Citation:

---

Bizarrement, si j'installe WORD2003, ça résout le pb.

---

Peut être un pb de version du soft ?