VBA Snippets

DisplayListTemplates

Public Sub Lists_DisplayListTemplates()

Dim lcount As Long
Dim oListTemplate As Word.ListTemplate

   For lcount = 1 To ActiveDocument.ListTemplates.Count
   
      Set oListTemplate = ActiveDocument.ListTemplates(lcount)
      Debug.Print lcount & "---------------------"
      Debug.Print lcount & " Name - " & oListTemplate.Name
      Debug.Print lcount & " ListLevels - " & oListTemplate.ListLevels.Count
      Debug.Print lcount & " OutlinedNumbered - " & oListTemplate.OutlineNumbered
      
   Next lcount

End Sub

Format

Formats the current selection of text to bullet points.

Public Sub Bullet_Format()
   On Error Goto AnError


   If gbDEBUG = False Then Exit Sub
AnError:
   Call Error_Handle("Bullet_Format", msMODULENAME, 1, _
        "format the current selection of text to bullet point")
End Sub

Numbering_Add

Adds numbering to the paragraphs in the current selection.

Public Sub Numbering_Add()
Const sPROCNAME As String = "Numbering_Add"
   On Error GoTo AnError


   If gbDEBUG = False Then Exit Sub
AnError:
'   Call Error_Handle(msMODULENAME, sPROCNAME, 1,
   Call MsgBox( _
        "")
End Sub