Comment trouver un caractère dans une chaîne en VBA

Ouvrez l'un des programmes Microsoft Office qui utilisent VBA (Visual Basic for Applications) et contiennent déjà un texte. Cliquer sur "Promoteur" dans le menu du haut, puis "Visual Basic," qui seront inscrits dans la deuxième rangée d'options. Cela ouvre l'écran d'édition VBA.

Entrez les lignes suivantes dans la fenêtre vierge.

Sous FindCharacter ()
Dim KnownString, SoughtCharacter, Trouvé As String
Dim Lieu, i, réglez As Integer
KnownString = InputBox ("Tapez ou copiez et collez le texte à rechercher ici")
SoughtCharacter = InputBox ("Tapez le caractère recherché ici")
Lieu = InStr (1, KnownString, SoughtCharacter, vbTextCompare)
Réglez = 10
Pour i = 1 Pour Len (KnownString)
Si Localisation lt; Réglez ensuite
Réglez = Ajuster / 5
End If
Si i = Lieu Puis
Trouvé = Mid (KnownString, Lieu - Ajuster, Lieu + Réglez)
MsgBox "Ceci est la première occurrence de " & vbCrLf & SoughtCharacter & " Dans le contexte" & vbCrLf & "'" & Trouvé & "'"
End If
I Suivant
End Sub

Réduire le côté droit de la ligne suivante si la recherche d'un personnage dans des segments très courts de texte:

Réglez = 10

Pour ce faire, parce que le projet est configuré pour afficher un numéro de défaut de caractères de chaque côté du caractère recherché. Si la chaîne est trop court, le programme va produire une erreur.

Cliquer sur "Macros" dans la section développeur du document Word et exécuter cette macro pour voir comment cela fonctionne. Si la macro échoue, vérifiez votre travail à partir des indications ci-dessus.