Assigner différents styles de titre en fonction des paragraphes

**bilbin** · 29/04/2021, 19h53

Bonjour à tous,

Je me permet de solliciter votre aide pour un problème qui malgré mes recherches sur internet ne trouvent pas réponses.
Je vous expose mon problème.

J'exporte depuis excel une succession de paragraphes vers un seul signet d'un document Word ouvert. Ces différents paragraphes se décompose comme suit (texte illustratif):

A. Prise en main
(1). Veuillez allumer votre PC
(2). Veuillez attendre le démarrage complet
(a). Option 1: ...
(b). Option 2: ...
B. Paramétrage
(1). etc...
(2). etc...
(3). etc....

Je voulais alors savoir s'il était possible d'assigner à chaque paragraphe (A. ...; (1). ...; (a). ...) un style de titre que j'ai déjà paramétré dans mon document Word(Style de titre sans numérotation vu qu'elles sont déjà présentes à l'exportation).

J'avais commencé à écrire ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Paragraph As Word.Paragraph
 
Selection.GoTo What:=wdGoToBookmar, name:="Z1"
With Selection
     For each Paragraph in Selection.Paragraphs
        Paragraphe.Style = ActiveDocument.Styles("ZStyle(1)")
     Next
End with

Mais ce code va m'assigner le même style de titre à tous les paragraphes de mon texte. Le problème est que je n'arrive pas à lui dire (en vba)
- Si le paragraphe commence par "A." ou "B." etc ...; affecte lui le style de titre 1
- Si le paragraphe commence par "(1)." ou "(2)." etc ...; affecte lui le style de titre 2
-Si le paragraphe commence par "(a)." ou "(b)." etc...; affecte lui le style de titre 3

De plus, il se peut qu'entre deux paragraphes, il y ait des lignes vide (j'entend des marque de fin de paragraphe) dont bien sûr je ne veux pas assigner de style de titre.

J'espère que j'ai réussi à être le plus compréhensible possible. N'hésitez pas à me dire s'il faut plus de précision.

Je remercie d'avance toutes personnes qui pourra me venir en aide.

Bonne soirée