{"id":1877,"date":"2016-09-19T23:12:44","date_gmt":"2016-09-19T22:12:44","guid":{"rendered":"http:\/\/www.2diabolos.com\/blog\/?page_id=1877"},"modified":"2022-06-16T22:42:24","modified_gmt":"2022-06-16T21:42:24","slug":"petite-macro-vba","status":"publish","type":"page","link":"https:\/\/www.2diabolos.com\/blog\/petite-macro-vba\/","title":{"rendered":"Petite Macro VBA"},"content":{"rendered":"

j’inaugure une nouvelle cat\u00e9gorie de page de programmation : les pages VBA.<\/p>\n

Ma premi\u00e8re macro pratique : cr\u00e9er une une liste des titres ordonn\u00e9es par ordre alphab\u00e9tique.<\/p>\n

Sub index_par_titre()<\/code>
\n    Selection.EndKey Unit:=wdStory   <\/code>
\n    With ActiveDocument<\/code>
\n        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _<\/code>
\n            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _<\/code>
\n            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:=\"\", _<\/code>
\n            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _<\/code>
\n            True<\/code>
\n        Set aa = .TablesOfContents<\/code>
\n        <\/code>
\n        .TablesOfContents(1).TabLeader = wdTabLeaderDots<\/code>
\n        .TablesOfContents.Format = wdIndexIndent<\/code>
\n    End With<\/code>
\n    Set aa = aa(aa.Count)<\/code>
\n    aa.Range.Select<\/code>
\n    Selection.Fields.Unlink<\/code>
\n    Selection.Font.UnderlineColor = wdColorAutomatic<\/code>
\n    Selection.Font.Underline = wdUnderlineNone<\/code>
\n    Selection.Sort ExcludeHeader:=False, FieldNumber:=\"Titres\", SortFieldType _<\/code>
\n        :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _<\/code>
\n        :=\"\", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _<\/code>
\n        wdSortOrderAscending, FieldNumber3:=\"\", SortFieldType3:= _<\/code>
\n        wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _<\/code>
\n        wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _<\/code>
\n        :=wdFrench, SubFieldNumber:=\"Paragraphes\", SubFieldNumber2:=\"Paragraphes\" _<\/code>
\n        , SubFieldNumber3:=\"Paragraphes\"<\/code>
\n    Selection.Font.ColorIndex = wdAuto<\/code>
\nEnd Sub<\/code><\/p>\n<\/div>","protected":false},"excerpt":{"rendered":"

j’inaugure une nouvelle cat\u00e9gorie de page de programmation : les pages VBA. Ma premi\u00e8re macro pratique : cr\u00e9er une une liste des titres ordonn\u00e9es par ordre alphab\u00e9tique. Sub index_par_titre()     Selection.EndKey Unit:=wdStory       With ActiveDocument         .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _             True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _             LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:=\u00a0\u00bb\u00a0\u00bb, _             UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _ […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":90,"comment_status":"open","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-1877","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/pages\/1877","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/comments?post=1877"}],"version-history":[{"count":2,"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/pages\/1877\/revisions"}],"predecessor-version":[{"id":2453,"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/pages\/1877\/revisions\/2453"}],"wp:attachment":[{"href":"https:\/\/www.2diabolos.com\/blog\/wp-json\/wp\/v2\/media?parent=1877"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}