求教大神们，word所有数字统一加2，怎样操作呢

桑榆非晚

各位路过的大神，这个急用，麻烦赐教，不胜感激！！！
（后面有附件word哦）

桑榆非晚

自己顶上去，期盼各位大神相救啊

limonet

把目录部分粘贴到excel中，加2后，再粘到WORD中转换成文本。

413191246se

1. Sub PageNumAdd2()
   
2.     Dim i As Paragraph, r As Range
   
3.     If Selection.Type = wdSelectionIP Then MsgBox "Please select!", 0 + 16: End
   
4.     Set r = Selection.Range
   
5.     For Each i In r.Paragraphs
   
6.         With i.Range
   
7.             .Characters.Last.Previous.Select
   
8.             With Selection
   
9.                 If .Text Like "[0-9]" Then
   
10.                     Do While .Previous Like "[0-9]"
    
11.                         .MoveStart 1, -1
    
12.                     Loop
    
13.                     .Text = .Text + 2
    
14.                 End If
    
15.             End With
    
16.         End With
    
17.     Next
    
18.     MsgBox "OK!", 0 + 48
    
19. End Sub

复制代码

桑榆非晚

谢谢大神，我试试啊

wuwenbin32415

我不会vba代码，我用基础的替换：查找内容为([0-9]{2})、替换为\12，勾选“使用通配符”。也可以先用Alt+shift键选中目录中的数字部分，再用替换：查找内容为([0-9]{1,})、替换为\12，勾选“使用通配符”。

hwmj8301

楼主没考虑过放弃原来的手工旧目录，直接自动抽取生成新目录吗？