Macro Word pour créer une liste de signets à partir des styles "Titre 1" "Titre
Résolu
cs_caro_b
Messages postés
3
Date d'inscription
mercredi 3 mai 2006
Statut
Membre
Dernière intervention
11 mai 2006
-
5 mai 2006 à 08:13
cs_caro_b Messages postés 3 Date d'inscription mercredi 3 mai 2006 Statut Membre Dernière intervention 11 mai 2006 - 8 mai 2006 à 10:06
cs_caro_b Messages postés 3 Date d'inscription mercredi 3 mai 2006 Statut Membre Dernière intervention 11 mai 2006 - 8 mai 2006 à 10:06
3 réponses
linasteph
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
5 mai 2006 à 08:53
5 mai 2006 à 08:53
salut,
je pense qu'avec cela tu devrais pouvoir t'en, sortir
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Titre 1")
Selection.Find.ParagraphFormat.Borders.Shadow = False
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute
Pour info c'est le code d'une macro que j'ai enregistré sous Word.
je pense qu'avec cela tu devrais pouvoir t'en, sortir
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Titre 1")
Selection.Find.ParagraphFormat.Borders.Shadow = False
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute
Pour info c'est le code d'une macro que j'ai enregistré sous Word.
cs_loulou69
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2016
1
5 mai 2006 à 09:01
5 mai 2006 à 09:01
Bonjour
Une page table des matières insérée après la page des titres Word permet lorsqu'on clique sur le numéro de page en regard de chaque titre d'aller directement à la page voulue : alors pourquoi une macro?
Une page table des matières insérée après la page des titres Word permet lorsqu'on clique sur le numéro de page en regard de chaque titre d'aller directement à la page voulue : alors pourquoi une macro?
cs_caro_b
Messages postés
3
Date d'inscription
mercredi 3 mai 2006
Statut
Membre
Dernière intervention
11 mai 2006
8 mai 2006 à 10:06
8 mai 2006 à 10:06
Bonjour !
Merci beaucoup à 19372 linasteph. J'ai pas encore coder mais je pense que ça devrait marcher ! Je vous dirais ça mardi au boulot.
Sinon pour répondre à =38668 loulou69, exact pour la table des matières. Alors pourquoi ? Simplement parce que dans mon projet total j'ai deux documents. Un doc word et un doc excel.
Dans excel j'ai une arborescence de l'ensemble des fonctions que je décris dans mon doc word. En cliquant sur les cases de l'arboresence, je veux renvoyer directement dans mon doc word au bon endroit. Pour cela j'utilise les signets. J'affecte en variable cachée à chaque case du doc excel le nom du signet correspondant dans le doc word. Le problème c'est que je devai faire la table des signets à la mano, et vu que je veux quelque chose d'évolutif et d'intéractif je voulais la créer automatiquement. Comme cela, à chaque paragraphe que je rajoute dans word le signet se créé automatiquement à la fermeture du doc word. Puis quand j'ouvre l'arborescence excel ça vérifie la liste des signets et ajoute une case automatiquement si une nouvelle partie existe.
Merci beaucoup à 19372 linasteph. J'ai pas encore coder mais je pense que ça devrait marcher ! Je vous dirais ça mardi au boulot.
Sinon pour répondre à =38668 loulou69, exact pour la table des matières. Alors pourquoi ? Simplement parce que dans mon projet total j'ai deux documents. Un doc word et un doc excel.
Dans excel j'ai une arborescence de l'ensemble des fonctions que je décris dans mon doc word. En cliquant sur les cases de l'arboresence, je veux renvoyer directement dans mon doc word au bon endroit. Pour cela j'utilise les signets. J'affecte en variable cachée à chaque case du doc excel le nom du signet correspondant dans le doc word. Le problème c'est que je devai faire la table des signets à la mano, et vu que je veux quelque chose d'évolutif et d'intéractif je voulais la créer automatiquement. Comme cela, à chaque paragraphe que je rajoute dans word le signet se créé automatiquement à la fermeture du doc word. Puis quand j'ouvre l'arborescence excel ça vérifie la liste des signets et ajoute une case automatiquement si une nouvelle partie existe.