根據特定字符串測試Word文檔的第一行

Question

我是VBA的新手，缺少一些非常明顯的東西，但無法弄清楚它是什麼。

我有以下測試，如果該文件的第一行是Collated Harzard Notes：

Public Sub testDocRANotes() 

Dim rng As Range 
Dim i As Integer 
Dim str As String 

Set rng = Selection.GoTo(What:=wdGoToLine, Which:=wdGoToAbsolute, count:=1) 
Selection.Expand wdLine 
Debug.Print Selection.Text 

str = Selection.Text 

If (str = "Collated Hazard Notes") Then 
    Debug.Print "RA Notes" 
Else 
    Debug.Print "Not RA Notes" 
End If 
End Sub 

當我用「逐份危險的注意事項」第一線的文件運行時，如果返回false和我無法弄清楚爲什麼。感謝您花時間閱讀。

Answer 1

如果展開的選擇對整條生產線則包括在該行的末尾回車符：

Debug.Print Asc(Right(str, 1)) ' >> 13 

嘗試微調其關閉的東西，如：

str = Selection.Text 
str = Left(str, Len(str) - 1) ' << remove vbCr character 

你測試應該給出預期的結果。