Bonjour,
J’ai un souci avec le code OUTLOOK.
En effet, nous ne travaillons nos dossiers pratiquement que par mails.
Nous retranscrivons par copier / coller le texte des mails dans le bloc-notes de notre logiciel mais sommes obligés de resserrer le texte afin que ce dernier ne prenne pas une place folle, et que la suite de textes soit plus lisible.
Il s’agit de supprimer les interlignes, les retours à la ligne, CHR(13) et CHR(11).
Je n’ai pas réussi à adapter mon code qui marche dans WORD et qui est le suivant :
_____________________________________________
_________________________________________________
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub sansRetourALaLigne() Dim myWA For Each myWD In ActiveDocument.Range.Words myWA.Select If Selection.Text = Chr(11) Then Selection.Delete End If Next myWA Call SansSautDeLigne End Sub
A priori le code WORD n'a rien à voir avec celui d'OUTLOOK. Pouvez-vous m’aider SVP.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub SansSautDeLigne() Dim myWD For Each myWD In ActiveDocument.Range.Words myWD.Select If Selection.Text = Chr(13) Then Selection.Delete End If Next myWD End Sub
Partager