La plupart des programmes clients de messagerie, en particulier ceux qui utilisent du texte brut au lieu du HTML, « coupent » automatiquement chaque ligne de courrier électronique à 70 ou 72 caractères. Heureusement, ils ne coupent généralement pas une ligne au milieu d’un mot, mais le font au début du mot qui atteint la marque de 70 ou 72 caractères.

Malheureusement, cela peut avoir des effets indésirables sur le courrier électronique que vous composez dans Word. Certaines de vos lignes, lorsqu’elles sont consultées par votre destinataire, peuvent sembler étranges, se briser à des endroits moins qu’optimales et généralement assez géniales. La solution, bien sûr, est pour vous de couper chaque ligne lorsque l’endroit approprié sur la ligne est atteint. De cette façon, vous pouvez contrôler, à l’avance, la façon dont votre destinataire voit votre message.

Vous pouvez le faire manuellement, si vous le souhaitez, en définissant les marges de votre message de telle sorte qu’il n’y ait que 7 ou 7,2 pouces d’espace horizontalement. Vous utiliseriez alors une police à espacement fixe 12 points, telle que Courier, pour taper le message. Lorsqu’un mot passe à la ligne suivante, retournez simplement au début du mot et appuyez sur la touche Entrée.

Cela pourrait devenir TRÈS vieux TRÈS vite, même si vous n’envoyez qu’une quantité modérée d’e-mails. La meilleure solution est de permettre à Word de faire les pauses pour vous, mais il ne semble pas y avoir une telle fonctionnalité dans Word. (Vous pouvez configurer vos options dans Outlook ou Outlook Express pour couper automatiquement les lignes à votre place, mais cela ne vous donne pas un contrôle aussi fin que de le faire directement dans Word.)

Cela nous amène au macro territoire. Vous pouvez utiliser la macro suivante pour inspecter le document en cours et « découper » automatiquement chaque paragraphe de sorte qu’aucune ligne ne dépasse 70 caractères.

Sub ChopItUp()

Dim DocThis As Document, docThat As Document     Dim sParRaw As String     Dim iParCount As Integer, iParOut As Integer     Dim J As Long, X As Integer     Dim iLineWidth As Integer     Dim sLeft As String, sRight As String     Dim sTemp As String

iLineWidth = 70

Set DocThis = ActiveDocument     Documents.Add     Set docThat = ActiveDocument     DocThis.Activate

iParCount = DocThis.Paragraphs.Count     iParOut = 0     For J = 1 To iParCount         sParRaw = DocThis.Paragraphs(J).Range.Text         If Right(sParRaw, 1) = Chr(13) Then             sParRaw = Left(sParRaw, Len(sParRaw) - 1)

End If

sRight = sParRaw         If Len(sRight) > iLineWidth Then             While Len(sRight) > iLineWidth                 sLeft = Left(sRight, iLineWidth)

sRight = Mid(sRight, iLineWidth + 1)

flgDoIt = True                 If Left(sRight, 1) = " " Then                     sRight = Mid(sRight, 2)

flgDoIt = False                 End If                 If Right(sLeft, 1) = " " Then                     sLeft = Left(sLeft, Len(sLeft) - 1)

flgDoIt = False                 End If

If flgDoIt Then                     X = InStr(LTrim(sLeft), " ")

If X > 0 Then                         sTemp = ""

While Right(sLeft, 1) <> " "

sTemp = Right(sLeft, 1) & sTemp                             sLeft = Left(sLeft, Len(sLeft) - 1)

If Len(sLeft) = 0 Then                                 sLeft = sTemp & " "

sTemp = ""

End If                         Wend                         sRight = sTemp & sRight                     End If                     sLeft = Trim(sLeft)

End If

docThat.Paragraphs.Add                 docThat.Paragraphs(docThat.Paragraphs.Count).Range = sLeft                 sLeft = ""

sRight = Trim(sRight)

Wend         End If         docThat.Paragraphs.Add         docThat.Paragraphs(docThat.Paragraphs.Count).Range = sRight     Next J End Sub

Lorsque vous exécutez cette macro, elle ouvre un tout nouveau document et y copie les informations de l’ancien document, en veillant à ce que chaque ligne ne dépasse pas 70 caractères. Le nouveau document ne contiendra aucun formatage. (Étant donné que vous créez un courrier électronique en texte brut, cela ne devrait pas poser de problème.) Si vous souhaitez une largeur de ligne différente, il vous suffit de modifier la valeur attribuée à iLineWidth dans la macro.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1336) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

lien: / wordribbon-Breaking_Lines_in_E-mail [Breaking Lines in E-mail].