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

竹林间

自己写了一个代码，但不知哪里的问题，实现不了目的，请各位看看哪里的问题。 想把每个序号（例如1.  和 2.  等序号 ）后面加一个空格；

1. Public Sub 编号后插入空格()
   
2. Dim myrange2, i, j%
   
3. Set myRange1 = ActiveDocument.Content
   
4. For Each Paragraph In ActiveDocument.Paragraphs
   
5.         With myRange1.Find
   
6.             .MatchWildcards = True
   
7.             .ClearFormatting
   
8.             .Execute findtext:="^13[0-9]@."
   
9.         End With
   
10.         i = myRange1.End
    
11.         Set myrange2 = ActiveDocument.Range(Start:=0, End:=i)
    
12.         myrange2.InsertAfter " "
    
13. Next
    
14. End Sub

复制代码

竹林间

word板块的大侠，进来了进来了

daibao88

全文只有一段

竹林间

请您解释下，全文有多个段落标记，为什么会认为是一段呢？

duquancai

竹林间 发表于 2018-6-8 23:06
请您解释下，全文有多个段落标记，为什么会认为是一段呢？

1. 代码在楼下！

复制代码

duquancai

竹林间 发表于 2018-6-8 12:58
word板块的大侠，进来了进来了

1. Sub main()
   
2.     Dim mts As Object, reg As Object
   
3.     Dim n&, m&, doc As Document
   
4.     Set doc = ActiveDocument
   
5.     Set reg = CreateObject("vbscript.regexp")
   
6.     reg.Global = True: reg.MultiLine = True
   
7.     reg.Pattern = "^[\x20\xa0\u3000\t]*\d+\.(?!\x20)"
   
8.     Set mts = reg.Execute(doc.Content.Text)
   
9.     If Not mts Is Nothing Then
   
10.         For j = mts.Count - 1 To 0 Step -1
    
11.             m = mts(j).FirstIndex: n = mts(j).Length
    
12.             With doc.Range(m, m + n)
    
13.                 .InsertAfter Chr(32)
    
14.             End With
    
15.         Next
    
16.     End If
    
17. End Sub

复制代码

413191246se

楼主，不用每个小数点后加一个空格，只须用《齐线墨点》即可，即：“．”，这也是公文规范要求的。你的目标是不规范的，没有必要。

413191246se

怎么打出《齐线墨点》？只须打开中文输入法，右键点击软键盘，选《标点符号》，Enter 键左面键即是。

竹林间

daibao88 发表于 2018-6-8 15:51
全文只有一段

请教一下，每个段落标记符不代表一个段落吗？

daibao88

msgbox ActiveDocument.Paragraphs.count测试的