title: MS Word - Set ListFormat.ListType to Numbering
body: <p>I have several numbering lists in a Word file. I need to set every numbering list to a specific layout. I have already coded a VBA that sets the correct layout.</p>
  <p>My problem now is that the lists are consecutively numbered but I want every list to start again at 1.</p>
  <p>Here is my code:</p>
  <pre><code>Function SetNumberingStyle()
  Dim para As Paragraph, i As Long
    For Each para In ActiveDocument.Paragraphs
      i = i + 1
      If para.Range.ListFormat.ListType = wdListSimpleNumbering Then
          para.Style = (&quot;List Number&quot;)
      End If
    Next para
  End Function
  </code></pre>