已经很好了，还有点小问题：
1、我把指定文件代码换成文件打开器选择打开，代码写不全，请帮忙一下。
2、假如我在窗体放入一个按钮和一个WebBrowser打开word文档，做好标记后，点击按钮导入该文件。代码怎么改？
3、Case "B:"这句 能不能写成Case "B:" or "GG" 这种双条件选择的形式（意思是满足一种条件就可以）？
谢谢版主！
--------------------
Dim app As New MSWord.Application
Dim s As String = StrToWide(" ")
try
Dim c As String = "第一列"
'Dim doc = app.Documents.Open(ProjectPath&"\文档.docx")
Dim dlg As New OpenFileDialog
dlg.Filter= "Word文件|*.docx"
If dlg.ShowDialog = DialogResult.Ok Then
Dim doc = app.Documents.Open(dlg)
Dim dr As Row = CurrentTable.AddNew
For Each k As object In doc.Paragraphs
If Len(Trim(k.Range.text)) > 1 Then
Select Case k.Range.text.TrimStart(" ",s).SubString(0,2)
Case "B:"
c = "第二列"
Case "C:"
c = "第三列"
Case "D:"
c = "第四列"
End Select
dr(c) &= k.Range.text & vbcrlf
End If
Next
dr("第一列") = dr("第一列").TrimEnd(vbcr,vblf)
dr("第二列") = dr("第二列").TrimEnd(vbcr,vblf)
dr("第三列") = dr("第三列").TrimEnd(vbcr,vblf)
dr("第四列") = dr("第四列").TrimEnd(vbcr,vblf)
app.quit
catch ex As exception
msgbox(ex.message)
app.quit
End try
[此贴子已经被作者于2016/9/30 13:18:08编辑过]
加好友 
发短信
Post By：2016/9/29 22:55:00 [只看该作者]
此主题相关图片如下：gif.gif
