Sto facendo un programma che compila dei documenti in automatico.
Al termine della procedura creo il sommario con il seguente codice:
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=False
With ActiveDocument
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:=True, UseHeadingStyles:=True, UpperHeadingLevel:=1, LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:=""
.TablesOfContents(1).TabLeader = wdTabLeaderDots
End With
Il sommario comprende l'intero documento, mentre io devo escludervi la prima pagina, che è la copertina.
Grazie per l'aiuto.
G.
Rispondi quotando