Bullets.vb
  1. ''
  2. '' This code is part of Document Solutions for Word demos.
  3. '' Copyright (c) MESCIUS inc. All rights reserved.
  4. ''
  5. Imports GrapeCity.Documents.Word
  6.  
  7. '' This sample demonstrates how to create a simple bullet list.
  8. '' See the NumberedList sample for how to create a numbered list.
  9. Public Class Bullets
  10. Function CreateDocx() As GcWordDocument
  11. Dim doc = New GcWordDocument()
  12. Dim pars = doc.Body.Paragraphs
  13. pars.Add("Example of a bullet list with three levels:")
  14.  
  15. '' A ListTemplate Is used to make paragraphs part of a list
  16. Dim myListTemplate = doc.ListTemplates.Add(BuiltInListTemplateId.BulletDefault, "myListTemplate")
  17.  
  18. '' Action to add a list item
  19. Dim addListItem As Action(Of String, Integer) =
  20. Sub(t_, l_)
  21.  
  22. Dim p_ = pars.Add(t_)
  23. '' This makes a paragraph a list item
  24. p_.ListFormat.Template = myListTemplate
  25. '' Set the item's nesting level (first level is 0):
  26. p_.ListFormat.LevelNumber = l_
  27. '' This ensures item spacing consistent with MS Word
  28. p_.Style = doc.Styles(BuiltInStyleId.ListParagraph)
  29. End Sub
  30.  
  31. '' Build a bullet list with 3 levels of nesting
  32. addListItem("Bullet item 1", 0)
  33. addListItem("Bullet item 2", 0)
  34. addListItem("Bullet item 3", 0)
  35. addListItem("Nested bullet item 1", 1)
  36. addListItem("Nested bullet item 2", 1)
  37. addListItem("Double nested bullet item 1", 2)
  38. addListItem("Double nested bullet item 2", 2)
  39. addListItem("Nested bullet item 3", 1)
  40. addListItem("Bullet item 4", 0)
  41.  
  42. '' Done:
  43. Return doc
  44. End Function
  45. End Class
  46.