| wdApp.Selection.Style = ActiveDocument.Styles("Heading 1") wdApp.Selection.Style = ActiveDocument.Styles("Heading 2") wdApp.Selection.Style = ActiveDocument.Styles("Normal") wdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Index" With ActiveDocument .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _ True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _ LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _ UseHyperlinks:=True, HidePageNumbersInWeb:=True .TablesOfContents(1).TabLeader = wdTabLeaderDots .TablesOfContents.Format = wdIndexIndent End With wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft wdApp.Selection.GoTo What:=wdGoToBookmark, Name:="FirstPage" |
Mich. Word code |
Freelance ASP PHP web development | Web developer India Web development India| Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design