Lorsque vous travaillez avec un document, il peut arriver que vous deviez supprimer des marques de paragraphe supplémentaires. Cela est particulièrement vrai si vous travaillez avec un fichier ASCII ou un fichier qui peut avoir été initialement formaté avec un autre traitement de texte. Ce processus de suppression manuelle des marques de paragraphe supplémentaires peut prendre beaucoup de temps.

Si vous vous trouvez dans cette situation, cette macro peut vous intéresser. Il supprime les marques de paragraphe supplémentaires d’un document. Lorsqu’il est terminé, il ne doit même pas y avoir deux marques de paragraphe d’affilée dans votre document.

Sub ReplacePara()

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

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

Il y a deux parties dans cette macro. La première partie, qui repose sur la méthode Selection.Find, utilise les fonctionnalités de recherche et de remplacement intégrées de Word pour rechercher toutes les instances de deux marques de paragraphe dans l’ordre. La macro ne remplace pas les marques de paragraphe séquentielles; il les trouve simplement.

Ensuite, la deuxième partie de la macro entre en action – à l’aide de la propriété Selection.Find.Found – pour supprimer la deuxième des deux marques de paragraphe séquentielles.

La raison pour laquelle cette approche est adoptée est qu’elle laisse la mise en forme correcte sur la marque de paragraphe restante. Par exemple, si les deux marques de paragraphe séquentielles utilisent une mise en forme différente l’une de l’autre, la mise en forme de la première marque de paragraphe reste inchangée. Si vous avez simplement remplacé les marques de paragraphe séquentielles par une seule marque de paragraphe, il est possible que vous n’ayez pas la mise en forme exactement comme vous le souhaitez lorsque le remplacement est terminé.

Notez que Selection.Find.Found est utilisé comme un « indicateur » pour la boucle While.

Cette propriété reflète l’état de la dernière opération de recherche. Si True, la recherche a réussi; si False, alors rien n’a été trouvé (et, par conséquent, rien à changer).

_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 (998) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.