Bonjour,

Mon but est de créer un fichier Word avec des titres et une table des matières.

J'arrive à créer mes titres avec le bon style mais lorsque j'ouvre Word il les considère comme du texte normal. J'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim appWord         As Word.Application
Dim DocWord         As Word.Document
Dim parWord         As Word.Paragraph
 
Set appWord = New Word.Application
Set appWord = CreateObject("Word.Application")
Set DocWord = appWord.Documents.Add
 
Set parWord = DocWord.Content.Paragraphs.Add
parWord.OutlineLevel = wdOutlineLevel1
parWord.Range.Style = wdStyleHeading1
parWord.Range.Text = "Heading 1"
Call parWord.Range.InsertParagraphAfter
Par contre pour un sommaire automatique je ne trouve aucune documentation. Des idées?

Merci d'avance!