Текст вывода не может распространяться более чем на одну строку!

[Ципихович Эндрю]

Здравствуйте, в Ворде выделяю часть текста, прохожу макрос пошагово:

'Выделение цветом (Серый 25 %)
Selection.Range.HighlightColorIndex = wdGray25

                                Dim oFld As Field
                                'начинаем работать с полями в месте нахождения курсора
                                With Selection.Fields
                                    'добавляем поле и сразу присваиваем его переменной
                                    Set oFld = .Add(Range:=Selection.Range, Type:=wdFieldEmpty, Text:="MACROBUTTON Sub_Контрол_Э_подчеркнуть_текст " & Selection.Text, PreserveFormatting:=False)
                                    'удаляем пробелы в начале и конце кода поля функцией Trim
                                    oFld.Code.Text = Trim$(oFld.Code.Text)
                                End With

Когда лишнего было выделено, получаю:
'Текст вывода не может распространяться более чем на одну строку!
Как узнать программно что я не переборщил, понятно, что увидеть можно, а программно можно?, как?