[VBA Macro Word] tous les caractères possibles avec la fonction Chr
Page 1 sur 1
[VBA Macro Word] tous les caractères possibles avec la fonction Chr
en élaboration [Vous devez être inscrit et connecté pour voir ce lien]
la fonction peut être placée dans un champ recherche, en supprimant les guillemets la contenant.
pour l'intégrer dans un champ , il faut procéder en 2 étapes.
pour un Chr() dans un champ .Replacement :
on inventera une suite de caractères improbable quelconque : ### ou rfhkkz ou n'importe quoi, qui apparaitra furtivement.
1/ procéder au RR voulu en utilisant la suite improbable pour le caractère inséré
With Selection.Find
.Text = "(\))(»)"
.Replacement.Text = "\1###\2"
End With
2/ puis remplacer la suite improbable par le caractère voulu, généré par la fonction Chr()
Selection.Find
.Text = "###"
.Replacement.Text = ChrW(8239)
End With
pour un Chr() dans un champ ..Text :
' remplacer le caractère recherché
With Selection.Find
.Text = ChrW(8239) ' pas de guillemets, c'est une fonction vba.
.Replacement.Text = "###"
End With
' puis :
Selection.Find
.Text = " [faire recherche souhaitée, où le caractère spécial est app "###"]"
.Replacement.Text = résultat souhaité
End With
' puis rétablir le caractère (ou supprimer) à étudier
Selection.Find
.Text = "###"
.Replacement.Text = ChrW(8239)
End With
la fonction peut être placée dans un champ recherche, en supprimant les guillemets la contenant.
pour l'intégrer dans un champ , il faut procéder en 2 étapes.
pour un Chr() dans un champ .Replacement :
on inventera une suite de caractères improbable quelconque : ### ou rfhkkz ou n'importe quoi, qui apparaitra furtivement.
1/ procéder au RR voulu en utilisant la suite improbable pour le caractère inséré
With Selection.Find
.Text = "(\))(»)"
.Replacement.Text = "\1###\2"
End With
2/ puis remplacer la suite improbable par le caractère voulu, généré par la fonction Chr()
Selection.Find
.Text = "###"
.Replacement.Text = ChrW(8239)
End With
pour un Chr() dans un champ ..Text :
' remplacer le caractère recherché
With Selection.Find
.Text = ChrW(8239) ' pas de guillemets, c'est une fonction vba.
.Replacement.Text = "###"
End With
' puis :
Selection.Find
.Text = " [faire recherche souhaitée, où le caractère spécial est app "###"]"
.Replacement.Text = résultat souhaité
End With
' puis rétablir le caractère (ou supprimer) à étudier
Selection.Find
.Text = "###"
.Replacement.Text = ChrW(8239)
End With
Sujets similaires
» [VBA Macro RR]transférer, exporter, importer une macro dans Word
» Word VBA RR Caractères spéciaux dans les macros RR Word
» accès aux caractères avec les Alt Codes
» Word - pour supprimer TOUS les commentaires d'un coup
» Alt-Codes dans Word et dans l'éditeur de macros, ou comment générer des caractères à l'aide de la touche Alt
» Word VBA RR Caractères spéciaux dans les macros RR Word
» accès aux caractères avec les Alt Codes
» Word - pour supprimer TOUS les commentaires d'un coup
» Alt-Codes dans Word et dans l'éditeur de macros, ou comment générer des caractères à l'aide de la touche Alt
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum