Discussion :

[supernova]

Bonjour à tous,

Je génére la table des matières d'un document à l'aide des instructions suivantes :

Code :

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

1
2
3
4
5
6
7
8
	 Dim toc As TableOfContents
	 Dim r as Range
              Set r = oWordApplication.ActiveDocument.Bookmarks("tdm").Range
             oWordApplication.ActiveDocument.TablesOfContents.add r ,True, 1,3, True, "idt", True, True, True, True
             Set toc = oWordApplication.ActiveDocument.TablesOfContents(1)
             toc.TabLeader = 0
             oWordApplication.ActiveDocument.TablesOfContents.Format = 0
             oWordApplication.Selection.InsertBreak 7

Le formattage de la table n'étant pas satisfaisant j'aimerais appliqué le format "Officiel" mais je n'arrive pas à le coder meme en passant par le générateur de macro.


Merci d'avance..

[Heureux-oli]

Salut,

Peut-être une méthode plus simple et plus rapide, ajoutes un champ TOC à l'endroit où tu souhaites avoir ta table des matières.

Code :

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

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TOC \o " & Chr(34) & "1 - 3 " & Chr(34)

Ou encore ajouter un champ TOC

Code :

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

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTOC, Text:="1 - 4"