WORD文件名与wor内文字比较的问题

snipermx

希望对比WORD的文件名、与WORD内的文字是否一致。

具体为WORD文件名为“--您好”，word内的文字为“--您好”，而且是通过复制粘贴操作，将WORD的文件名复制后粘贴到word内的文字、并保存，因此两者应该是一致的。
因此，用StrComp函数比较，应该输出为0才对。

但是，采用如下代码，结果输出为-1，不知道为什么会这样。请高手指点。

Sub test()

    Dim BT As String
    Dim WJM As String
    BT = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
    WJM = ActiveDocument.Sections.Item(1).Range.Sentences(1).Text
MsgBox StrComp(WJM, BT, 1)

End Sub

413191246se

* 楼主，你好！——你忘了把第1段落的最末字符——段落标记"^p"给删除（替换为无）了！试试下面代码：

1. Sub test_my_test()
   
2.     Dim bt$, wjm$
   
3.     bt = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
   
4.     wjm = Replace(ActiveDocument.Paragraphs(1).Range.Text, vbCr, "")
   
5.     MsgBox StrComp(bt, wjm, 1)
   
6. End Sub

复制代码