This example creates an alternating number style for the third outline-numbered list template.
Set myTemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(3)
For i = 1 to 9
If i Mod 2 = 0 Then
myTemp.ListLevels(i).NumberStyle = _
wdListNumberStyleUppercaseRoman
Else
myTemp.ListLevels(i).NumberStyle = _
wdListNumberStyleLowercaseRoman
End If
Next i
This example changes the number style to uppercase letters for every outline-numbered list in the active document.
For Each lt In ActiveDocument.ListTemplates
For Each ll In lt.listlevels
ll.NumberStyle = wdListNumberStyleUppercaseLetter
Next ll
Next lt
This example inserts a Figure caption at the insertion point. The caption letter is formatted as an uppercase letter.
CaptionLabels(wdCaptionFigure).NumberStyle = _
wdCaptionNumberStyleUppercaseLetter
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertCaption Label:="Figure"
This example sets the formatting for footnotes and endnotes in the active document.
With ActiveDocument
.Footnotes.NumberStyle = wdNoteNumberStyleLowercaseRoman
.Endnotes.NumberStyle = wdNoteNumberStyleUppercaseRoman
End With
This example formats the page numbers in the active document's footer as lowercase roman numerals.
For Each sec In ActiveDocument.Sections
sec.Footers(wdHeaderFooterPrimary).PageNumbers _
.NumberStyle = wdPageNumberStyleLowercaseRoman
Next sec