Выбор префикса и суффикса при сохранении любого форматирования

Question

Sub Quote_Text()
    With Selection.Range
        .Text = "<link>" & .Text & "</link>"
        .Select   '<<<<<
    End With
End Sub

Этот код правильно помечает выделенный текст, но если любое из выбранных слов выделено жирным шрифтом и c, форматирование теряется. Есть ли настройка для сохранения формата? Или другой способ достижения того же самого.

Answer 1

Как насчет

Sub Quote_Text()
    With Selection.Range
        .InsertBefore "<link>"
        .InsertAfter "</link>"
    End With

    ' and if you want to update Selection
    With Selection
        ' .MoveStart Unit:=wdCharacter, Count:= (-1) * Len("<link>")
        .MoveEnd Unit:=wdCharacter, Count:=Len("</link>")
    End With        

End Sub

Answer 2

Немного расширяя это требование. Мне нужно было go от этого к этому.
Это то, что сработало для меня. Опять же, я не теряю формат исходного текста, и после финала нет места, что мне и нужно.

lobortis ante. Mauris eu molest ie magna Лобортис анте. Маурис Маурис ЕС молст ie Магна.

Dim textOriginal As selection
Set textOriginal = selection

With selection.Range
    .InsertBefore "<link>" & textOriginal & "</link>"
End With