[Resolu][VBA]recuperer les titres et n° de chapitre d'un document word

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Resolu][VBA]recuperer les titres et n° de chapitre d'un document word

titounne

bonjour,
je cherche a recuperer les titres et surtout les numero des titres d'un document word pour ensuite les ecrire dans en base de données

Alors pour recupere les titres je fait comme ça

Code :

Selection.GoTo What:=wdGoToHeading, Which:=wdGoToNext, Count:=1, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy

mais je ne sais pas recuperer les numero de façon explicite, et egalement je n'arrive pas a boucler sur le code du haut pour parcourir tout mon document de manière automatique quel que soit le nombre de titre et sous titre qu'il contient.
si quelqu'un a deja fait ce genre de chose ou a une idée je suis preneuse.
Merci

Message édité par titounne le 06-05-2004 à 14:05:09

---------------
Des images

Publicité

titounne

alors pour recupere les numeros de chapitre je n'ai pas trouver de fonction directe.
La fonction outLineLevel donne la "profondeur" du tritre, si c'est un itretre 1, 2 ou autre
et la fonction listValue donne le dernier numero du tritre (ex pour 1.2.5.4 donne 4)
par contre apres il faut reconstruire le numero en entier.

quand au fait que je doit boucler sur tt le document la je ne sais pas trop comment faire.
Peut etrer avec range

Message édité par titounne le 05-05-2004 à 14:51:39

---------------
Des images

titounne

bon ben voila comme ça ça marche

Code :

Sub showNumbers()
Dim objPara As Paragraph
Dim sText As String
Dim sList As String
Dim nLevel As Integer
For Each objPara In ActiveDocument.Paragraphs
With objPara.Range
sText = .Text
sList = .ListFormat.ListString
nLevel = .ListFormat.ListLevelNumber
MsgBox "Text = " & sText & _
"List = " & sList & " Level = " & nLevel
End With
Next
End Sub

Mon probleme est maintenant de srtocker les resultat dans un document word (ou txt ou excel)

---------------
Des images

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Resolu][VBA]recuperer les titres et n° de chapitre d'un document word

Sujets relatifs
[Résolu] [MySQL] select sur chaines de caractères	[Résolu][Java] ActionListener, actionPerformed
[SWT] class Image [résolu] (venez lancer des cailloux)	C# - Thread à IHM [Résolu]
[RESOLU] Auto scroll dans un JTextArea	[resolu][Java] Reproduir un assistant de saisi semi-automatique
[access] [mac] accessibilite [resolu]	suppression en vba pour access
Coller du texte dans des signets défins dans un doc WORD	PB fontion VBA lors de l'ajout ou suppression de feuille
Plus de sujets relatifs à : [Resolu][VBA]recuperer les titres et n° de chapitre d'un document word

Page générée en 0.049 secondes