问题1已解决。 文件自身问题。
问题2依旧存在。
新增问题3 ， 非表格内的数据获取是什么代码 。 如下图
问题2的代码如下
Dim app As New MSWord.Application
try
Dim fileName = "c:\test.doc"
Dim doc = app.Documents.Open(fileName)
Dim t = doc.Tables(1)
'Dim text = t.Cell(5, 2).Range.Text.ToString()
'msgbox(text)
e.Form.Controls("TextBox1").Value = t.Cell(2, 2).Range.Text
e.Form.Controls("TextBox2").Value = t.Cell(3, 2).Range.Text
e.Form.Controls("TextBox3").Value = t.Cell(7, 2).Range.Text
Dim t2 = doc.Tables(2)
e.Form.Controls("TextBox4").Value = t2.Cell(3, 2).Range.Text
Doc.Close
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
此主题相关图片如下：word.jpg
WORD文件上传失败
[此贴子已经被作者于2018/8/10 17:43:54编辑过]
加好友 
发短信
Post By：2018/8/9 17:58:00 [只看该作者]
此主题相关图片如下：testword拆解.png
