Word VBA 探測普通字符與回車符之間有其它字符的情況 ，例如：句號與回車符之間有其它字符，如何探測出來的代碼

Word VBA 探測普通字符與回車符之間有其它字符的情況。

適於用word2010。

本例是：探測出來word文件中，句號與回車符之間有其它字符的情況，且其它字符爲2-4個的情況。

代碼如下：

Sub test_ZhiFu_and_Enter_ChaZhi_DaYuYi()

'獲取當時word文檔所有的段落數量
all_Paragraphs_count = ActiveDocument.Paragraphs.Count

'定義變量
Dim cha_zhi As Integer
Dim temp_duan_number As Integer
Dim duan_string As String

'設置temp_duan_number爲0，用於記錄差值在2-5個字符之間的 段  的數量。
temp_duan_number = 0


'循環語句探測
For i = 1 To all_Paragraphs_count

    '第i段的字符賦值到duan_string
    duan_string = ActiveDocument.Paragraphs(i).Range.Text

    '句號所在在字符串的位置
    Ju_Hao_position = InStrRev(duan_string, "。")
 
    '回車符號所在字符串的位置
    Enter_position = InStrRev(duan_string, Chr(13))
 
    '回車符號所在字符串的位置與句號所在在字符串的位置 的 差值
    cha_zhi = Enter_position - Ju_Hao_position
    
    
    '用0 < Ju_Hao_position探測有句號的段落，用1 < cha_zhi And cha_zhi < 6探測差值在2-5個字符之間的
    If 1 < cha_zhi And cha_zhi < 6 And 0 < Ju_Hao_position Then
 
       '符合條件的情況下，temp_duan_number加1
       temp_duan_number = temp_duan_number + 1
    
       '彈出對話框，告訴你第i段有問題。
       MsgBox (i)
       '彈出對話框，告訴你第i段的字符串的內容。
       MsgBox (duan_string)
    
    End If
  
Next

End Sub