vba - 从字符串中删除段落标记

Question

我有一个宏，可以在我的文档中找到所有“标题 1”样式，并将它们列在用户窗体上的组合框中。

我的问题是，我正在使用的 Find 例程也在我希望复制的文本之后选择段落标记( ¶ )，并且正在组合框中显示。

如何从字符串中删除它？我试过使用 replace() , 替换 vbCrLf , vbCr , vbLf , vbNewLine , ^p , v , Chr(244)和 Asc(244)与 "" ，但没有成功。例如 -

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

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

这是我的表格的外观 -

Answer 1

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

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

或者，如果段落标记总是在最后，也许您可​​以使用删除最后一个字符

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