Dim app As New MSWord.Application
Dim s As String = StrToWide(" ")
try
Dim c As String = "第一列"
Dim doc = app.Documents.Open("F:\H\问题测试\新建文件夹\文档.docx")
Dim dr As Row = Tables("表A").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 9:12:25编辑过]
加好友 
发短信
Post By：2016/9/30 9:09:00 [显示全部帖子]
