Récupérer contenu d'un fichier word

Récupérer contenu d'un fichier word - VB/VBA/VBS - Programmation

Marsh Posté le 14-06-2006 à 15:33:20    

Bonjour, j'ai créé un vbs qui va récupérer des le contenu d'un doccument word.
 
Le problème, c'est que je n'arrive pas à récupérer la numérotation (bullet and numbering) de ce document
 
Avez-vous une idée ??
 
voici mon code :
 

Code :
  1. Set WSHShell = WScript.CreateObject("WScript.Shell" )
  2. Set appWord = WScript.CreateObject("Word.Application" )
  3. appWord.Visible = False ' Affiche l'application.
  4. appWord.Documents.Open("c:\test.doc" )
  5. AppWord.visible = True
  7. x = 1
  8. Do While x <= appWord.ActiveDocument.Paragraphs.Count
  9. text = appWord.ActiveDocument.Paragraphs(x)
  10. If len(text) > 1 Then
  11. WScript.Echo x & ": " & text
  12. End If
  13. x = x + 1
  14. loop
  16. appWord.Quit
  17. Set appWord = Nothing


 
Merci

Reply

Marsh Posté le 14-06-2006 à 15:33:20   

Reply

Marsh Posté le 19-06-2006 à 09:50:47    

up

Reply

Sujets relatifs:

Leave a Replay

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