[VBA] Word paragraph, typebackspace

[smallxyz]

I need to apply typebackspace to every paragraph, when
1.　it is not empty
2.　not containing symbols ■ and ★

e.g. ( each line represents a paragraph )

The original document looks like:

■ ******
***xx
★******xx
***x

■ *********x
***xx xx
★*********x
***x ***


After VBA execution, it becomes:

■ *********xx
★************

■ *************** xx
★************xx ***

With Selection
 For i = .Paragraphs.Count To 1 Step -1
            '-------------------
             If (InStr(1, .Paragraphs(i).Range.Text, "■") = 0) And (InStr(1, .Paragraphs(i).Range.Text, "★") = 0) And .Paragraphs(i).Range.Text <> "" Then
                .Paragraphs(i).Range.Select
                Selection.HomeKey
                Selection.TypeBackspace
            End If
            '-------------------
        Next
End Selection

But it returns error for the [B] [B/] line.
Please help.Thanks.

[gmayor]

The before and after do not seem to correlate to one another, however what I think you want is

Dim oPara As Paragraph
Dim i As Integer
    For i = ActiveDocument.Paragraphs.Count To 2 Step -1
        Set oPara = ActiveDocument.Paragraphs(i)
        If Len(oPara.Range) > 1 Then
            If Not oPara.Range.Characters(1) = ChrW(9632) And _
               Not oPara.Range.Characters(1) = ChrW(9733) Then
                    oPara.Range.Previous.Characters.Last.Delete
            End If
        End If
    Next i

[smallxyz]

Thanks sir!