Vba 在保留任何格式的同时选择前缀和后缀 Sub-Quote_Text（） 有选择。范围 .Text=”“&.Text&“” .选择“

怎么样

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

Sub-Quote_Text（）
有选择。范围
.InsertBefore“”
.InsertAfter“”
以
'如果要更新所选内容
有选择
'.MoveStart单位：=wdCharacter，计数：=（-1）*Len（“”）
.MoveEnd单位：=wdCharacter，计数：=Len（“”）
以
端接头

稍微扩展一下这个要求。 我需要从这个转到这个。
这就是我的工作。再一次，我没有放松原文本的格式，在最终文本之后没有空格，这正是我所需要的

lobortis ante。Mauris eu molestie magna
lobortis ante。Mauris Mauris eu molestie magna

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

Dim textOriginal作为选择
设置textOriginal=selection
有选择。范围
.InsertBefore“”&textOriginal&“
以

谢谢，这是我所需要的一部分，现在我有了一个解决方案，它可以正常工作，并且不会影响原始文本的格式。我需要的不仅仅是我最初的要求。我希望这是好的，张贴在下面，因为它可能会有所帮助。不客气。如果还有更多的问题需要跟进，我的理解是，在StackExchange，人们更喜欢单一、集中的问题。我认为在一个你已经接受答案的问题上再多加一点是不可取的。除非你只是澄清，考虑发布一个新的问题。

Dim textOriginal As selection
Set textOriginal = selection

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