特定の文字列に対して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 

私は「丁合いハザードNotesの最初の行と文書上でそれを実行すると、戻りの場合はfalseとなぜ私は理解できません。読んでいただきありがとうございます。

Answer 1

あなたは、行の終わりに改行文字が含まれている行全体に選択範囲を拡張する場合：

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

あなた：

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

のようなものでそれをオフにトリミングしてみテストは期待される結果を与えるべきです。