Reconnaître une fin de ligne

Reconnaître une fin de ligne - VB/VBA/VBS - Programmation

Marsh Posté le 22-06-2006 à 14:21:37    

Bonjour,  
Je bosse (toujours!!) sur une macro qui parcours un document Word et qui insère des champs devant des mots ayant un certains style. C'est un algo de dingue parce-qu'il faut traiter tout les cas:espaces, ponctuation...d'ailleurs si qq'un a déjà l'expèrience ds ce domaine qu'il me fasse signe!
Mon problème principal en fait c'est que je n'arrive pas à traiter les tableaux. Ma macro m'insère les bons champs ds la première ligne et puis va me renvoyer une erreur qd il passe à la seconde.
L'erreur est "5251" Action non valide en fin de ligne te il me surligne la ligne "Selection.InsertBefore ("[" & ref & "]" )"
Alors si vous savez comment on indique un saut de ligne ds un tableau ce serait déjà une très bonne chose et si vous avez une solution, ce serait encore mieux!
 
Note: J'ai essayé vbCr et vbLf ms ça ne marche pas.
Lorsque que j'affiche le parcours, arrivé en fin de ligne( là où ça buggue donc) ça m'affiche un point genre Chr(7) pour ceux qui la table de caractères ASCII (merci kiki29) ou, pour ceux qui ne l'ont pas comme une puces toute simple ds word.
 
Merci d'avance

Reply

Marsh Posté le 22-06-2006 à 14:21:37   

Reply

Marsh Posté le 01-08-2006 à 10:00:49    

hello  
 
meme probleme
plantage lors du parcours des lignes


Message édité par akio le 01-08-2006 à 10:01:19
Reply

Marsh Posté le 01-08-2006 à 10:16:27    

ca a l'air de marcher :
 
  If (objRange = Chr(13) & Chr(7)) Then
        MsgBox "trouve"
  Else
      traitement
    End If
 
bye

Reply

Marsh Posté le 01-08-2006 à 14:18:12    

Question à part : Avais-tu essayé le post du 23-06 17:08 sur la conversion des tableaux en texte ?
http://forum.hardware.fr/hardwaref [...] 2788-1.htm

Reply

Marsh Posté le 02-08-2006 à 15:56:54    

oui oui ça marchait nickel.Je ne t'ai pas dit merci?

Reply

Sujets relatifs:

Leave a Replay

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