Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
516 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA/Word] Recup texte -> variable

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA/Word] Recup texte -> variable

n°700814
emouchet
Posté le 16-04-2004 à 10:32:37  profilanswer
 

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.
mood
Publicité
Posté le 16-04-2004 à 10:32:37  profilanswer
 

n°701189
emouchet
Posté le 16-04-2004 à 15:54:27  profilanswer
 

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.
n°702582
emouchet
Posté le 19-04-2004 à 10:52:29  profilanswer
 

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.

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA/Word] Recup texte -> variable

 

Sujets relatifs
[VBA] PB avec fonctions Acess[vba excel] affichage de resultat d'excel sous word ?
recupérer la variable d'un radioRecuperer le texte d'une page web dans un fichier texte
Quelques conseils pour un débutant vba - base de donnéesRapidité de lecture d'une variable
Excel, VBA, ACCESS et ... les dates ....[C++]Ecriture dans un fichier texte
[JAVA]Ecrire un texte penché (en biais)VB et les tableaux sous Word
Plus de sujets relatifs à : [VBA/Word] Recup texte -> variable


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR