Rechercher un mot a l'aide de la fonction instr

Fermé

totti1017 - Modifié par pijaku le 6/02/2016 à 19:36
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 9 févr. 2016 à 02:41

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

A voir également:

Rechercher un mot a l'aide de la fonction instr
Rechercher ou entrer l'adresse - Guide
Piratage facebook changer mot de passe - Guide
Fonction si et - Guide
Adresse IP locale : comment la trouver facilement - Guide
Mettre un mot de passe sur un dossier - Guide

2 réponses

Réponse 1 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
6 févr. 2016 à 06:59

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

totti1017 Messages postés 1 Date d'inscription lundi 8 février 2016 Statut Membre Dernière intervention 8 février 2016
8 févr. 2016 à 09:22

Bonjour,
Merci beaucoup de votre réponse cela marche. J'ai une dernière question comment je pourrai cibler cette recherche juste sur le "coin" en haut a gauche de mon document
Cordialement

Réponse 2 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 févr. 2016 à 02:41

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

Discussions similaires

programme qui n'affiche pas le mot secret

Trouver le mot réellement écrit en lettres capitales PIX

Mot de passe administrateur Freebox : où le trouver ?

Discussions similaires

Newsletters