从字符串中删除段落标记

Question

我有一个宏,可以在我的文档中找到所有'标题1'样式,并在UserForm的ComboBox中列出它们.

我的问题是我正在使用的查找例程也在我要复制的文本之后选择段落标记(),并且正在ComboBox中显示.

如何从字符串中删除它？我试过期运用replace(),更换vbCrLf,vbCr,vbLf,vbNewLine,^p,v,Chr(244)和Asc(244)用"",但一切都没有succeeeded.例如 -

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

任何人都可以帮助解决这个问题吗？谢谢.

这是我的表格看起来 -

Answer 1

您应该使用ChrW$()unicode字符:

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

或者,如果段落标记始终位于末尾,则可以使用删除最后一个字符

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

Answer 2

我用sanitizedText = Replace(Selection.Text, Chr(13), "")成功了；13是“回车”的 ASCII 值。