Sub w110602_1044()
Dim pr As Paragraph, s1, j1, j2, dt1, dt2, ss
dt1 = Timer
ss = "№№`текст"
For Each pr In Word.ActiveDocument.Paragraphs
s1 = pr.Range.Text
j1 = j1 +  1 
If Asc(s1) =  9  Or pr.FirstLineIndent <>  0  Then
j2 = j2 +  1 
Do While Asc(s1) <  32 
s1 = Mid(s1,  2 )
Loop

Debug.Print j1, Mid(s1,  1 ,  10 )
ss = ss & Chr( 13 ) & Chr( 10 ) & j1 & "` " & Mid(s1,  1 ,  20 )
End If
Next pr
dt2 = Timer
Debug.Print j1, dt2 - dt1; "c"
'''создание таблицы строк с отступом
Word.Documents.Add
Selection.Range.Text = ss
Selection.WholeStory
    Application.DefaultTableSeparator = "`"
    Selection.ConvertToTable Separator:=wdSeparateByDefaultListSeparator, _
        NumColumns:= 2 , NumRows:=j2 +  1 , AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables( 1 )
        .Style = "Сетка таблицы"
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
    End With
    Selection.Tables( 1 ).AutoFitBehavior (wdAutoFitContent)
End Sub

If Asc(s1) =  9  Or pr.FirstLineIndent <>  0  or mid(s1, 1 , 4 )="    " Then