Replacement text includes a chr(13)

[JPG]

I need to markup topics with tags. It works ok for an inline word but a single word followed by a return gives this tag

before
Creation

after selection of word and macro run

<link>Creation
</link>Creation

I want it to be in one line and no space after the word creation, in between the tags
<link>Creation</link>Creation

Private Sub CommandButton7LinkTopicsMarkup_Click()


InSelection = False
If selection.Type = wdSelectionIP Then InSelection = True
If InSelection = True Then
    MsgBox ("select some text")
    Exit Sub
End If


'remove any spaces after word
While selection.Characters.Last = " "
    If selection.Characters.Last = " " Then
        selection.MoveEnd Unit:=wdCharacter, Count:=-1
    End If
Wend

Dim textOriginal As selection
Set textOriginal = selection


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


End Sub

I was just trying to figure a way and came up with this to modify the code in red. It works. However is there a proper way to deal with this?

While selection.Characters.Last = " " Or selection.Characters.Last = Chr(13)
    If selection.Characters.Last = " " Then
        selection.MoveEnd Unit:=wdCharacter, Count:=-1
    End If
    If selection.Characters.Last = Chr(13) Then
        selection.MoveEnd Unit:=wdCharacter, Count:=-1
    End If
    
Wend

[Kilroy]

Try this:

Private Sub CommandButton7LinkTopicsMarkup_Click()
InSelection = False
If Selection.Type = wdSelectionIP Then InSelection = True
If InSelection = True Then
    MsgBox ("select some text")
    Exit Sub
End If

'remove a return following selection
While Selection.Characters.Last = vbCr
    If Selection.Characters.Last = vbCr Then
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    End If
Wend
'remove spaces following selection
While Selection.Characters.Last = " "
    If Selection.Characters.Last = " " Then
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    End If
Wend
Dim textOriginal As Selection
Set textOriginal = Selection

With Selection.range
        .InsertAfter "</link>" & textOriginal  '& "</link>"
        .InsertBefore "<link>" '& textOriginal & "</link>"
End With
End Sub

[JPG]

ok thank you for an alternative way. I will add this to my knowledge.

[macropod]

Simpler:

With selection.Range
  .InsertBefore "<link>" & Split(textOriginal,vbCr)(0) & "</link>"
End With

[JPG]

Simpler:

With selection.Range
  .InsertBefore "<link>" & Split(textOriginal,vbCr)(0) & "</link>"
End With

ok but this does not remove any spaces that might be before the chr(13). I need the tagged text to not have an spaces at the end.

[macropod]

So use:

With selection.Range
  .InsertBefore "<link>" & Trim(Split(textOriginal,vbCr)(0)) & "</link>"
End With

[JPG]

Many thanks for this Paul. I had not known about Split and I had tried Trim at the wrong point.
Out of interest. Can one control the font and colour...(let me try)... ok I figured this addition to control font and colour.

If CheckBox6Bold.Value = True Then
      textOriginal.Font.Bold = True
End If
If CheckBox7Blue.Value = True Then
    textOriginal.Font.ColorIndex = wdBlue
End If