[Word] Recherche code pour le carriage return ou espace

Recherche code pour le carriage return ou espace [Word] - VB/VBA/VBS - Programmation

Marsh Posté le 05-07-2003 à 00:59:29    

J'essaie déspérément de trouver un moyen de faire ça:
- j'ai plein de lignes de texte, mettons  
 
tructest1
tructest2
tructest3 test4
 
Je voudrais une macro qui recherche et sélectionne truc* jusqu'à la fin de la ligne.
 
Mon problème est que je n'arrive pas à sélectionner tout ce qu'il y a après truc sur chaque ligne.
 
Pour l'instant tout marche bien s'il n'y a pas d'espace avec ça:
 

Code :
  1. With Selection.Find
  2.         .Text = "truc*>"


 
mais ca s'arrête à la fin du mot (à cause du caractère > )
 
J'ai essayé de remplacer > par ^n ou ^l marche pas.
 
Si je fais:
tructest2(tabulation)
 
et ma commande est:

Code :
  1. With Selection.Find
  2.         .Text = "truc*>^t"


 
il me sélectionne pourtant bien la tabulation !
 
 
Comment faire pour qu'il aille jusqu'au bout de la ligne ?
 
Plus simplement par quoi remplacer > pour que la sélection ne s'arrête pas à la fin du mot mais à la fin de la ligne ?
 
 
 

Reply

Marsh Posté le 05-07-2003 à 00:59:29   

Reply

Marsh Posté le 05-07-2003 à 11:10:11    

J'y connais pas grd chose, mais tu peux pas mettre:
chr(codeasciiduretourchariot)
 
T'as juste à trouver le code ascii du retour chariot.

Reply

Marsh Posté le 05-07-2003 à 16:26:45    

J'ai effectivement essayé ca aussi, mais je ne connais pas la syntaxe pour incorporer un code ascii (code 13 pour le retour chariot).
 
J'ai essayé &013; mais ca a rien donné :/
 
Tu connaitrais pas la syntaxe par hasard ?


Message édité par Sartene le 07-07-2003 à 10:18:22
Reply

Marsh Posté le 07-07-2003 à 10:18:35    

[:megaup]

Reply

Marsh Posté le 07-07-2003 à 12:11:03    

retour chariot sous Win, normalement, c'est 13 10 ...
13 == \r (0x0D)
10 == \n (0x0A)
 
peut-être qu'il préfère le 10 ... On ne sait jamais ...


---------------
last.fm
Reply

Marsh Posté le 07-07-2003 à 12:57:26    

Merci, j'essaie ca ce soir.

Reply

Marsh Posté le 08-07-2003 à 10:39:00    

Slut,
la syntaxe pour ajouter un code ascii en vb c'est: chr()
--->>Pour un cariage return: chr(13)    
:)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed