Discussion :

[arundel]

Bonjour à tous,
J'édite en Word (2021) un programme de concert dans lequel je cite, pour chaque morceau, les musiciens qui l'interprètent.
On peut avoir par exemple la ligne suivante éditée avec un style nommé Musicien :
"Guitare et chant : Eric Clapton"
Je voudrais avoir "Guitare et chant" en gras en laissant "Eric Clapton" en épaisseur normale. J'ai pour cela crée un style lié nommé Instrument.

Quand je sélectionne manuellement "Guitare et chant" et que j'applique le style Instrument ça fait exactement ce qui je veux.
Mais comme j'ai de nombreuses lignes à traiter, je souhaite le faire en VBA en parcourant les paragraphes du document.
Pour cela je parcours le document paragraphe par paragraphe en filtrant sur le style "Musicien"

J'ai écrit la procédure suivante mais j'ai l'erreur de compilation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub AffecterStyleInstrument()
 Dim aPara As Paragraph, intPos As Integer, rngInstrument As Range
 
 For Each aPara In ActiveDocument.Paragraphs
  If aPara.Style = "Musicien" Then
   intPos = InStr(1, aPara.Range.Text, ":")
   Set rngInstrument = aPara.Range(Start:=0, End:=intPos)
  End If
 Next aPara
End Sub

"Nombre d'argument incorrect ou affectation de propriété incorrecte"
Ma question : par quel moyen sélectionner le texte à gauche du ":" pour lui appliquer ensuite le style Instrument ?
Merci d'avance pour votre aide.

[E KERGRESSE]

Bonjour,

A tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AffecterStyleInstrument()
 
Dim aPara As Paragraph, intPos As Long
 
    For Each aPara In ActiveDocument.Paragraphs
        With aPara
            If .Style = "Musicien" Then
               intPos = InStr(1, .Range.Text, ":", vbTextCompare)
               .Range.Select
               Selection.SetRange Start:=0, End:=intPos
               Selection.Style = "Instrument"
            End If
        End With
    Next aPara
 
End Sub

[arundel]

Merci pour ta réponse rapide.

Point positif : plus d'erreur de compilation
Problème résiduel : la sélection (ligne 10) détermine une sous-chaine de la longueur voulue mais qui part du début du document et non du paragraphe courant dans la boucle. En d'autres termes à chaque itération on repart du début du document.
As-tu une nouvelle idée ?

Merci d'avance

[E KERGRESSE]

Testez :

Code :

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

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
28
29
30
31
32
33
Sub TesterAffecterStyleInstrument()
 
    ' AffecterStyleInstrument "Titre 2", "Titre"
    AffecterStyleInstrument "Musicien", "Instrument"
 
End Sub
 
 
 
Sub AffecterStyleInstrument(ByVal StyleMusicien As String, ByVal StyleInstrument As String)
 
 Dim I As Long, IntPos As Long, CaractereDebut As Long
 Dim MonRange As Range
 
     With ActiveDocument
          For I = 1 To .Paragraphs.Count
              .Select
              Set MonRange = Selection.Range
              With .Paragraphs(I)
                   If .Range.Style = StyleMusicien Then
                      IntPos = InStr(1, .Range.Text, ":", vbTextCompare)
                      .Range.Select
                      Selection.HomeKey unit:=wdStory, Extend:=wdExtend
                      CaractereDebut = Selection.Characters.Count
                      MonRange.SetRange Start:=CaractereDebut, End:=CaractereDebut + IntPos
                      MonRange.Style = StyleInstrument
                   End If
              End With
           Next I
           Set MonRange = Nothing
    End With
 
End Sub

Si problème, mettez en ligne un exemple.

[arundel]

Bravo à toi !

Petite frayeur au départ car toute la ligne Musicien était passée en gras après application du style "Instrument".
J'ai alors eu l'idée de réessayer en invoquant le style "Instrument car" et çà marche ! Seule la partie avant les 2 points est en gras, la suite étant non touchée.
C'était pas évident car le style est bien référencé "Instrument" mais lors d'un essai manuel l'éditeur de macro m'avait généré "Instrument car", ce qui m'avait intrigué.

Je n'ai rien vu qui signale cette curiosité dans la doc MS ni dans les forums techniques. A mémoriser dans la base de connaissance pour la suite et pour les petits camarades.

Encore merci.