Remove paragraph mark from string

vba ms-word word-2010
David Gard picture David Gard · Oct 29, 2014 · Viewed 13.8k times · Source

I have a macro that finds all of the 'Heading 1' styles within my document and lists them in a ComboBox on a UserForm.

My problem is that the Find routine I am using is also selecting the paragraph mark () after the text I wish to copy, and that is being displayed in the ComboBox.

How can I remove this from the string? I've tried useing replace(), replacing vbCrLf, vbCr, vbLf, vbNewLine, ^p, v, Chr(244) and Asc(244) with "", but nothing has succeeeded. For example -

sanitizedText = Replace(Selection.Text, "^v", "")

Can anyone please help with this problem? Thanks.

Here is how my form looks -

enter image description here

Answer

Miguel Febres picture Miguel Febres · Oct 29, 2014

You should use ChrW$() for unicode characters:

sanitizedText = Replace(Selection.Text, ChrW$(244), "")

Or, if the paragraph mark is always at the end maybe you can just remove the last character using 

myString = Left(myString, Len(myString) - 1)

Related questions

Create Range from current cursor position Word 2010 VBA

I have a .docm document with a user form. On the user form I have a button that needs to insert something (some text, for starter) at the last known cursor position in the document. For this, I want to …

Read More
Save the cursor position in a document and return there later on

I have a macro that scans my document for Heading 1 styles, and consequently the cursor is moved to after the last match. I'm trying to capture the location of the cursor before this scan occurs, and then return to that …

Read More
How do you correctly set document properties using VBA?

The problem I'm having some trouble setting document properties using VBA in Word 2010. I have a document containing several Heading 1 sections and I use a macro to extract a selected section (along with it's contents) and paste it to a …

Read More