title: Iterate through every Ordered List in Microsoft Word
body: <pre><code>With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
      .NumberFormat = &quot;{OPTION %1}&quot;
      .StartAt = 1
      .LinkedStyle = &quot;&quot;
  End With
  ListGalleries(wdNumberGallery).ListTemplates(1).Name = &quot;&quot;
  Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
      ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
      False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
      wdWord10ListBehavior
  </code></pre>
  <p>This code changes the style of lists from <code>%1.</code> to <code>{OPTION %1}</code>. I would need to keep my cursor on the existing list to run the code successfully,</p>
  <p>Is it possible to iterate through all the pages, find the existing lists and automatically change it? I was unable to use the normal <code>Replace</code> feature either as it was part of the list.</p>