? Знатокам: Знак параграфа есть, а самого параграфа нет

[DBEER]

Открываем вложенный DOC.
Включаем отображение непечатаемых символов.
Включаем "линейки"
В конце первого абзаца после слова "ВОТ" видим знак "абзац" зеленый.
Встаем курсором на вторую строку - видим по линейке, что отступы настроены так же, как и у первой. НО!!! Красной строки (отступа) реально нет.
Синий фрагмент получен копированием красного, но при стирании зеленого "абзаца" и нажатии ENTER все встает на места - у Второй строки появляется отступ.
В объектной модели не смог найти отличия между параграфами (Select..Parag..(1)...)
В VBA выделяю весь красный текст, в окне Immediate ввожу:

Selection.Paragraphs(1).Range.Select

Выделяются ТРИ строки (длинная ПЕРВАЯ и Вторая строка вплоть до зеленого знака абзаца)

Эта же операция с синим фрагментом дает ожидаемый рез-т - выделяется только Первая строка до слова ВОТ.
Понятно, что дело в "зеленом" знаке абзаца, но в чем?

Уперся в этот случай потому, что программно через макрос форматирую выделяемый фрагмент и везде все хорошо (абзацы с отступами), а здесь - кранты. И такие случаи в текстах, набиваемых пользователями нередки.
Программно выделить такую ситуацию не смогаю пока.
М.б. кто что знает?

[Somebody]

Перевод строки как-то попадает внутрь абзаца. Экспериментальным путём нашёл один способ получить: из буфера вставляем текст, где есть символы как CR+LF, так и отдельно CR - тогда CR+LF становятся границами абзацев, а CR без LF остаются как CR внутри абзаца.

[DBEER]

Действительно, происходит проблема из копирования через COPY-PAST.
Наощупь нашел ситуацию в кодах ASCII.
Наверное, грамотней было бы сразу искать "одинокий" CR без LF и заменять его на CR+LF, но чёт не изгальнулось.
Лечение придумал такое:
'********************************** ******************

''' Замена знаков абзаца на новые
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
         .Text = Chr(13)
         .Replacement.Text = "#"
         .Forward = False ' True
         .Wrap = wdFindStop
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchAllWordForms = False
         .MatchSoundsLike = False
         .MatchWildcards = True
     End With
     Selection.Find.Execute Replace:=wdReplaceAll

    Set RR = Selection.Range
     With Selection.Find
         .Text = "#"
         .Forward = True
         .Wrap = wdFindStop
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchAllWordForms = False
         .MatchSoundsLike = False
'         .MatchWildcards = True
     End With
Sel:
    RR.Select
    If Selection.Find.Execute = True Then
        Selection.Delete
        Selection.TypeParagraph
        GoTo Sel
    End If

Вот здесь почему-то после замены (см.выше) после знака абзаца появляется пробел. Приходится опять изгибаться:

''' Замена пробел+абзац на абзац
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p "
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Не бог весть, но работает.