[求助]startindex不能小于0 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'''
Dim dr As DataRow = e.DataRow
Dim file = e.SourceFolder & "\" & e.filename
Select Case e.DataCol.Name
    Case "上传文件"
        e.Subfolder = e.DataRow("承办人") '将此文件存放在目录名为承办人名称的子目录中.
        Dim app As New MSWord.Application
        try
            Dim doc = app.Documents.Open(file)
            Dim count = Doc.Characters.Count
            Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
            Dim str As String = rng.text
            'For Each s As String In str
                'output.show(s & " " & Asc(s))
            'Next
            msgbox(str)
            '清除段落空行,得到一个不含空行的集合
            Dim idx = str.IndexOf("书记员")
            If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))
            'msgbox(idx)
            Dim idx2 = str.SubString(idx).indexof(Chr(13))
            'msgbox(idx2)
            If idx2 > -1 Then
                str = str.SubString(0, idx+idx2)
            End If
            Dim ary() = str.replace(chr(10), "").split(new Char() {chr(13),chr(11)})
            Dim lst As new List(Of String)
            For Each s As String In ary
                If s.trim() > "" AndAlso s.contains("受理费") = False AndAlso s.contains("终审") = False AndAlso s.contains("不服") = False Then
                    lst.add(s)
                End If
            Next
            app.Quit
        catch ex As exception
            msgbox(ex.message)
            app.Quit
        End try
End Select

'''
Dim dr As DataRow = e.DataRow
Dim file = e.SourceFolder & "\" & e.filename
Select Case e.DataCol.Name
    Case "上传文件"
        e.Subfolder = e.DataRow("承办人") '将此文件存放在目录名为承办人名称的子目录中.
        Dim app As New MSWord.Application
        try
            Dim doc = app.Documents.Open(file)
            Dim count = Doc.Characters.Count
            app.ActiveWindow.Selection.WholeStory
            app.ActiveWindow.Selection.Copy
            'Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
            Dim str As String = ClipBoard.GetText
            ‘For Each s As String In str
            ’    output.show(s & " " & Asc(s))
            ‘Next
            'msgbox(str)
            '清除段落空行,得到一个不含空行的集合
            Dim idx = str.IndexOf("书记员")
            If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))
            'msgbox(idx)
            Dim idx2 = str.SubString(idx).indexof(Chr(13))
            'msgbox(idx2)
            If idx2 > -1 Then
                str = str.SubString(0, idx+idx2)
            End If
            Dim ary() = str.replace(chr(10), "").split(new Char() {chr(13),chr(11)})
            Dim lst As new List(Of String)
            For Each s As String In ary
                If s.trim() > "" AndAlso s.contains("受理费") = False AndAlso s.contains("终审") = False AndAlso s.contains("不服") = False Then
                    lst.add(s)
                End If
            Next
            app.Quit
        catch ex As exception
            msgbox(ex.message)
            app.Quit
        End try
End Select

Dim idx = str.IndexOf("书记员")
If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))

If idx < 0 Then idx = str.IndexOf("代理书记员")

主题：[求助]startindex不能小于0