[VBA/Word] Recup texte -> variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA/Word] Recup texte -> variable

emouchet

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.

Publicité

emouchet

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

Code :

Sub LectureFichier()
'
' LectureFichier Macro
' Macro enregistrée le 16 avril 2004 par Jean-Jacques Merlin
'
Dim TailleTab
TailleTab = ActiveDocument.Tables(1).Rows.Count
Dim Msg(8)
For i = 0 To 8
Msg(i) = ActiveDocument.Tables(1).Cell(i + 1, 1)
Next
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
For i = 0 To 8
Selection.TypeText Text:=Msg(i)
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeParagraph
Next
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.

emouchet

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

Code :

Sub LectureFichier()
'
' LectureFichier Macro
' Macro enregistrée le 16 avril 2004 par Jean-Jacques Merlin
'
Dim TailleTab
TailleTab = ActiveDocument.Tables(1).Rows.Count
Dim Msg(8)
For i = 0 To 8
Msg(i) = ActiveDocument.Tables(1).Cell(i + 1, 1)
Msg(i) = Mid(Msg(i), 1, Len(Msg(i)) - 2)
Next
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
For i = 0 To 8
Selection.TypeText Text:=Msg(i)
Selection.TypeParagraph
Next
End Sub

Merci ...

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

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

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 radio	Recuperer le texte d'une page web dans un fichier texte
Quelques conseils pour un débutant vba - base de données	Rapidité 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

Page générée en 0.039 secondes