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.

I guess that `Replace(Selection.Text, ChrW$(244), "") ` should work - https://stackoverflow.com/questions/26633904/remove-paragraph-mark-from-string — Vityata, Aug 06 '18 at 15:37
thanks @Vityata, but this `?instr(selection,ChrW$(244))` returns 0 :( — Scott Holtzman, Aug 06 '18 at 15:47
Try using Chr(13) instead of ^p in the Replace function. ^p is only for Word's built-in Find, but won't work in VBA string functions. — Cindy Meister, Aug 06 '18 at 15:57

Vityata · Answer 1 · 2021-03-08T08:39:47.037

1

To get the paragraph in Word, use one of the following 2 options (the first works for the OP):

edited Mar 08 '21 at 08:39

answered Aug 06 '18 at 16:09

Vityata

score 0 · Answer 2 · answered Aug 06 '18 at 16:09

0

As provided in the comments above this is the solution:

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

answered Aug 06 '18 at 16:09

Scott Holtzman

2 Answers2