如图，读取word文档中的红色框中的“案号”，为该文档重命名，报如下错误，请老师指教，如何处理？
谢谢！
此主题相关图片如下：截屏图片 (1).jpg
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True ’多文件
If dlg.ShowDialog = DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim str As String = ""
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(fl)
For Each k As object In doc.Paragraphs
If k.Range.text.Contains("鲁") AndAlso k.Range.text.Contains("号") AndAlso k.Range.text.Length < 20 Then
str = k.Range.text
msgbox(fl)
msgbox(str)
Exit For
End If
Next
app.quit
catch ex As exception
msgbox(ex.message)
app.quit
End try
FileSys.RenameFile(fl, str & ".doc")
Next
End If
加好友 
发短信
Post By：2019/7/20 19:34:00 [只看该作者]
