[挑战]谁能用VBA把这DOC里面的标题和内容提取出来？

dorado · 发表于 2005-1-7 16:57

如题，如题！

q1k9RF3h.zip (38.64 KB, 下载次数: 40)

大家一起来研究！

ggdd319 · 发表于 2005-1-7 23:38

如果仅仅是这个文档，真的很简单，自己录个宏就行了

守柔 · 发表于 2005-1-8 08:14

不太明白楼主想得到具体什么内容，单从意思想，直接用插入/引用/索引与目录/目录就可以得到了。为什么要用VBA，需要得到哪几级的内容，都没有写明白。

dorado · 发表于 2005-1-10 09:26

[em04]

语义不清，让大家糊涂了。我是想用VBA读取里面的内容，然后通过ASP写到数据库中。

数据库 news 表：title, contents 两个字段，所以只能用VBA读取标题和内容出来分别写入，至于“插入/引用/索引与目录/目录”就不行了。

这样的话，就可以把收到的新闻共享给公司内部员工分享了。

dorado · 发表于 2005-1-10 11:41

斑竹大人帮帮忙，有没有什么好办法？

守柔 · 发表于 2005-1-10 12:09

对于WORD中的VBA读取，没问题，好办；对于后者，ASP，是什么，我不知道；是什么样的数据库？SQL还是ACCESS？

dorado · 发表于 2005-1-10 14:12

asp就是动态网页，咱论坛就是ASP编的。ACCESS的数据库！

我的本意就是通过网页的VBSCript、JavaScript读取Word中的相对应的标题和内容，然后将读取的数据通过ASP写入数据库（Access）。

七叶一枝梅 · 发表于 2005-1-10 15:47

前几天我才写过如何结合Word与Access的贴子：

先看这个：http://club.excelhome.net/viewthread.php?tid=71416

再看这个：http://club.excelhome.net/viewthread.php?tid=74977

不需要在VBA中使用ASP，也不需要在ASP中用VBA，直接在你服务器本地上运行VBA或VBS的脚本(用ADO)即可将Word文档导入到*.mdb文件中。

上面第二个链接中的例子，可满足你的需要。

我的代码是分别将文档的名称与内容插入到两个字段中的，你拿到后可能要修改获取相应“名称”与“内容”的代码。

要在word中提取出对应的名称与内容，请查看wordVBA帮助中的“Styles 集合对象”或“OutlineLevel属性”，根据该对象或属性不同的值，可以找到你文中的“题目”及其下所对应的“内容”。

[此贴子已经被作者于2005-1-11 9:58:46编辑过]

七叶一枝梅 · 发表于 2005-1-10 16:19

另外，

你如果不在服务端本地运行VBA来插入内容的话，你也可以使用ADO在客户端进行内容的插入（是直接将内容写入到数据库，在ADO中指定数据库的绝对地址，而不是通过Web方式！！），

如果你要使用ASP页面的Web方式，来提交VBA读出的，要写入到数据库中的内容，那么——

能“提交”的ASP页面及其后台执行插入内容的页面，必定会有安全问题。

七叶一枝梅 · 发表于 2005-1-11 13:15

看一下这个：

Sub H_Aces() ''本段过程用于取得你文中的题目（赋值给ar）与内容（赋值给br） ''你给出的范例文章中，题目是“标题 3”而正文是“文字块”，如果你今后使用时有变，你还得改。 On Error Resume Next x = 0 y = 0 ar = "" br = "" For Each y1 In ActiveDocument.Paragraphs x = x + 1 t = ActiveDocument.Paragraphs(x).Style If t = "标题 3" And y <> 1 Then ar = ActiveDocument.Paragraphs(x).Range'''''''取得题目 y = y + 1 ''本变量用于确定是否循环到了下一个标题开始的地方。 ElseIf t = "文字块" Then br = br & Chr(13) & ActiveDocument.Paragraphs(x).Range'''''''取得各段落 Else If ar <> "" And br <> "" Then''''由于文中有空段落所以要这个判断 Call he(ar, br)''''''进入插入数据库的过程 y = 0 ar = "" br = "" End If End If Next

End Sub

Sub he(a, b)

'''以下代码执行插入到数据库，假定你的数据库路径为"c:\aaa.mdb"，表为“book”， '''“book表”中的字段分别为"A_title"与"A_range" '''不要忘了在工程中引用Access否则不能正常运行。

Set conn = CreateObject("ADODB.Connection") conn.Provider = "microsoft.jet.oledb.4.0" conn.Open "c:\aaa.mdb" '以下进行文件写入

conn.Execute "Insert into book (A_title,A_range) values ('" & a & "','" & b & "')" Set conn = Nothing '''上句代码插入数据时，不如使用RS对象的“Update”好！因为使用"Insert into"时， '''只要文件中有英文逗号或撇号就会出错！！

End Sub

代码我没有调试，但大体上应该就是这个样子了，有问题你可以自己修改。

[此贴子已经被作者于2005-1-11 13:20:29编辑过]

		自动登录	找回密码
密码			免费注册