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

[SfJ5Rpw8]

oui,

mais plutôt que d'utiliser SendKey ... utilise l'automation .

voir le principe pour excel :

Applications Office

[pirouge]

Merci pour ta réponse rapide.

Mais je ne maitrise pas excel et j'ai déjà beaucoup de peine à maitriser vb6 chaque chose à la fois.

[SfJ5Rpw8]

pas besoin d'excel tu utilise word ... de la manière dont est utilisé word dans ces tutos.

tu rajoute la référence à word à ton projet et :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TraiteWord()
 Dim oWord As New Word.Application
 Dim oDoc As Word.Document
 Set oDoc = oWord.Documents.Open("d:\tmp\test.doc")
 oWord.Visible = True
 With oDoc.Content.Font
    .Name = "Courrier New"
    .Size = 12
    .Bold = True
 End With
End Sub

Pour agir sur ton document, tu peu consulter et adapter les codes VBA du tuto :
Initiez vous au VBA Word

[pirouge]

J’ai copies tes données dans mon programme,mais à la première ligne mi-donne
Erreur de compilation :
Type défini par l’utilisateur non défini

Et je ne sais pas comment le resoudre
Merci de m’avoir aides, merci

[SfJ5Rpw8]

p..
tu rajoute la référence à word à ton projet et :
...

[pirouge]

Bonjour,
J’ai soldé carrément par un ‘autre système vue l’incapacité avec Word
Merci à bbil de m’avoir aidé, merci