Bonjour à tous,

J'ai un document Word qui se présente sous cette forme (simplifiée) :


Section 1

1. Référence truc
2. Référence machin
3. Référence chose

Section 2

1. Référence bidule
2. Référence j'ai plus de synonymes


Et ainsi de suite pour de nombreuses sections.

Ce que je voudrais, c'est appliquer un style à chacune des "références", sachant qu'elles ont la même mise en forme que les "sections", la seule chose qui permette de les distinguer, c'est que les lignes "références" commencent toujours pas un chiffre, ce qui n'est jamais le cas pour les lignes "sections".

Il me faudrait donc une macro qui cherche à la fois la mise en forme des références et le fait que ces lignes commencent pour un chiffre (je précise ces deux conditions pour être sure que le style soit uniquement appliqué aux "références"). Pour l'instant, j'ai une macro inspirée d'un autre sujet de remplacement de style qui ne marche pas , et il me manque la partie "appliquer aux lignes qui commencent par un chiffre". Je bloque particulièrement sur le deuxième point, car en recherchant des macros sur "commence par un chiffre", je ne trouve que des macros pour Excel...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Selection.HomeKey unit:=wdStory
 
Selection.Find.ClearFormatting
 
With Selection.Find
    .Font.Bold = True
    .Font.Name = "Calibri"
    .Font.Size = 11
    .Forward = True
    .Replacement.Style = "Titre reference"
    .Execute2007 Replace:=wdReplaceAll
End With
Cela est-il possible sous Word ? Merci d'avance pour votre aide