[VBA-W]Tester l'existence d'un caractère sous Word [Résolu]

[Mut]

Bonjour, je souhaiterais savoir comment tester la présence d'un caractère à droite du curseur sous Word


Merci

[ouskel'n'or]

Par son code Ascii :

Code :

1
2
Dim EstCar as boolean
EstCar = Asc(Selection.MoveRight Unit:=wdCharacter, Count:=1) > 31

A+

[Mut]

J'ai testé ton exemple mais il me met une erreur sur "unit"...j'ai l'impression que la selection n'est pas gérée par la fonction "asc". Voici ce que j'ai essayé de faire à la place :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub RempDate()
 
Selection.GoTo What:=wdGoToBookmark, Name:="Date"
If Selection.Characters(1) = Chr(32) Then
MsgBox "vide"
Selection.InsertDateTime DateTimeFormat:="dd MMMM yyyy"
Else
MsgBox "pas vide"
End If
 
 
End Sub

le msgbox chr(32) me renvoit un message sans rien
le msgbox selection.characters(1) me renvoit également un message sans rien

pourtant la condition IF me renvoit le message "pas vide" alors qu'il n'y a rien après le curseur...je me trompe peut etre sur le chr(32) qui correspond à la touche espace...

[ouskel'n'or]

Je teste et te dis

Envoyé par Tu

le msgbox chr(32) me renvoit un message sans rien
le msgbox selection.characters(1) me renvoit également un message sans rien

Normal : Chr(32) est un espace. Tu n'as donc pas "rien", tu as un espace... et si tu as un espace, tu n'as pas rien
Mais précise ton pb

[Mut]

ouai exact c'est ce que j'ai constaté ! d'ailleurs j'ai partiellement résolu mon problème puisque j'ai inséré un espace et maintenant ça fonctionne ! c'est un peu de la bidouille mais bon....en tout cas je serais curieux de savoir le caractère ASCII de "rien"

[ouskel'n'or]

Le problème, c'est que tu peux toujours avoir un saut de ligne et un saut de ligne, c'est chr(13) or dans Word, des sauts de lignes, tu en as... à la fin de chaque ligne mais tu en as aussi un à la fin du document. Pour être sûr de ne rien avoir, tu peux essayer ça :

Code :

1
2
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    MsgBox Len(Selection)

si = 1, alors tu n'as qu'un saut de ligne

[Mut]

Ah ok... Bon ben tout s'explique ! c'est bon ça fonctionne avec à la place de l'espace, le saut de ligne !


Merci beaucoup