请问这个编号怎么替换

相见是缘8

yhs185 发表于 2019-12-17 19:54
.Execute Replace:=wdReplace0ne

改成 .Execute Replace:=2

谢谢！
把2楼代码中的 .Execute Replace:=wdReplace0ne
改成 .Execute Replace:=2
可以替换了，但替换的结果是：2.1、2.2、2.1.1、2.2.2、2.2.2.1、2.1.2.2
而楼主的要求是：2.1、2.2、2.2.1、2.2.2、2.2.2.1、2.2.2.2
这样代码与楼主的要求不一致！

413191246se

蓝桥老师的代码在 Word2003 下运行正常，结果OK！

1. Sub lqxs()
   
2.     Dim d, k, t, i&
   
3.     Set d = CreateObject("Scripting.dictionary")
   
4.     d.Add "1.1", "2.1"
   
5.     d.Add "1.2", "2.2"
   
6.     d.Add "1.1.1", "2.2.1"
   
7.     d.Add "1.1.2", "2.2.2"
   
8.     d.Add "1.1.1.1", "2.2.2.1"
   
9.     d.Add "1.1.1.2", "2.2.2.2"
   
10.     k = d.keys: t = d.items
    
11.     For i = 0 To UBound(k)
    
12.         ActiveDocument.Content.Select
    
13.         With Selection.Find
    
14.             .Forward = True
    
15.             .Text = k(i)
    
16.             .Replacement.Text = t(i)
    
17.             .Execute Replace:=wdReplaceOne
    
18.             Selection.HomeKey Unit:=wdLine
    
19.             Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    
20.         End With
    
21.     Next
    
22. End Sub

复制代码

相见是缘8

413191246se 发表于 2019-12-18 10:09
蓝桥老师的代码在 Word2003 下运行正常，结果OK！

老师好！
用你抄的代码替换确实符合楼主的要求，是我抄的代码有误！
真希望老师们的代码不要以图片的形式出现！