Discussion :

[pirouge]

Est-il possible de modifier un fichier pendant qu'il s’affiche dans une page Words ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Chemin$, Z$
        Chemin$ = Scelta.C
Z$ = Shell("C:\Program Files\Microsoft Office\office\winword.exe", vbMaximizedFocus)
DoEvents
SendKeys "^{o}"
DoEvents
SendKeys Chemin$
DoEvents
SendKeys "{enter}"
DoEvents

Je voudrai que la Police = Courrier New
Style = Gras
Taille = 12