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 :
- Set WSHShell = WScript.CreateObject("WScript.Shell" )
- Set appWord = WScript.CreateObject("Word.Application" )
- appWord.Visible = False ' Affiche l'application.
- appWord.Documents.Open("c:\test.doc" )
- AppWord.visible = True
- x = 1
- Do While x <= appWord.ActiveDocument.Paragraphs.Count
- text = appWord.ActiveDocument.Paragraphs(x)
- If len(text) > 1 Then
- WScript.Echo x & ": " & text
- End If
- x = x + 1
- loop
- appWord.Quit
- Set appWord = Nothing
|
Merci
