Problème de macro avec Microsoft Word
Bonjour,
J'ai un petit problème que je m'éfforce de résoudre depuis pas
mal de temps.Je souhaite dans un document word recuperer les
textes dans les cellules (Shapes) et pouvoir faire une sorte de
synthèse.J'ai donc coder une macros de ce type:
Ce code fonctionne or mis qu'il me donne les cellules dans l'ordre de création et non pas
par ordre d'apparence.
Mon but est de pouvoir coder soit une fonction "SORT" qui met les Shapes dans un conteneur
et qui les trient ou bien existe t'il déja une fonction ?
Merci d'avance.
J'ai un petit problème que je m'éfforce de résoudre depuis pas
mal de temps.Je souhaite dans un document word recuperer les
textes dans les cellules (Shapes) et pouvoir faire une sorte de
synthèse.J'ai donc coder une macros de ce type:
Sub synthese()
i = 1
Selection.TypeText ("Synthèse:" & vbCrLf & vbCrLf)
For x = 1 To ActiveDocument.Shapes.Count
Text = ActiveDocument.Shapes.Item(x).TextFrame.TextRange.Text
Selection.TypeText (i & ")" & Chr(9) & Text)
i = i + 1
Next
End Sub
Ce code fonctionne or mis qu'il me donne les cellules dans l'ordre de création et non pas
par ordre d'apparence.
Mon but est de pouvoir coder soit une fonction "SORT" qui met les Shapes dans un conteneur
et qui les trient ou bien existe t'il déja une fonction ?
Merci d'avance.
Configuration: Windows XP Internet Explorer 6.0
