Discussion :

[hackoofr]

Classique parmi les classiques, cet easter egg est généralement connu des plus geeks utilisateurs de Word. Il faut cependant commencer par le plus basique avant d’aller plus loin. Pour afficher plusieurs pages de « Servez à ce monsieur une bière et des kiwis » dans Word, il suffit de saisir =rand(100) ou =rand(200) puis cliquer sur entrer.
Mon Probléme à moi c'est que je veux le faire avec sendkeys mais malheureusement il ne marche pas avec ce code :

Code :

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

1
2
3
4
5
6
Set Ws = CreateObject("WScript.Shell")
Ws.run "Winword.exe"
wscript.sleep 3000 
ws.AppActivate "Winword"
ws.SendKeys "=rand(100)"
ws.SendKeys "{enter}"

Les Parenthèses ne s'affichent pas il m'affiche sous Word comme ceci=rand100.
Alors est ce qu'il y a une astuce pour contourner ce genre de problème ?

[SfJ5Rpw8]

Bonjour :

Code :

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

ws.SendKeys "=rand{(}100{)}"

L'instruction SendKeys attribue une signification spéciale au signe plus (+), au signe insertion (^), au signe pourcentage (%), au tilde (~) et aux parenthèses ( ). Pour indiquer l'un de ces caractères, placez-le entre accolades ({}). Par exemple, pour indiquer le signe plus, tapez {+}.

[hackoofr]

bbil
Yep ! et voici le code qui marche

Code :

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

1
2
3
4
5
6
7
Set Ws = CreateObject("WScript.Shell")
eastercode = "=rand{(}100{)}"
Ws.run "Winword.exe"
wscript.sleep 3000 
ws.AppActivate "Winword"
ws.sendkeys eastercode
ws.SendKeys "{enter}"