此主题相关图片如下：微信截图_20220521174346.png
此主题相关图片如下：2.png
Dim dlg As New OpenFileDialog
dlg.Filter = "Word文件|*.doc;*.docx"
dlg.MultiSelect = True
If dlg.ShowDialog =DialogResult.OK Then
If dlg.FileNames.Count > 0 Then
Dim app As New MSWord.Application
Try
For Each fl As String In dlg.FileNames
Dim doc = app.Documents.Open(fl)
app.Selection.WholeStory()
app.Selection.Copy()
app.Close
Next
Catch ex As exception
MessageBox.Show(ex.message)
Finally
app.Quit
End Try
MessageBox.Show(1)
End If
End If
[此贴子已经被作者于2022/5/21 17:46:01编辑过]
加好友 
发短信
Post By：2022/5/21 17:45:00 [只看该作者]
