Hello, and thank you for the interest which you carry in my (our?) problem.
For information, I have no printer connected with my computer.
Actually, the problem is specific in Word 2010: I modified the macro to change the document to the Word 2003 document format.
The run time passes from 108 seconds to 1 second.
Code:
Sub MesureDureeter()
Dim i As Long, Boite As Shape, Debut As Date
Debut = Time
Me.DowngradeDocument
For i = 1 To 500
Set Boite = Me.Shapes.AddShape(msoShapeRectangle, 4 * i, 72.75, 4, 19.5)
Boite.Fill.ForeColor.RGB = RGB(2 * i, 2 * i, 2 * i)
Next i
Me.Convert
MsgBox CStr((Time - Debut) * 24 * 3600) & " s"
End
Bonjour, et merci de l'intérêt que vous portez à mon (notre ?) problème.
Pour information, je n'ai aucune imprimante reliée à mon ordinateur.
Effectivement, le problème est spécifique à Word 2010 : j'ai modifié la macro pour passer le document au format Word 2003.
Le temps d'exécution passe de 108 secondes à 1 seconde.