Mettre en couleur du code [Résolu]

[lathenor]

Bonjour, je suis débutant en macro sous word (merci d'être indugent ^^)

Voila, j'aimerais

1 - pour chaque paragraphe un à un d'un texte word
tester si son style est le style "code_source"

2 - si son style est "code_source"
pour chaque ligne une par une et tester s'il y a le caractere #

3 - s'il y a le caractère #
selectionner ce caractère # et le reste de la ligne

4 - mettre cette selection de la couleur verte


J'ai bô aller dans différent type d'help, je dois avouer que j'ai un peu de mal.

J'ai quelques pistes
1- ActiveDocument.Paragraphs pour selectionner le doc, par contre pour connaitre son type ???
2- Je n'arrive pas faire pour chaque ligne ..
3- normalement avec Trim(LIGNE) = "#" ça devrait le faire, mais pour selectionner la fin de texte je vois pas trop
4- une fois selectionner, c'est facile :

Code :

Selection.Font.Color = wdColorSeaGreen

Voila, si quelqu'un pouvais m'indiquer les elements qui me serait nécéssaire pour faire cet algo, ce serait vraiment sympas.
J'espere que j'en ai dit assez ce ce que je voulais faire.

[Heureux-oli]

Ton caractère # où se trouve-t-il dans ta ligne de texte ?
Si il est au début, on peut le jouer.
Si c'est pas le cas, c'est un pneu plus dur( moins de pression c'est mieux).

[Heureux-oli]

Ce code ne fonctionne que si # est le premier caractère de la ligne et qu'il est suivi par un espace.
Si ce n'est pas le cas, il faut faire une boucle supplémentaire pour les différents mots de la phrase.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub codeCouleur()
Dim p As Paragraph
 
For Each p In ActiveDocument.Paragraphs
p.Range.Select
If Trim(Selection.Words(1)) = "#" Then
    Selection.Font.Color = wdColorDarkRed
    Debug.Print "OK"
End If
 
Next p
 
 
 
End Sub

[ouskel'n'or]

Regarde ici, tu as la solution pour sélectionner du texte entre deux balises où qu'elles se trouvent. La solution passe par ExtendMode, qui permet, à partir d'une balise, d'étendre la sélection jusqu'à la suivante.

[lathenor]

Merci, Heureux-oli pour ton code,

J'ai repris la même base et je l'ai modifié pour repondre plus a mes attentes, mais il me manque un element pour finir mon objectif (l'element 1 de mon algo).

Comment connaitre le "STYLE" courant et savoir q"' on est dans le "Style : normal" ou le "style : TITRE 1" ou en ce qui me concerne le "Style : CODE_SOURCE", car je voudrais que ma macro soit utilisée uniquement dans ce "style".

Si vous avez des éléments de réponses je vous remercie d'avance !

voici le code modifié :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub codeCouleur()
    Dim p As Paragraph
    Dim i As Integer
    Dim nbword As Integer
    Dim commentaire As Integer
 
    For Each p In ActiveDocument.Paragraphs
    p.Range.Select
 
        nbword = Selection.Words.Count
        i = 1
        commentaire = 0
        Do While nbword <> i
            If commentaire = 1 Then
                Selection.Words(i).Font.Color = wdColorSeaGreen
            ElseIf Trim(Selection.Words(i)) = "#" Then
                commentaire = 1
                Selection.Words(i).Font.Color = wdColorSeaGreen
            End If
            i = i + 1
        Loop
    Next p
End Sub

[Heureux-oli]

Voilà la code qui permet de déterminer le style de ton paragraphe.

Code :

1
2
3
4
5
6
7
8
9
Sub styleShow()
Dim p As Paragraph
 
For Each p In ActiveDocument.Paragraphs
p.Range.Select
Debug.Print Selection.Style
Next p
 
End Sub

On aurait alors

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub codeCouleur()
    Dim p As Paragraph
    Dim i As Integer
    Dim nbword As Integer
    Dim commentaire As Integer
 
 
 
    For Each p In ActiveDocument.Paragraphs
    p.Range.Select
    If selection.style = "Normal" Then
        nbword = Selection.Words.Count
        i = 1
        commentaire = 0
        Do While nbword <> i
            If commentaire = 1 Then
                Selection.Words(i).Font.Color = wdColorSeaGreen
            ElseIf Trim(Selection.Words(i)) = "#" Then
                commentaire = 1
                Selection.Words(i).Font.Color = wdColorSeaGreen
            End If
            i = i + 1
        Loop
    Next p
   End If
End Sub

[lathenor]

Géant, génialisme !

Un grand merci !