大家进来看看，为什么代码实现不了目的？

竹林间

daibao88 发表于 2018-6-9 16:47
msgbox ActiveDocument.Paragraphs.count测试的

      这篇文字我之前处理过，每段的段落标记我是这样添加的，利用[0-9]@.替换为^13[0-9]@.在每个数字前添加了一个回车符， 这样添加之后，外表看上去是有多个段落标记的，这么说来word不认为这是多个段落，奇怪

413191246se

楼主，如果你是为了文档美观而在每个数字后面的小数点后加一个空格的话，完全没有必要，因为公文规范要求是加齐线墨点，我有现成的代码。

竹林间

加空格的目的也是希望更加的规范和美观，您有现成的代码，方便的话，能不能贴出来借鉴一下

413191246se

楼主，杜先生 的代码能否满足你的要求？我的是成套的，不方便。

竹林间

       杜先生的代码成功的解决了加空格的问题，之前我设想的比较简单，感觉加一个空格就可以了。现在觉得如果能让第二行对齐序号之后的文本的话就更完美了！      
      感谢你的回复，使我意识到格式也需要改进。规范格式的代码，如果有时间，可以发一份给我吗（邮箱1776241725@qq.com），只是想学习一下，再次谢谢！

wdpfox

应该能解决你提供的样本:

Sub test()
   
    ActiveDocument.Content.InsertBefore vbCr
      
    With ActiveDocument.Content.Find
               
        
        .Execute "([ ]{1,})", , , 1, , , , , , "", 2
        
        .Execute "(^13)([0-9]{1,})([.．])", , , 1, , , , , , "\1\2\3 ", 2
        
    End With
   
    ActiveDocument.Paragraphs(1).Range.text = Empty

End Sub   

wdpfox

竹林间 发表于 2018-6-9 18:19
这篇文字我之前处理过，每段的段落标记我是这样添加的，利用[0-9]@.替换为^13[0-9]@.在每个数字前 ...

^13换为^p试试                    

wdpfox

发重复了

竹林间

wdpfox 发表于 2018-6-11 13:57
^13换为^p试试

赞！换成^p就可以实现了

竹林间

wdpfox 发表于 2018-6-11 13:53
应该能解决你提供的样本:

Sub test()

厉害！厉害!!!