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 :
Par contre pour un sommaire automatique je ne trouve aucune documentation. Des idées?
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
Merci d'avance!
Partager