VBA Word mise en forme de paragraphes [Résolu]

[millia]

Bonjour,

J'ai un document d'env. 100 pages à mettre en forme. Pour le gros du travail, je me suis débrouillée avec des macros. Où je tombe sur un os c'est pour le formattage de paragraphes bien précis. J'ai des paragraphes qui se terminent pas une balise !tit! (pour titre), et d'autres par !des! (pour description). Tous les paragraphes terminés par !tit! doivent être en gras, et tous les paragraphes terminés par !des! seront mis en forme avec des tabulations.

J'ai bien essayé avec les caractères génériques de Rechercher/Remplacer, mais sans succès. Ensuite, j'ai cherché des exemples de codes en VBA mais bon, je ne maîtrise pas du tout. J'ai bien un bout de code que j'ai piqué sur ce site je crois et que j'ai essayé de faire correspondre. Est-ce que je suis sur la bonne voie ou pas du tout ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub MEFParag()
 
Dim Paragraphe As Paragraph
Dim caract As String
Dim testChaine As String
 
On Error Resume Next
With ActiveDocument.Paragraphs
For Each Paragraphe In ActiveDocument.Paragraphs
    caract = Right(Paragraphe, 4)
    testChaine = caract
      If caract = testChaine Then
            With selection.Characters
            selection.Font.Bold = wdToggle
            selection.Font.Size = 14
            selection.Font.Name = "Times New Roman"
            End With
      Else
      End If
Next
End With
End Sub

Merci beaucoup si vous pouvez m'aider.

[bidou]

plutôt

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim Par As Paragraph
 
For Each Par In ActiveDocument.Paragraphs
    If StrComp(Right(Par.Range.Text, 6), "!tit!" & vbCr, vbTextCompare) = 0 Then
        With Par.Range
            .Font.Bold = wdToggle
            .Font.Size = 14
            .Font.Name = "Times New Roman"
        End With
      End If
Next

par ailleurs

Code :

1
2
testChaine = caract
      If caract = testChaine Then

sera toujours vrai

[millia]

Merci, merci, merci !!! ça marche parfaitement !

Ah, oui, j'ai compris votre dernière remarque, je ne suis pas très logique .....