VBA превосходит слова с помощью элементов управления контентом - сохранить исходное форматирование

Question

Я пытаюсь автоматически заполнить элементы управления контентом в слове из таблицы Excel. У меня это работает, поэтому он копирует значение - но это не мешает форматированию из Excel. - поэтому вместо копирования более 4,2% копирует более 0,04213456 в текстовый документ

r=2
For i = 1 To 13

    .ActiveDocument.ContentControls(i).Range.Text = Sheets("Report Generator").Cells(r, 3)
    r = r + 1

Next i