以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如果是获取 word 中全文的文本? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176511) |
-- 作者:xluoping -- 发布时间:2022/4/15 18:02:00 -- 如果是获取 word 中全文的文本? 我需要导入一批word文件中全文的文本,如何获取全文文本,再添加到foxtable? For Each fl As String In FileSys.GetFiles("F:\\EHS技术服务管理系统\\表单\\标准\\GBZ 160.系列受控") Dim dr As DataRow = DataTables("文本160").Find("文件名 = \'" & fl & "\'") If dr Is Nothing AndAlso fl.Contains(".doc") Then Dim app As New MSWord.Application try Dim wm As String = FileSys.GetName(fl) dr = DataTables("文本160").AddNew() dr("文件名") = fl dr("标准号") = wm.SubString(0,wm.IndexOf("工作")).Replace("GBZT","GBZ/T") dr("标准名称") = wm.SubString(wm.IndexOf("工作"),wm.IndexOf(".doc") - wm.IndexOf("工作")) Dim doc = app.Documents.Open(fl) dr("文本") = ?? ? \'word全文文本 doc.Close() app.Quit catch ex As exception End try End If Next |
-- 作者:有点蓝 -- 发布时间:2022/4/16 8:50:00 -- 参考: http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71352&skin=0
|