Discussion :

[TMTCFP]

Bonjour à tous,
Je suis un amateur, et je tente de coder pour améliorer mon confort de travail.
J'avais un bout de codes qui fonctionnait sous word 2003 et du coup sous outlook 2003, et qui ne fonctionne plus du tout depuis qu'on nous a installé outlook 2010.
Je travaille beaucoup par mail, que je reporte par copier coller dans un bloc-notes d'un logiciel mal pratique.
Ce bloc note ayant la capacité visuelle d'un timbre poste, pour que le texte reste visible, je suis obligé d enlever les blancs et de reformater le texte à 100 caractères par ligne.
Voici ma suite de macros :

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 LignesVides2()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Call LignesVides3
End Sub

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 LignesVides3()
 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Call Macro6
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro6()
 
Selection.HomeKey Unit:=wdStory
counter = 0
    Do Until counter = 30
    counter = counter + 1
    Selection.MoveRight Unit:=wdCharacter, Count:=100
    Selection.TypeParagraph
    Loop
End Sub

Comment la faire fonctionner de nouveau sous Outlook 2010?? Je n'obtiens qu'une suite de messages d'erreurs

[carden752]

Bonjour,

Pouvez-vous nous indiquer les messages d'erreur, vous lancez cette macro depuis Outlook ou Word? Avez-vous bien ajouté les nouvelles références de librairie?