急急急！怎样用Asp将Word导入到Access数据库

[gelko]

很急，肯请高手帮忙，excel导入解决了，可是word导入数据库却无法解决，现在面临的是一个政府网站，几万条文章性的东西如果一个一个的打开—复制—粘贴—提交的过程我会疯掉的。
哪个高手有没有高招怎样用asp将word导入数据库？我找了半天没有找到word的数据源。
请高手帮忙。在下感激不尽！
很急。明天就要交工。谢谢！

[jspadmin]

在ASP中操作word（例）


<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<link rel="stylesheet" type="text/css" href="edit.css">
<title>保存为Word文档</title>
</HEAD>
<script language="javascript">
window.returnValue=0
</script>
<BODY>
<font color="#000080"><strong><div id="strHint" align="center">数据处理中,请等待...<br>
Data processing, please wait...</div></strong></font><font color="#0080C0">


<script language="vbscript">

On Error Resume Next

Dim wApp

Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
wApp.Documents.add

wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = True
wApp.Selection.TypeText "ASP维护工作意见"

wApp.Selection.ParagraphFormat.Alignment = 1
rem 居 中

wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false

wApp.Selection.TypeText "-- 飞鸟"

wApp.Selection.TypeParagraph

wApp.Selection.ParagraphFormat.LeftIndent = wApp.CentimetersToPoints(0)
wApp.Selection.ParagraphFormat.FirstLineIndent = wApp.CentimetersToPoints(0.72/2*2)

wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false
wApp.Selection.ParagraphFormat.Alignment = 0


wApp.Selection.TypeText "推动维护、服务、管理工作更上台阶。"
wApp.Selection.TypeParagraph

rem 居 右
wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false
wApp.Selection.TypeText "一九九九年五月"
wApp.Selection.TypeParagraph

end if
</script>
<center><br><strong>数据处理完毕!</strong></center>

<p>
</p><div align='center'><center><input type=button class=buttonface name='cmdOK' onclick="window.returnValue=0;window.close();" value=" 确 定 " ></center></div>

</BODY>
</HTML>

[dam520]

基本上很难

[singsin]

看看WORD有什么特点。。自已写代码入库吧。。没有见过WORD数据源。。。

[「已注销」]

用word.application对象，类似于excel.application

具体使用方法请参阅msdn VBA for office