Discussion :

[jpmalb]

Bonjour
Débutant, j'examine des morceaux de procédure pour intégrer les rudiments du VBA de Word

Quelqu'un pourrait-il m'expliquer "en français" ce que va faire cette procédure...

Merci

For i = 1 To ActiveDocument.Paragraphs(22).Range.Words.Count - 1
If ActiveDocument.Paragraphs(22).Range.Words(i) = "-" Then
firstP = True
End If
If Not firstP Then
prénom = prénom & "_"
End If

[Mat.M]

bonjour le code est simple à comprendre on scrute le document et ses paragraphes et si on trouve un tiret à ce moment-là pas besoin de concaténer le prénom

[jpmalb]

Merci...mais c'est surtout le rôle de "Count-1" qui me pose question...comment fonctionne t-il ?

[Mat.M]

Pour éviter le -1 il faut mettre i à zéro
Consulter le MSDN pour plus de renseignements.

[Philippe Tulliez]

Bonjour,
La boucle parcoure tous les mots du paragraphe 22. La propriété Count est commune à toutes les collections (ici la collection est Words)

Pour mieux comprendre le code, tester la procédure ci-dessous en modifiant la valeur de la constante Pn pour afficher les mots du paragraphe choisi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub t()
  Const Pn As Integer = 2 ' Numéro du paragraphe
  Dim i As Integer
  Dim m As String
  Dim firstp As Boolean
  With ActiveDocument.Paragraphs(Pn).Range
    For i = 1 To .Words.Count - 1
      m = m & vbCrLf & i & ") " & .Words(i)
    Next
  End With
  MsgBox m
End Sub

[jpmalb]

merci pour cet exemple...ce qui me "chiffonne" c'est la présence de "-1" derrière Count. Pourquoi cette syntaxe ?
Quand je supprime le "-1", ça fonctionne tout aussi bien... je sais, je pinaille sans doute mais il ne doit pas être là sans raison....

[Philippe Tulliez]

Bonjour,
Le saut de paragraphe est compté comme un mot.

Voir le code modifié

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
Sub t()
  Const Pn As Integer = 1 ' Numéro du paragraphe
  Dim i As Integer
  Dim m As String
  Dim c As Integer  ' Nombre de mots
  With ActiveDocument.Paragraphs(Pn).Range
    c = .Words.Count
    m = "Il y a " & c & " mots dans le paragraphe"
    For i = 1 To .Words.Count
      m = m & vbCrLf & i & ") " & .Words(i)
    Next
    m = m & vbCrLf & "Code Ascii du dernier mot = " & Asc(.Words(c))
  End With
  MsgBox m
End Sub

[jpmalb]

Ok .. merci pour cette précision