Comment appliquer macro à la fin de chaque rubrique dans MS Word?

Question

J'ai un document avec différentes rubriques (donc pas nécessairement Titre 1 ou Titre 2 - mais tous les types de rubriques).

Ce que j'essaye de faire est d'écrire une macro qui, par exemple, supprimera 2 espaces à la fin de chaque entête.

Par exemple, nous avons

Ceci est une rubrique

A la fin du titre, je le ferai:

Selection.Delete Unit:=wdCharacters, Count:=2 

Je en ai besoin à appliquer à la fin de chaque rubrique .

Est-ce que quelqu'un sait comment faire cela?

Answer 1

Aller à la première rubrique:

Selection.GoTo What:=wdGoToHeading,Which:=wdGoToFirst 

Aller à la prochaine rubrique

Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext 

Vérifiez où vous êtes pour voir si vous avez atteint la dernière rubrique:

x=Selection.Start 
    Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext 
    if x = Selection.Start then '... last heading reachd 

Aller à la fin du courant titre (par exemple, pour supprimer des caractères:

Selection.EndKey Unit:=wdLine