Discussion :

[pubbins]

Bonjour à tous,

Je me casse la tête sur un problème qui pourtant me semble simple. Le voici :

- J'ai un document dans lequel se trouve une table des matières en première page (mais qui peut déborder sur la deuxième)
- Mon document se compose ensuite de textes et tableaux (tableaux avec le même nombre de colonne)
- Je souhaite insérer à la suite de ma table des matières (après saut de page) un tableau récapitulant l'ensemble des tableaux du document

Je vous voudrais donc accéder au bas de ma table des matières pour insérer un saut de page puis le tableau récapitulatif. Je pensais qu'on pouvait sélectionner la table des matières comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.TablesOfContents(1).range.select

Mais cela ne fonctionne pas : la méthode est incorrecte.

Je me suis que j'allais ajouter un signet à la table des matières puis aller à la fin du signet mais cela ne fonctionne pas non plus. Je n'arrive pas à ajouter un signet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Bookmarks.Add "ToC", ActiveDocument.TablesOfContents(1)

J'ai plus d'idée. Ca m'a pas l'air sorcier mais peut-être que je m'y prends mal. Toutes les idées sont les bienvenues !

Merci par avance,

Pubbins.

[clementmarcotte]

Bonjour,

La Table des matières d'un document Word n'est pas autre chose qu'un champ avec des propriétés et méthodes particulières. En regardant dans l'aide de VBA-Word, la seule voie d'accès, non testée, pour ajouter des entrées à la Table des Matières est la méthode AddEntry, qui correspond à l'afjout entrées dans une table créée manuellement à partir de l'interface.

Si cela ne fonctionne pas avec AddEntry, tu peux te "bâtir", avec VBA, une seconde table indépendante à la suite de la première.

En gros, dans VBA tu itères la collection Tables() de ton document et tu mets les informations, soit dans un nouveau tableau que tu mets en forme, soit dans une suite de paragraphes avec le même mise en forme, pour que cela ressemble à un tableau.

Mais là, en ce moment, je n'ai pas vraiment le temps de creuser. Peut-être dans 2 ou 3 jours.

[pubbins]

Je suis d'accord avec toi. Et je vais opter pour la seconde solution en itérant sur la collection des tables.

Mon problème est plus bête que ca : comment je me place après ma table des matières de titres ? Je veux mettre mon curseur après la table des matières, puis insérer saut de page et tableau récapitulatif.

Merci !

[Heureux-oli]

Salut,

Je suis surpris que la méthode Select ne fonctionne pas sur le range d'une TOC.

En testant, ça fonctionne chez moi et on peut même récupérer son contenu.

Partant de là, on peut faire un collapse pour ajouter quelque chose à la fin de la TOC.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveDocument.TablesOfContents(1).Range.Select
Selection.Collapse (wdCollapseEnd)
Selection.InsertBreak (wdPageBreak)

J'ai bien un saut de page ajouté juste après ma table des matières.

[pubbins]

Excusez-moi pour la réponse tardive : j'ai du mettre de côté ce projet un certain temps.

En m'y repenchant, effectivement ca marche. J'ai du me planter la première fois.

Cependant, en faisant ca, je reste dans la table des matières. Comment je fais pour arriver juste après la table des matières ?

En vous remerciant,

Pubbins.

[Heureux-oli]

Salut,

Un movedown devrait suffire pour quitter la toc.

[pubbins]

Merci beaucoup !