[VB6] - [Word] : Comment créer un titre reconnu par Word et une table des matières automatique?
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:
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!
