In my word-doc there are Automatically imported lists like lookin like that:
- Listitem one
- Listitem two
- Listitem three
- ...
They are only pagraphs starting with a dash '-'. So im trying to convert them into lists:
Selection.WholeStory
Selection.MoveLeft Unit:=wdCharacter, count:=1
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("Aufzählungszeichen")
With Selection.Find
.Text = "^p- "
.Replacement.Text = "^p "
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
However this results in lists that are only styled like a list but don't behave like real lists in word. How can i replace the paragraphs (starting ^p-) with real list items through a macro?