Vidéo: Word VBA : insérer un mot avec une mise en forme spécifique à l’aide d’un raccourci 2025
Avant cette dernière sauvegarde ou à chaque fois que vous travaillez sur un document volumineux dans Word 2016, envisagez d'effectuer un nettoyage de document. C'est un processus qui implique la recherche de caractères voyous et d'autres textes problématiques.
Une routine de nettoyage de document consiste à rechercher des espaces de fin à la fin des paragraphes, des doubles espaces, des doubles onglets et des doubles touches Entrée (paragraphes vides). Ce sont tous des éléments à éviter, mais ils se retrouvent dans de longs documents de toute façon.
Le processus d'élimination de ces éléments indésirables consiste à utiliser la boîte de dialogue Rechercher et remplacer. Vous devez utiliser le bouton Spécial pour saisir des caractères spéciaux, tels que Espace, Tabulation et Entrée.
La macro créée pour effectuer la corvée de nettoyage des documents a enregistré les séquences de touches utilisées pour rechercher et remplacer les différents caractères. Ensuite, l'éditeur Visual Basic a été utilisé pour supprimer une partie du code redondant. Voici le résultat:
Sub document_cleanup ()
'
' document_cleanup Macro
'Supprimer les espaces de fin et les espaces doubles, les onglets et les touches Entrée
'
Sélection. HomeKey Unité: = wdStory
Sélection. Trouver. ClearFormatting
Sélection. Trouver. Remplacement. ClearFormatting
'Supprimer les espaces de fin d'un paragraphe
avec la sélection. Trouver
. Texte = "^ w ^ v"
. Remplacement. Texte = "^ v"
. Avance = Vrai
Fin Avec
Sélection. Trouver. Exécuter Remplacer: = wdReplaceAll
'Supprimer les espaces doubles
avec la sélection. Trouver >>. Texte = ""
. Remplacement. Texte = ""
Fin avec
Sélection. Trouver. Exécuter Remplacer: = wdReplaceAll
'Supprimer les doubles onglets
Avec la sélection. Trouver
. Texte = "^ t ^ t"
. Remplacement. Texte = "^ t"
Fin avec
Sélection. Trouver. Exécuter Remplacer: = wdReplaceAll
'Supprimer double Entrez les touches (paragraphes vides)
Avec la sélection. Trouver
. Texte = "^ v ^ v"
. Remplacement. Texte = "^ v"
Fin avec
Sélection. Trouver. Exécuter Remplacer: = wdReplaceAll
End Sub
La première opération de recherche et remplacement supprime les espaces de fin. Le texte de recherche est ^ w ^ v, qui recherche tout caractère d'espace blanc (^ w) avant la touche Entrée (^ v). Ces espaces blancs - espace, tabulation, etc. - sont remplacés par la touche Entrée, qui supprime les espaces de fin.
La seconde recherche-remplacement supprime les espaces doubles. appuyez deux fois sur la barre d'espace pour le texte de recherche et appuyez sur la barre d'espace une seule fois pour le texte de remplacement.
La troisième recherche-remplacement supprime les doubles onglets. Le symbole représente les caractères de tabulation dans la boîte de dialogue Rechercher et remplacer.
La recherche-remplacement finale supprime les paragraphes vides. Les caractères ^ v représentent la touche Entrée, donc le remplacement de ^ v ^ v par ^ v supprime tous les paragraphes vides.
Cette macro fonctionne bien, mais ça pourrait être mieux. Par exemple, il ne gère pas les espaces triples ou les tabulations triples. Vous devrez exécuter la macro une deuxième fois pour cela. Si vous fournissez le talent de programmation, le code de la macro peut résoudre ces problèmes.
