Help VBA automatic numbering in Word

[lamnbj]

I have a document in Word of the form:
Question 1: Chdsh
Question 1: aghj
Lesson 1: ghj
Lesson 2: sagdhj

Is there a way to quickly change the "Question 1, .." and "Lesson 1, ..." to automatic numbering? Thanks everyone

[gmaxey]

If you created a new list style called say QL List and made the Level 1 number format "Question 1" and the Level 2 number format "Lesson 1" then you could use a find and replace something like this:

Sub A()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Question [0-9]@: @"
    .MatchWildcards = True
    While .Execute
      oRng.Delete
      oRng.Paragraphs(1).Range.Style = "QL List"
      oRng.Collapse wdCollapseEnd
    Wend
  End With
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Lesson [0-9]@: @"
    .MatchWildcards = True
    While .Execute
      oRng.Delete
      oRng.Paragraphs(1).Range.Style = "QL List"
      oRng.ListFormat.ListLevelNumber = 2
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

[lamnbj]

Oh sorry it doesn't work

[gmaxey]

If is doesn't work then apparently you didn't properly create and define a new list style titled "QL List" or applied the code wrong. "Sorry, it doesn't work" isn't going to get you much help here.