Почему я теряю форматирование при вводе текста в ячейку

Question

Я очень новичок в программировании / vba, и я пытаюсь извлечь текст из поля contentcontrol в текстовом документе и поместить этот текст в ячейку моего документа Excel, сохраняя при этом формат исходного поля управления содержимым.

Sub Button2()

    Dim wrd As Word.Application
    Dim file As Word.Document
    Dim filename As String

    For i = 2 To 6
        filename = ActiveSheet.Cells(i, 1).Value

        Set wrd = New Word.Application
        Set file = wrd.Documents.Open("C:\... + filename + ".docx")
        Cells(i, 9) = file.ContentControls(1).Range.Text
        file.Close
        wrd.Quit
    Next i
End Sub

Поле управления содержимым имеет маркированный список, содержащий несколько элементов. Ячейка заканчивается удалением форматирования маркеров / абзацев и объединяет все строки вместе.

Спасибо!