利用摘要功能作档案的问题

conghr · 发表于 2005-7-15 21:52

每月要将数百份文章的题目缩编后做成档案。请问，能否利用word的摘要功能自动汇编为档案？

守柔 · 发表于 2005-7-16 08:14

第一，你试一下，就知道了；（因为你的要求，我们无法知道）

第二，如果自动编写摘要能够满足要求的，或者不能满足要求的，你也以提出要求来，最好守柔给你编个程序，一次性帮你汇总完毕。

conghr · 发表于 2005-7-16 09:58

谢谢守柔版主。要求是这样的，将每月数百份word文件的题目缩编后，按照时间顺序排列。需要汇总的内容是：题目、作者、时间共三栏。烦请指点。

守柔 · 发表于 2005-7-16 10:56

题目是什么意思？标题？文件名？还是什么？如果是标题，取几段？等等

时间：是创建时间？最后保存时间？还是什么？

发一个附件上来，把你原来的汇总的资料，发一小段上来，有代表性，能说明问题即可。

把你的现在的需要缩编的文档，上传一份，能说明问题即可，如果保密的话。

OK，我等你。

conghr · 发表于 2005-7-16 11:33

再次感谢版主。

wieF1g1H.rar (5.26 KB, 下载次数: 18)

[此贴子已经被作者于2005-7-16 11:33:33编辑过]

守柔 · 发表于 2005-7-16 13:42

以下是引用conghr在2005-7-16 11:33:00的发言：
再次感谢版主。

以下代码供参考： '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-16 13:38:26 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0005^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Collect() '此代码功能为列出指定文件夹中所有选取的WORD文件全路径名 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, MyDoc As Document, i As Integer Dim strTitle As String, strCreateDate As String, strAuthor As String, strList As String Dim MyString As String On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 Application.ScreenUpdating = False With ThisDocument.Content .Delete .InsertAfter "档案" & Chr(13) .Paragraphs.First.Style = wdStyleHeading3 .Paragraphs.First.Alignment = wdAlignParagraphCenter .InsertAfter "编号" '设置一个制表位(1) .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(1.5) .InsertAfter Chr(9) '发送一个TAB键 .InsertAfter "目录" .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(10) .InsertAfter Chr(9) .InsertAfter "作者" .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(12) .InsertAfter Chr(9) .InsertAfter "日期" .InsertAfter Chr(13) .Paragraphs(2).Range.Font.Size = 12 .Paragraphs(2).Range.Bold = True End With For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 i = i + 1 Set MyDoc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False) With MyDoc strList = i '编号 strTitle = .BuiltInDocumentProperties("Title") '标题 '创建日期 strCreateDate = VBA.DateValue(.BuiltInDocumentProperties("Creation date")) '作者 strAuthor = .BuiltInDocumentProperties("Author") MyString = strList & vbTab & strTitle & vbTab & strAuthor & vbTab & strCreateDate Me.Content.InsertAfter MyString & Chr(13) .Close False End With Next End If Application.ScreenUpdating = True End With End Sub '----------------------

您需要将宏安全性设置为低，或者启用宏。

将所有需要“摘要”的文档，置于同一文件夹中，然后运行此代码（宏名为Collect）即可在此文档中生成汇总项目。

1RlGX7Ss.zip (12.82 KB, 下载次数: 25)

conghr · 发表于 2005-7-16 14:04

已收到版主的东东，先研究一下吧。感谢守柔版主的帮助。

[此贴子已经被作者于2005-8-11 14:47:31编辑过]

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