Adapter dans Outlook des macros qui fonctionnent dans Word

**bruxmu** · 21/07/2016, 11h59

Bonjour le Forum,

Je suis nouvellement passé de Outlook 2003 à Outlook 2013, et c'est rude (ruban + perte de la possibilité de créer un raccourci-clavier pour toute commande + perte de Word comme éditeur de messagerie + perte de l'usage de mes macros pour Word).
Mais je viens de lire sur le site de Microsoft que la plupart des macros pour Word pouvaient être utilisées telles quelles dans Outlook.
Je me suis précipité pour faire un essai : ça ne fonctionne pas...

Voilà 2 exemples de macros créées sur Word et qui ne fonctionnent pas dans Outlook :
une macro qui passe la ligne courante en rouge
une macro qui insère une puce sans utiliser la souris (si associée à un raccourci-clavier)

Quelqu'un pourrait-il me dire pq ça ne marche pas ?
Merci !!!!

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
21
22
23
24
25
26
Sub Format_Police_Rouge_Ligne_entière()
    Selection.EndKey Unit:=wdLine
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    With Selection.Font
        .Color = wdColorRed
    End With
    Selection.HomeKey Unit:=wdLine
End Sub
Sub Format_insérer_puce()
'
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "–"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0.64)
        .TabPosition = CentimetersToPoints(0.64)
        .ResetOnHigher = 0
        .StartAt = 1
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
End Sub

**Oliv-** · 21/07/2016, 14h35

Bonjour,

Outlook , n'est pas Word alors il faut instancier l'objet "WORD" dans outlook
voici un exemple

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
Sub Copy_wordeditor()
 
    Dim outlookwordeditor
    Dim appOutlook As Outlook.Application
    Dim oMail    'As Outlook.MailItem
    Dim ObjwdSelection
 
    ' Set appOutlook = CreateObject("Outlook.Application")
    Set appOutlook = Application
    Set oMail = appOutlook.ActiveInspector.CurrentItem
    Set outlookwordeditor = oMail.GetInspector.WordEditor
 
    'ICI on utilise les intructions WORD précédée de outlookwordeditor.
    Set ObjwdSelection = outlookwordeditor.Application.Selection
    ObjwdSelection.Copy
 
End Sub

**bruxmu** · 21/07/2016, 16h46

Bonjour,

Merci bcp pour ta réponse.
Malheureusement, je suis une buse en VBA. Je sais juste bidouiller du code généré par l'enregistreur de macros...
Si ce n'est pas trop demander, pourrais-tu adapter, par exemple, la macro qui change la couleur de police de la sélection ?
Ça me permettra sans doute de décliner cette macro adaptée en macros pour passer le texte en noir, en bleu, etc...

Code :

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

1
2
3
Sub Format_police_rouge()
Selection.Font.Color = wdColorRed
End Sub

**Oliv-** · 21/07/2016, 17h16

Voici qui devrait fonctionner lorsque le mail est ouvert dans une fenetre (<>mode inline)

cependant cette macro n'a pas beaucoup d’intérêt telle quelle puisque cette option existe dans le ruban.

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
Sub Format_police_rouge()
 
    Dim outlookwordeditor
    Dim appOutlook As Outlook.Application
    Dim oMail    'As Outlook.MailItem
    Dim ObjwdSelection
 
    ' Set appOutlook = CreateObject("Outlook.Application")
    Set appOutlook = Application
    Set oMail = appOutlook.ActiveInspector.CurrentItem
    Set outlookwordeditor = oMail.GetInspector.WordEditor
 
    'ICI on utilise les intructions WORD précédée de outlookwordeditor.
    Set ObjwdSelection = outlookwordeditor.Application.Selection
 
    ObjwdSelection.Font.Color = wdColorRed
 
End Sub

**bruxmu** · 21/07/2016, 17h21

Rebonjour,

Merci bcp pour ta réponse.
J'ai implémenté la macro dans Outlook, mais ça ne produit pas le changement de couleur de police escompté (mais sans msg d'erreur).
J'ai oublié de faire qqch ?

Merci !

**Oliv-** · 21/07/2016, 17h23

le mail est il bien ouvert dans une fenetre et non en mode Inline ?

as tu bien lancé la macro ?

as tu activé les macros ?

**bruxmu** · 21/07/2016, 18h01

Réponses : oui / oui / oui

**Oliv-** · 22/07/2016, 09h13

Salut,
as tu sélectionné du texte ?

**bruxmu** · 22/07/2016, 10h39

Oui :o/

**Oliv-** · 22/07/2016, 10h45

utilises le mode pas à pas (F8) pour voir ce qui se passe.

**bruxmu** · 24/07/2016, 11h03

Bonjour,

Merci pour ta réponse.
En mode pas à pas, le titre de la macro est surligné en jaune, puis................rien. J'ai beau cliquer sur la flèche &/ou appuyer sur F5, il ne se passe plus rien.

Si c'est trop mystérieux, plutôt que de m'acharner à faire fonctionner dans Outlook des macros écrites pour Word (ce qui m'intéresse parce que je serais un peu autonome) je vais peut-être ouvrir un autre fil pour demander de l'aide pour écrire des macros "natives" équivalentes.

Merci en tous cas pour ton aide jusque-là.