[WD-2010] Mise en page simple normal => titre sous WORD [Résolu]

[Bibi06]

bonjour,
je ne sais pas coder en VB, et malheureusement, je n'ai pas le temps de me plonger dedans, aussi j'aurais besoin de votre aide SVP les gens

Ce que je veux faire est assez simple : mettre en forme automatiquement des titres sur un long document. Chaque titre commence par la même chaîne de caractère.
Je veux donc parcourir l'ensemble d'un document word, sélectionner à chaque boucle un titre commençant par une chaine de caractère (genre pour des titres Article 1, Article 2, Article 3, sélectionner l'ensemble du titre en recherchant le préfixe commun de la chaîne de caractère "Article"), puis le mettre en forme.

Pour le moment, j'arrive juste à sélectionner "Article", et pas "Article 1", et je ne sais pas comment faire ma boucle pour répéter l'action sur tout le document.

Voici mon début de code

Code :

1
2
3
4
5
6
7
8
Sub titre1()
ThisDocument.Select
With Selection
  .Find.Text = "Article"
  .Find.Execute
  .Style = ActiveDocument.Styles("Titre 1")
End With
End Sub

[Heureux-oli]

Salut,

Si ce mot est en début de paragraphe, c'est plus facile de faire la boucle sur les paragraphes et de tester le premier mot que de faire une recherche pour ensuite étendre la sélection.

[Bibi06]

ok merci pour l'idée, j'ai pas encore réussi à faire ce que je voulais, donc si ya d'autres idées, je suis preneur

[Heureux-oli]

Salut,

À la volée !!

Code :

1
2
3
4
5
6
7
8
9
10
Dim oPar as Paragraph
 
For each oPar in ActiveDocument.Paragraphs
Select Case Left(opar.range.text, 10)
Case "Article 1"
oPar.Style = "Titre 1"
Case "Article 2"
oPar.style = "Titre 2"
End Select
ext oPar

[Bibi06]

ah ben super c'est tout à fait ce qu'il me faut
comment faire pour chopper le premier mot du paragraphe et non pas les 10 premiers caractères du string paragraphe ?


Select Case oPar.Range.Words(1) ??

[Bibi06]

ça bloquait sans trim, maintenant ça marche, merci les gars

voici mon code au final :

Code :

1
2
3
4
5
6
7
8
9
10
Dim oPar As Paragraph
 
For Each oPar In ActiveDocument.Paragraphs
    Select Case Trim(oPar.Range.Words(1))
    Case "CHAPITRE"
    oPar.Style = "Titre 2"
    Case "Article"
    oPar.Style = "Titre 3"
    End Select
Next oPar

très très contente