请问这个编号怎么替换

tengjunlucky

请问如何将1.1、1.2、1.1.1、1.1.2、1.1.1.1、1.1.1.2、、、、

替换为     2.1、2.2、2.2.1、2.2.2、2.2.2.1、2.2.2.2、、、

蓝桥玄霜

替换的代码：

相见是缘8

蓝桥玄霜 发表于 2019-12-14 15:16
替换的代码：

不知错在那里，代码运行后好像没有反应！

Sub lqxs()

    Dim d, k, t, i&

        Set d =CreateObject("Scripting.Dictionary")

        d.Add "1.1", "2.1"

        d.Add "1.2", "2.2"

        d.Add "1.1.1","2.2.1"

        d.Add "1.1.2","2.2.2"

        d.Add "1.1.1.1","2.2.2.1"

        d.Add "1.1.1.2","2.2.2.2"

        k = d.keys: t = d.items

        For i = o To UBound(k)

        ActiveDocument.Content.Select

        With Selection.Find

            .Forward = True

            .Text = k(i)

            .Replacement.Text = t(i)

            .Execute Replace:=wdReplace0ne

            Selection.HomeKey Unit:=wdLine

            Selection.EndKey Unit:=wdLine,Extend:=wdExtend

        End With

    Next

End Sub

yhs185

For i = o To UBound(k)
For i = 0 To UBound(k)
o改成0

tcdatongye

1. Sub 替换()
   
2.         Set d = CreateObject("Scripting.Dictionary")
   
3.         d.Add "1.1", "2.1"
   
4.         d.Add "1.2", "2.2"
   
5.         d.Add "1.1.1", "2.2.1"
   
6.         d.Add "1.1.2", "2.2.2"
   
7.         d.Add "1.1.1.1", "2.2.2.1"
   
8.         d.Add "1.1.1.2", "2.2.2.2"
   
9.         k = d.keys: t = d.items
   
10.         Selection.StartOf unit:=wdStory
    
11.         j = 0
    
12.         With Selection.Find
    
13.             .Forward = True
    
14.             .MatchWildcards = True
    
15.             .Wrap = wdFindStop
    
16.             .Text = "([一-龡、])" & k(j) & "(、)"
    
17.           Do While .Execute
    
18.             .Replacement.Text = "\1" & t(j) & "\2"
    
19.             .Execute Replace:=wdReplaceOne
    
20.             j = j + 1
    
21.             If j > UBound(k) Then Exit Do
    
22.             .Text = "([一-龡、])" & k(j) & "(、)"
    
23.             Selection.Move
    
24.             Selection.MoveLeft
    
25.           Loop
    
26.         End With
    
27. End Sub

复制代码

相见是缘8

yhs185 发表于 2019-12-15 19:01
For i = o To UBound(k)
For i = 0 To UBound(k)
o改成0

你好！改了好像也没用！

相见是缘8

tcdatongye 发表于 2019-12-15 19:55

你好！代码运行后，好像也没有反应！

tcdatongye

、这些复制不下来。

tengjunlucky

相见是缘8 发表于 2019-12-15 15:30
不知错在那里，代码运行后好像没有反应！ Sub lqxs()    Dim d, k, t, i&        Set d =CreateObject("S ...

请问word可以实现么

yhs185

相见是缘8 发表于 2019-12-16 08:37
你好！改了好像也没用！

.Execute Replace:=wdReplace0ne

改成 .Execute Replace:=2