Word VBA: Remove Paragraph Marker

Question

I have code that automatically detects certain text based on a selection and places onto a user form.

The issue I face is removing the trailing paragraph marker. (see picture below):

I have tried the following and other variations, but I can't remove the trailing paragraph marker:

Dim theText As String
theText = Replace(Selection, "^p", "") 

Lastly, I know I can use Left(Selection,Len(Selection)-1) , but this will fail if the paragraph marker is not there.

Answer 1

要在 Word 中获取段落，请使用以下 2 个选项之一（第一个适用于 OP）：

• theText = Replace(Selection, ChrW$(13), "")

• theText = Replace(Selection, ChrW$(244), "")

Answer 2

As provided in the comments above this is the solution:

Dim theText As String
theText = Replace(Selection, Chr(13), "")