主题：[求助]字符串是否包含数组关键字

蓝老师好！

我参照上面的代码，定位Word文档中包含关键字组合的段落。为什么段落存在，弹出的序号不对，序数大了100多。

代码哪里不对，请老师指教！

谢谢！

'''
Dim dlg As new OpenFileDialog
dlg.Filter = "word|*.doc;*.docx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    try
        Dim doc = app.Documents.Open(dlg.FileName)
        Dim count = Doc.Characters.Count
        Dim rng As MSWord.Range = Doc.Range()
        'msgbox(rng.Text)
        Dim str As String = rng.text
        Dim ary() = str.replace(chr(10), "").split(new Char() {chr(13),chr(11)})      '清除段落空行
       
        Dim i1 = -1         '预设原告开始位置
        Dim str1 As String = "原告报告|原告、报告、身份情况"    '原告开始位置关键字组合
       
        Dim ls As new List(Of String)
        For Each s As String In ary    '遍历段落
            If s.trim() > "" Then
                ls.add(s)    '将段落加入集合

                For Each s1 As String In str1.split("|")      '判断是否包含st1关键字
                    Dim ss1() As String = s1.Split("、")
                    Dim lst1 As New List(of String)           '关键字新集合
                    lst1.AddRange(ss1)
                    Dim p As Boolean = True
                    For i As Integer =  0 To lst1.count - 1
                        If s.Contains(lst1(i)) = False Then
                            p = False
                            Exit For
                        End If
                    Next
                    If p Then
                        ' msgbox(true)
                        i1 = ls.count-1
                        msgbox（i1）
                        Exit For
                    End If
                Next
               
            End If
        Next
        app.quit
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If