Discussion :

[mouftie]

Bonjour,
Au bureau, on vient de passer sur Outlook 2007 et horreur, il n'y a pas d'enregistreur de macro...
Je ne suis déjà pas un As en vba, ça va pas m'aider.
J'ai voulu commencer simple, mais rien ne passe ; voici ma prose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub TexteBleuCnav()
'
' TexteBleuCnav Macro
'
'Sélectionner le corp du message
    Selection.WholeStory
'Mettre en forme la police
    With Selection.Font
        .Name = "Calibri"
        .Size = 11
        .Color = 9184000
 
    End With
'Sélectionner 2 lignes
    Selection.MoveDown Unit:=wdLine, Count:=2
    With Selection.Font
        .Bold = False
        .Italic = False
    End With
End Sub

Même la partie mef police ne fonctionne pas : Erreur d'execution 424 ?
Qq'1 peut il m'aider ? svp, merci

[carden752]

Bonjour,

je vais déjà t'expliquer pourquoi tu as ce message d'erreur et te donner quelques pistes pour résoudre ton problème ou tout du moins avancé.

Le message d'erreur te dit qu'il ne connait pas l'objet que tu as créé en l'occurence l'objet selection.
En effet, cet objet n'est que défini dans les documents Word. Pour pallier à cela, tu peux déclarer le corps du texte comme étant un objet de type WordEditor.

Code :

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

1
2
Dim wddoc As Word.document
Set wddoc = Application.ActiveInspector.WordEditor

Je te laisse maintenant réaliser ton traitement à partir de là.
Pour obtenir l'objet sélection, tu peux procéder comme ceci

Code :

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

wddoc.Application.Selection

[mouftie]

Bonjour Christophe,
Merci pour ta réponse et désolée de n'y avoir pas répondu hier, notre serveur avait des pb.
J'ai une erreur de compil dès le lancement : "Type défini par l'utilisateur non défini" sur la déclaration

Code :

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

Dim wddoc As Word.document

(je me suis trompée dans mon 1er message, nous sommes en Outlook 2010 et office 2007).
Merci

[carden752]

Bonjour,

Cela ne change rien, Outlook 2010 comme Outlook 2007 ont cet objet.
Il faut ajouter la référence Microsoft Word 14.0 Library