从包含书签文本的字符串中删除回车符

Question

在Word 2010 VBA宏中，我将书签文本复制到名为"strMsgBoxMsg"的字符串变量中。

我想从与名为"标题"的书签相关联的文本中删除回车，但我无法删除书签文本中的回车。

以下操作不会移除回车：

string2FindAndDelete1 = " " & Chr(13) & " "
string2FindAndDelete1 = " " & vbCrLf
string2FindAndDelete1 = " " & Chr(13)
string2FindAndDelete1 = Chr(13) & " "
If InStr(FnA.fnEnumerateDocBkMrks, "Title") Then
    strMsgBoxMsg = ""
    strMsgBoxMsg = ActiveDocument.Bookmarks("Title").Range.Text
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete1, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete2, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete3, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, "%%REPLACE_THIS%%", " ")
    MsgBox "MessageBox after Search and Replace:" & vbCrLf & strMsgBoxMsg
End If

我将Word文件发布到了以下地址：http://tinyurl.com/h7vul2p

文件中的VBA宏为：subSaveAsPdfInNameDir

Answer 1

以下是我的更正，由于Cindy和Tim（他们值得表扬，但我不知道如何表扬他们解决了我的问题），这些更正起到了作用。

我的目标是在修改文本的一行最后一个单词和下一行第一个单词之间留出一个空格。

我原本打算让前四个变量有不同的名称（例如，stringFindAndDelete1、stringFindandDelete2等）。

string2FindAndDelete1 = " " & Chr(13) & " "
string2FindAndDelete2 = " " & Chr(13)
string2FindAndDelete3 = Chr(13) & " "
string2FindAndDelete4 = Chr(13)

If InStr(fn_EnumerateDocBkMrks, "Title") Then
    strMsgBoxMsg = ""
    strMsgBoxMsg = ActiveDocument.Bookmarks("Title").Range.Text
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete1, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete2, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete3, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete4, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, "%%REPLACE_THIS%%", " ")
    MsgBox "MessageBox after Search and Replace Carriage Returns:" & vbCr & vbCrLf & strMsgBoxMsg
    Call subWriteProp(sPropName:="Title", sValue:=strMsgBoxMsg)
End If