rechercher un mot a l'aide de la fonction instr

Question

Bonjour voila je veux rechercher deux mots dans mon document word et si je les trouve grace a la fonction instr j'ai ma variable p qui doit me renvoyer true or elle me renvoie faux es ce que quelqu'un pourrait m'aider voici mon code
Merci

Sub TrouverCourrier()
'
' TrouverCourrier Macro
'
'

    ' on définit les variables
    Dim Cible1 As String
    Dim Cible2 As String
    Dim p As Boolean
    
    
    
    Cible1 = "Confirmation"
    Cible2 = "Courrier"
    
    If InStr(ActiveDocument, Cible1) <> 0 Then
    p = "true"
    Else: p = "false"
    End If
    MsgBox (p)
    
     If InStr(ActiveDocument, Cible2) <> 0 Then
    p = "true"
    'Else: p = "false"
    
    MsgBox (p)
    End If
    
   
    
    
End Sub

Frenchie83 · Answer

Bonjour
ceci peut-être

Option Compare Text

Sub TrouverCourrier()
    Dim Cible1 As String
    Dim Cible2 As String
    Dim Texte As String
    Dim p As Boolean
    
    Cible1 = "Confirmation"
    Cible2 = "Courrier"
    Selection.WholeStory
    Texte = Selection
    
    If InStr(1, Texte, Cible1) <> 0 Or InStr(1, Texte, Cible2) <> 0 Then p = "true" Else: p = "false"
    MsgBox (p)
End Sub

Cdlt

Frenchie83 · Answer

Bonjour

Option Compare Text

Sub TrouverCourrier()
    Dim Cible1 As String
    Dim Cible2 As String
    Dim Texte As String
    Dim p As Boolean
    
    Cible1 = "Confirmation"
    Cible2 = "Courrier"
    Selection.HomeKey Unit:=wdStory
    Selection.Paragraphs(1).Range.Select
    Texte = Selection
    
    If InStr(1, Texte, Cible1) <> 0 Or InStr(1, Texte, Cible2) <> 0 Then p = "true" Else: p = "false"
    MsgBox (p)
End Sub

Ceci va rechercher la cible dans la première ligne trouvée du document
A tester
Cdlt

Rechercher un mot a l'aide de la fonction instr

2 réponses

Discussions similaires

Newsletters