Il n’est pas rare de devoir formater des fichiers texte dans Word. Par exemple, vous pouvez recevoir un message électronique de quelqu’un qui a besoin de formatage, ou vous pouvez obtenir un fichier ASCII d’un ami. Les nécessités les plus courantes dans le formatage d’un tel fichier sont de supprimer les espaces ou tabulations supplémentaires au début d’une ligne, les espaces supplémentaires ou les tabulations à la fin d’une ligne, en supprimant les caractères de «réponse» au début de chaque ligne et en combinant les lignes pour faire des paragraphes.

Faire tout cela à la main est un travail fastidieux et peut facilement vous rendre nerveux, en particulier si le fichier est très volumineux. La macro suivante devrait vous faciliter la tâche. Il accomplit toutes les tâches qui viennent d’être racontées et les accomplit très rapidement.

Sub DoASCII()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "^p^w"

.Replacement.Text = "^p"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll     For J = 1 To 4         Selection.Find.Text = "^p> "

Selection.Find.Execute Replace:=wdReplaceAll     Next J     Selection.Find.Text = "^p^w"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^w^p"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p^p"

Selection.Find.Replacement.Text = "[{}]"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p"

Selection.Find.Replacement.Text = " "

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "[{}]"

Selection.Find.Replacement.Text = "^p"

Selection.Find.Execute Replace:=wdReplaceAll End Sub

Notez que cette macro remplacera jusqu’à quatre niveaux de « > »

caractères mis au début d’une ligne. Il suppose également que le seul endroit où vous voulez des sauts de paragraphe sont les endroits où une ligne vide existe.

_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 (1268) 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:

link: / wordribbon-Formatting_Text_Files_with_VBA [Formatage des fichiers texte avec VBA].