【求助】宏，给每句话前面加上序号

jasonstth

非常感谢高手帮我这个小忙，宏代码的具体要求如下:
一篇英语文章，给每一段的每句话依次编号1、2、3、……，详见附件第一段格式。
最后再次表示感谢。{:soso_e100:}

jasonstth

第一次发帖，粗心了，第一段格式如下：
1、 Hunting for a job late last year, lawyer Gant Redmon stumbled across CareerBuilder, a job database on the Internet. 2 、He searched it with no success but was attracted by the site’s “personal search agent”.3、  It’s an interactive feature that lets visitors key in job criteria such as location, title, and salary, then E-mails them when a matching position is posted in the database. 4 、Redmon chose the keywords legal, intellectual property, and Washington, D.C. 5、 Three weeks later, he got his first notification of an opening.6、  “I struck gold,” says Redmon, who E-mailed his resume to the employer and won a position as in-house counsel for a company.

hugo_huang

没看懂，第一段没什么特别的啊。

excelhometiger

文件上传，是不是要这种效果？
不用宏可以做到，页面布局下添加行号就行。

jasonstth

excelhometiger 发表于 2013-10-17 11:45
文件上传，是不是要这种效果？
不用宏可以做到，页面布局下添加行号就行。

我粗心了，附件的第一段其实是这样的：
1、Hunting for a job late last year, lawyer Gant Redmon stumbled across CareerBuilder, a job database on the Internet. 2、He searched it with no success but was attracted by the site’s “personal search agent”.3、 It’s an interactive feature that lets visitors key in job criteria such as location, title, and salary, then E-mails them when a matching position is posted in the database.4、 Redmon chose the keywords legal, intellectual property, and Washington, D.C. 5、Three weeks later, he got his first notification of an opening. 6、“I struck gold,” says Redmon, who E-mailed his resume to the employer and won a position as in-house counsel for a company.
不是你那种格式，不过还是很感谢哥们花时间帮我，谢谢拉。

zhanglei1371

Sub sdf()
Dim pa As Paragraph, se As Range
    For Each pa In ActiveDocument.Paragraphs
        i = 1
        For Each se In pa.Range.Sentences
            se.InsertBefore i & "、"
            i = i + 1
        Next
    Next
End Sub

jasonstth

zhanglei1371 发表于 2013-10-17 13:38
Sub sdf()
Dim pa As Paragraph, se As Range
    For Each pa In ActiveDocument.Paragraphs

代码很好用，谢谢啦！

李白997

zhanglei1371 发表于 2013-10-17 13:38
Sub sdf()
Dim pa As Paragraph, se As Range
    For Each pa In ActiveDocument.Paragraphs

我想每一段都按照递增标号分句可以吗？谢谢老哥按照这个格式：1.1xxxxx
1.2xxxxxx.1.3xxxxxx.1.4xxxxxx.1.5xxxx
1.6xxxxx

李白997

zhanglei1371 发表于 2013-10-17 13:38
Sub sdf()
Dim pa As Paragraph, se As Range
    For Each pa In ActiveDocument.Paragraphs

忽视段落的话

天空飘过啥

我只会查找替换
1替换点后加回车
2自动编号
3把回车替换为空