如何从文章中提取有数字开头的段落

随缘OK

如题，如何从文章中提取有数字开头的段落，具体见附件，文章比较长，要提取的段落比较多，不知用什么方法简单些，请各位大侠赐教，先谢了。
1.rar (3.48 KB, 下载次数: 71)

2010-4-13 17:41 上传

点击文件名下载附件

yvhgydn

以前做的，楼主可以参考
'对正文部分段落标题行加粗
         For zwd = r + 1 To ActiveDocument.Range(0, ActiveDocument.Range.End).Paragraphs.Count  '对正文全文段落进行循环
            With ActiveDocument.Paragraphs(zwd).Range
                If (ActiveDocument.Range(.Start + 1, .Start + 2).Text = "、" Or _
                ActiveDocument.Range(.Start + 2, .Start + 3).Text = "、") And _
                Not VBA.IsNumeric(ActiveDocument.Range(.Start, .Start + 1).Text) Then    '当每一段落第二或第三字符为顿号且顿号前字符不为数字时
                    .Sentences(1).Font.Bold = True          '每一段第一句字体加粗
                End If
            End With
         Next zwd

随缘OK

大侠能不能说详细一点，怎样做，我刚学WORD，实在不懂呀

zjgwzj

2楼的没有说清楚，好事做到底嘛

守柔

原帖由 随缘OK 于 2010-4-13 17:41 发表
如题，如何从文章中提取有数字开头的段落，具体见附件，文章比较长，要提取的段落比较多，不知用什么方法简单些，请各位大侠赐教，先谢了。
698443

除了使用VBA外，查找替换也可以。
步骤如下：
1，全选文档，单击居中命令，再单击两端对齐命令，此操作将自动过滤掉段前空格。
2，CTRL+Home，定位到文档首，按下Enter键，插入空白段落。此操作为增加辅助段落。
3，可省略，如果文档中存在连续的数字开头的段落，可以通过查找“^p“，替换为“^p^p”，此为增加辅助段落，可跳过该步骤。
4，Ctrl+F，勾选使用通配符，查找“^13[0-9]{1,}、*^13”，单击查找全部，即查找所有在段落标记后以数字开头的段落（每个符合项为两个段落）
5，关闭查找和替换对话框，再次Ctrl+F，打开查找和替换对话框，查找“[0-9]{1,}、*^13”，此举为在所选内容中查找所有以数字开头的段落。
6，关闭查找和替换对话框，如有条件，移至所选内容的最后一项，右击，复制；如无可能，直接在第一个查找内容中右击，复制即可。
视情况，调整第一项或者最后一项内容的位置即可。
附图：

[ 本帖最后由 守柔 于 2010-4-14 08:18 编辑 ]

yvhgydn

学习了，见所未见，闻所未闻，神乎其技
[0-9]{1,}想请教一下这个用法是怎么用，大括号里面的参数如何设置

守柔

原帖由 yvhgydn 于 2010-4-13 20:21 发表
学习了，见所未见，闻所未闻，神乎其技
[0-9]{1,}想请教一下这个用法是怎么用，大括号里面的参数如何设置

“[0-9]”表示任意一个数字，“{1,}”表示一个以上（含一个）的前一个字符或者表达式。此处的含义就是一个以上的数字。"{}"通配符有三种形式，“{m,n}"，“{n}","{n,}"。有关这类高级查找替换，请搜索本版，也可以在查找和替换对话框打开的情况下，单击右上角的“？”。

随缘OK

谢谢版主,学习了,

tangqingfu

谢谢分享，学习ing!

chinablank

Sub tq()
Dim ch As Document
Set ch = Documents.Add
For Each p In Me.Paragraphs
    If p.Range Like "#、*" Then
        ch.Range(ch.Content.End - 1, ch.Content.End).FormattedText = p.Range
    End If
Next
End Sub