Extract Lines with bullet points / number

[smallxyz]

Hi all,

My document has the content like:

1. ***
*********XX
*********XX
2. ***XX ***
*********XX
3. XX
***
● ******
***X
***X ***X ***X
4. ***
***X
● ******


My concern is how to extract only numbered / bulleted line

The outcome would be :

1. ***
2. ***XX ***
3. XX
● ******
4. ***
● ******

Thanks !

[gmayor]

Are the bullets/numbers simply text or are they inserted using bullets and numbering?

[smallxyz]

They are inserted bullets.

[gmayor]

In that case the following should work


Sub Macro1()
Dim oDoc As Document
Dim oTarget As Document
Dim oPara As Paragraph
Dim oRng As Range
Dim strStyle As String
Set oDoc = ActiveDocument
Set oTarget = Documents.Add
For Each oPara In oDoc.Paragraphs
strStyle = oPara.Style
If strStyle Like "List*" Then
Set oRng = oTarget.Paragraphs.Last.Range
oRng.FormattedText = oPara.Range.FormattedText
End If
Next oPara
lbl_Exit:
Set oPara = Nothing
Set oDoc = Nothing
Set oTarget = Nothing
Set oRng = Nothing
Exit Sub
End Sub

[smallxyz]

Thanks man!