这种普通的添加编号的方法，为什么会去除部分原有序号？

chenlifeng123

           已知word文档全部内容如下（存在分散对齐的情况）：

1)地点：广东深圳   2)爱好：唱歌

3)出生：1986     4)星座：天蝎

5)身高：178      6)歌曲：爱是你我

7)姓名：曹操

8)特点：说到就到

        目的：给它们添加自动编号（不要问我为什么）。

        要求：要保留原来的手动序号  “1）、2）”……等。

        问题：全选它们，通过word菜单选择添加编号时，会把原有手动编号的第一个自动删除，这与要求违背，结果如下：

a、 地点：广东深圳  2)爱好：唱歌

b、 3)出生：1986   4)星座：天蝎

c、 5)身高：178     6)歌曲：爱是你我

d、 7)姓名：曹操

e、 8)特点：说到就到

        

      请问：原因出在哪，如何解决呢？

     （附件中有word，内容存在分散对齐情况）感谢老师！

duquancai

Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[0-9]@[\)）]", , , 1)
            .Parent.Fields.Add .Parent, wdFieldEmpty, "LISTNUM  LegalDefault \l 1 "
            .Parent.Collapse 0
        Loop
    End With
End Sub

chenlifeng123

duquancai 发表于 2017-7-8 10:36
Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[0-9]@[\)）]", , , 1) ...

感谢老师~！太强大了，通过执行您的代码后再处理我的步骤，丝毫不错。
不知道这个处理方法叫什么，似乎是把 非1 给提取出来处理一下？

chenlifeng123

duquancai 发表于 2017-7-8 10:36
Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[0-9]@[\)）]", , , 1) ...

发现您处理了： 英文和中文状态下，数字0-9的全部情况。
而我尝试多次发现：
       1、只需要处理原序号是1的地方，其余不用处理；
       2、匹配的数字都出现在段落开头；
       3、原序号不只是阿拉伯数字，还有中文数字.
我改成：
           Do While .Execute("^13[1１一壹甲Aa]@[\)）]", , , 1)
结果把回车符给替换没了。

duquancai

chenlifeng123 发表于 2017-7-8 14:00
发现您处理了： 英文和中文状态下，数字0-9的全部情况。
而我尝试多次发现：
       1、只需要处理原序 ...

Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[1１一壹甲Aa]@[\)）]", , , 1)
            x = Len(.Parent.Text): ksr = .Parent.Text
            .Parent.Expand 4: .Parent.Collapse
            If .Parent.MoveEndWhile(ksr, x) = x Then
                .Parent.Fields.Add .Parent, wdFieldEmpty, "LISTNUM  LegalDefault \l 1 "
            Else
                .Parent.Move 4, 1
            End If
        Loop
    End With
End Sub

chenlifeng123

duquancai 发表于 2017-7-8 15:32
Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[1１一壹甲Aa]@[\)） ...

好灵活的思路，果断实现我的目的，太感动了~ 感谢阿杜老师~！