1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Sub CreerUneTableDesIllustrations()
Dim I As Integer
With ActiveDocument
If .TablesOfFigures.Count > 0 Then
For I = .TablesOfFigures.Count To 1 Step -1
.TablesOfFigures(I).Delete
Next I
End If
.Select
Selection.EndKey unit:=wdStory, Extend:=wdMove
.TablesOfFigures.Add Range:=Selection.Range, Caption:="Figure", _
IncludeLabel:=True, RightAlignPageNumbers:=True, UseHeadingStyles:= _
False, UpperHeadingLevel:=1, LowerHeadingLevel:=3, _
IncludePageNumbers:=True, AddedStyles:="", UseHyperlinks:=False, HidePageNumbersInWeb:=True
.TablesOfFigures(1).TabLeader = wdTabLeaderDots
.TablesOfFigures.Format = wdIndexIndent
End With
End Sub |
Partager