[VBA/Word] Recup texte -> variable

Recup texte -> variable [VBA/Word] - VB/VBA/VBS - Programmation

Marsh Posté le 16-04-2004 à 10:32:37    

Je voudrai recupérer le contenu des lignes de mon texte et les placer dans des variables (un tableau me parait pas mal)
 
texte :  
Monsieur
Dupont
36,rue machin
...
 
de plus il faudrait que je sache combien il y a de lignes dans le document...
 
Merci d'avance  :jap:


---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.
Reply

Marsh Posté le 16-04-2004 à 10:32:37   

Reply

Marsh Posté le 16-04-2004 à 15:54:27    

bon alors maintenant j'utilise un tableau et j'ai pondu le code :

Code :
  1. Sub LectureFichier()
  2. '
  3. ' LectureFichier Macro
  4. ' Macro enregistrée le 16 avril 2004 par Jean-Jacques Merlin
  5. '
  6.     Dim TailleTab
  7.     TailleTab = ActiveDocument.Tables(1).Rows.Count
  8.     Dim Msg(8)
  9.    
  10.     For i = 0 To 8
  11.         Msg(i) = ActiveDocument.Tables(1).Cell(i + 1, 1)
  12.     Next
  13.     Selection.EndKey Unit:=wdStory
  14.     Selection.TypeParagraph
  15.    
  16.     For i = 0 To 8
  17.         Selection.TypeText Text:=Msg(i)
  18.         Selection.TypeBackspace
  19.         Selection.TypeBackspace
  20.         Selection.TypeParagraph
  21.     Next
  22. End Sub


 
donc en fait (c'est juste pour tester) je réécrit le texte à la fin du document.
le problème est que je suis obligé de faire deux Backspace parce que j'ai un Retour chariot et un Cube qui se trouvent à la fin du mot.
Se peut-il qu'il y ai une manière plus propre de faire ca?
SVP aidez moi...
 :hello:  :hello:  :hello:  :cry:  :hello:  :hello:  :hello:


Message édité par emouchet le 19-04-2004 à 10:53:41

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.
Reply

Marsh Posté le 19-04-2004 à 10:52:29    

Voila ce que j'utilise finalement...
Si ca peut aider qqn c'est bien...

Code :
  1. Sub LectureFichier()
  2. '
  3. ' LectureFichier Macro
  4. ' Macro enregistrée le 16 avril 2004 par Jean-Jacques Merlin
  5. '
  6.     Dim TailleTab
  7.     TailleTab = ActiveDocument.Tables(1).Rows.Count
  8.     Dim Msg(8)
  9.    
  10.     For i = 0 To 8
  11.         Msg(i) = ActiveDocument.Tables(1).Cell(i + 1, 1)
  12.         Msg(i) = Mid(Msg(i), 1, Len(Msg(i)) - 2)
  13.     Next
  14.     Selection.EndKey Unit:=wdStory
  15.     Selection.TypeParagraph
  16.    
  17.     For i = 0 To 8
  18.         Selection.TypeText Text:=Msg(i)
  19.         Selection.TypeParagraph
  20.     Next
  21. End Sub


Merci ...


Message édité par emouchet le 19-04-2004 à 10:53:20

---------------
Emouchet, chevalier pendion, vous souhaite une agréable journée.
Reply

Sujets relatifs:

Leave a Replay

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