mise en forme de texte dans word

mise en forme de texte dans word - VB/VBA/VBS - Programmation

Marsh Posté le 13-08-2007 à 08:18:52    

Bonjour à tous et toutes!
 
Voilà, avec word 2003, cela fait un petit moment que j'essaye de mettre en forme un texte de manière à générer automatiquement une table des matière.
Voici a quoi ressemble mon texte:
1 blalbla bla bla bla bla 2 blalbla bla bla bla blablalbla bla bla bla bla  3 blalbblalbla bla bla bla blala bla bla bla bla 4 blalbla bla bla bla blablalbla bla bla blabla
5 blalbla bla bla bla blablalbla bla bla bla blablalbla bla bla bla blablalbla bla bla bla blablalbla bla bla bla blablalbla bla bla bla blablalbla bla bla bla bla 6 blalbla bla bla bla blablalbla 7 bla bla bla blab 8 lalbla bla 9 bla bla 10 bla.

 
sur des pages et des pages.........
 
Je voudrais insérer automatiquement une table des matières reprenant chaque numéro en gras pour accéder facilement à un endroit précis du document.
Quand je sélectionne tout les chiffres et que je leur applique le style titre, la table des matière se génère mais oubli les chiffres qui ne sont pas en début de paragraphe... ma table des matières est donc incomplète..
J'essaye donc, à l'aide d'une macro, de mettre en forme mon texte pour qu'avant chaque chiffre trouvé un "^p" nouveau soit inseré automatiquement:

 
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "1"
.Replacement.Text = "^p1"
End With
Selection.Find.Execute Replace:=wdReplaceAll

 
Je n'arrive pas à obtenir le bon résultat.. il faudrait des conditions if then.. ca me dépasse!
Je suis certain que l'un d'entre vous sera capable de me sortir de cette impasse.
Merci beaucoup pour vote aide!
 

Reply

Marsh Posté le 13-08-2007 à 08:18:52   

Reply

Marsh Posté le 13-08-2007 à 22:05:32    

Bonsoir,
à essayer sans garantie:
 
edition->remplacer:
cocher caractères génériques
dans la zone recherche  <?
et format ->police->gras
 
dans la zone remplacer par:  ^p^&
Bonne nuit
 

Reply

Marsh Posté le 14-08-2007 à 08:02:10    

Merci pour votre réponse! :)  
malheureusement ca ne fonctionne pas.. :non:  ces caractères ne sont pas valides avec rechercher remplacer du menu edition..
Je continue à chercher! :pt1cable:  

Reply

Marsh Posté le 14-08-2007 à 08:59:55    

Bonjour,
tu as bien coché la case "caractères génériques"  ?
j'ai word 2002 et cela fonctionne très bien.
 
Cordialement

Reply

Marsh Posté le 14-08-2007 à 09:31:37    

deuxième essai concluant! j'ai du faire une erreur de manip
UN GRAND GRAND MERCI!

Reply

Sujets relatifs:

Leave a Replay

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