Discussion :

[Elstak]

Hello,

voilà j'ai un souci, surement tout bete,

voici mon texte dans word :

Public function test as byte

mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tests()
    Debug.Print ThisDocument.Words.Count
 
    For i = 1 To ThisDocument.Words.Count - 1
 
        'If (CStr(ThisDocument.Words(i)) = "Public") Then
        If (StrComp(ThisDocument.Words(i), "Public", 1) = 0) Then
 
            MsgBox "hu"
 
        End If
    Next
 
End Sub

j'ai essayé avec toutes les comparaisons que je connaissais, meme avec des Ucase etc... rien à faire je n'ai jamais le msgbox qui apparait. ThisDocument.Words.Count me renvoit 6 (j'ai cru deja voir qu'il y avait dans un doc vierge toujours 1 mot donc ca ne m'etonne pas de voir 6 en ayant 5 mots ) par contre pour le msgbox...

[Elstak]

Hop,

jviens de retester un truc

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim Tableau As Variant
 
    Tableau = Array("Public", "2", "as")
    For i = 1 To ThisDocument.Words.Count - 1
        For j = 1 To UBound(Tableau)
            If CStr(UCase(ThisDocument.Words(i))) = CStr(UCase(Tableau(j))) Then
                ThisDocument.Words(i).Bold = True
            End If
        Next
    Next

et là pour le "2" ca fonctionne...

Public function test as byte
Blabla 2
End function

Public sub test
Bla
End sub

mais uniquement pour le "2"

[SilkyRoad]

bonjour

tu peux tester cette synthaxe

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 Test()
Dim Plage As Object, Wd As Object
Dim x As Integer
 
Set Plage = ThisDocument.Words
 
For Each Wd In Plage
    If InStr(1, Wd, "Public") > 0 Then
    x = x + 1
    MsgBox "hu"
    End If
Next Wd
 
MsgBox x & " mots trouvés ."
End Sub

bonne apres midi
michel

[Elstak]

Bah...

ca va tout de suite mieux !!

merci silky