大量文字数据的整理 求指导

451347244

如图  上头要求我把审判法庭按地址归类 然而这个相当于一段一段内容，并不是单纯的文字 词语分类汇总。应该怎么设置呢  word有没有这个功能？或者是要编写代码？？？如果手动的话 我要疯了 我从网络上摘下来 已经摘了我2天时间 再分类不要人命啊！
11.rar (158.27 KB, 下载次数: 17)

2014-4-24 09:38 上传

点击文件名下载附件

李兴德

统一格式再用Excel 处理会方便些.

451347244

李兴德 发表于 2014-4-24 09:46
统一格式再用Excel 处理会方便些.

excel的话 应该怎么做 才能把含有 关键字的那个段落整理出来？

huanger999

我看你的例子里面，每个记录的开始是一个★。可以这样做：
1、把所有的段落都换成换行，替换，用^l替换^p；
2、用^l★被替换为^p★
这样之后，你的每条记录就是一个段落了。
3、将地点整理出来一个清单。放到表格里面。
4、然后确实要编程。

zhanglei1371

试试如下代码【别告诉我你不会用】：
完成后可将文档转换为表格。然后你自己排序，手动将第二列删除，再表格-转换-表格转换为文本即可。
Sub sdf()
    On Error Resume Next
    Application.ScreenUpdating = 0
    ActiveDocument.Range.InsertAfter vbNewLine & "★"
    With Selection.Find
        .Parent.HomeKey wdStory
        .Text = "★[!★]@★"
        .MatchWildcards = 1
        Do While .Execute
            If Len(.Parent) < 20 Then Exit Do
            .Parent.End = .Parent.End - 1
            Selection.Cut
            Selection.Tables.Add Selection.Range, 1, 1
            Selection.Paste
            Selection.TypeBackspace
            Selection.Tables(1).Style = "网格型"
        Loop
    End With

    ActiveDocument.Tables(1).Columns.Add

    With Selection.Find
        .Parent.HomeKey wdStory
        .Text = "审判法庭:*^13"
        .MatchWildcards = 1
        Do While .Execute
            .Parent.Start = .Parent.Start + 5
            Selection.Copy
            Selection.Cells(1).Select
            Selection.MoveRight
            Selection.Paste
            Selection.TypeBackspace
        Loop
    End With
''    Selection.Tables(1).Columns(2).Select
''    Selection.Sort ExcludeHeader:=False, FieldNumber:="列 2"
''    Selection.Tables(1).Columns(2).Delete
''    Selection.Tables(1).ConvertToText
Application.ScreenUpdating = 1
End Sub

huanger999

赞，原来查找可以这样用。

地天泰

学习了 谢谢！！！