VBA 特定内容 实现末尾数字+1

jiangxsliu

本人现需进行特定内容的更换，如：“Form No. : wwes-213-20”，想实现末尾数字的+1（Form No. : wwes-213-21），现已通过通配符的方式查找替换，查找“([F,f]*No*-[0-9]{1,3}-)20”，替换“\121”
待替换的内容.zip (9.88 KB, 下载次数: 16)

2021-7-2 09:39 上传

点击文件名下载附件
内容

但此方式只能以穷举法的形式，穷举末尾的数字来替换，想请教各位大佬是否有更好的方式来完成这个效果。
以下为我的部分穷举代码

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)08"

       .Replacement.Text = "\109"

        .MatchWildcards = True '启用通配符匹配

   End With

       Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)07"

       .Replacement.Text = "\108"

   End With

       Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)06"

       .Replacement.Text = "\107"

   End With

       Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)05"

       .Replacement.Text = "\106"

   End With

        Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)04"

       .Replacement.Text = "\105"

   End With

       Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)03"

       .Replacement.Text = "\104"

   End With

       Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)02"

       .Replacement.Text = "\103"

   End With

       Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find

       .Text = "([F,f]*No*-[0-9]{1,3}-)01"

       .Replacement.Text = "\102"

   End With

shenjianrong163

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "-[0-9]{1,3}-[0-9]{1,}"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 If Not Selection.Type = wdSelectionIP Then
   
10.                     If .End > Selection.End Then Exit Do
    
11.                 End If
    
12.                 .Text = "-" & Split(.Text, "-")(1) & "-" & Format(Val(Split(.Text, "-")(2)) + 1, "00")
    
13.                 .Start = .End
    
14.             End With
    
15.         Loop
    
16.     End With
    
17. End Sub

复制代码

jiangxsliu

shenjianrong163 发表于 2021-7-2 13:03

我昨晚也想到分割组合的形式，但是考虑到格式不匹配的问题，便没了思路，多谢大佬。
另外还有一个小疑问，这样子通配符搜索担心不够严谨，因此想把前面的“formxx"，也搜索进去比较好，如果是这样子的话，在进行分割重组时
.Text = "-" & Split(.Text, "-")(1) & "-" & Format(Val(Split(.Text, "-")(2)) + 1, "00")，最前面那段应该怎么写呢？如果是excel的话，我可以用left函数+find函数来实现，但是vba好像不行？

小花鹿

查找，定位，提取数据，对数据格式化，重新写入，经过这样一系列的VBA操作，应该可以实现

jiangxsliu

shenjianrong163 发表于 2021-7-2 13:03

我昨晚想了个思路，运用通配符查找进行两次替换，第一次先插入分隔符，第二次再用您的思路分割组合，于是写了以下代码，但提醒说“替换内容含有超出范围的一组数”，我怀疑是在执行第二次替换代码的时候，替换后内容还残留着第一次的内容所致，麻烦您看下或者修改更正下，可以么？
With Selection.Find
        .ClearFormatting
        .Text = "([F,f]*No*-[0-9]{1,3}-)([0-9]{1,})"
        .MatchWildcards = True
        .Replacement.Text = "分隔符\1分隔符\2"
        .Execute Replace:=wdReplaceAll
      End With
      With Selection.Find
        .ClearFormatting
        .Text = "分隔符*分隔符[0-9]{1,}"
        .MatchWildcards = True
        Do While .Execute'怀疑是运行是这里时出错。
            With .Parent
                If Selection.Type <> wdSelectionIP Then
                    If .End > Selection.End Then Exit Do
                End If
                .Text = Split(.Text, "分隔符")(1) & Format(Val(Split(.Text, "分隔符")(2)) + 1, "00")
                .Start = .End
            End With
        Loop
    End With

jiangxsliu

小花鹿 发表于 2021-7-5 14:33
查找，定位，提取数据，对数据格式化，重新写入，经过这样一系列的VBA操作，应该可以实现

重新写入请问是用什么写入呢？上面的一位是用spilt的方式分割重组进去的，然后现在遇到了一小点问题，可以麻烦您看下我给他的回复么？

sylun

可以试试如下代码（假设特定内容前部字符串固定，包括字母大小写及空格数）

1. Sub test()
   
2.     Dim a$, n%
   
3.     Application.ScreenUpdating = True
   
4.     With ActiveDocument.Content.Find
   
5.         .Text = "Form No. : [a-z]@-[0-9]@-[0-9]{2}"
   
6.         .MatchWildcards = True
   
7.         Do While .Execute = True
   
8.             With .Parent
   
9.                 a = .Text
   
10.                 n = InStrRev(a, "-")
    
11.                 .Text = Left(a, n) & Format(Mid(a, n + 1) + 1, "00")
    
12.                 .Collapse wdCollapseEnd
    
13.             End With
    
14.         Loop
    
15.     End With
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

jiangxsliu

sylun 发表于 2021-7-6 21:26
可以试试如下代码（假设特定内容前部字符串固定，包括字母大小写及空格数）

可以了，谢谢帮助。
你这个思路就是找最后一个“-”，通过最后一个“-”来瞄定的，不需要限制前面字符串固定啊。直接用通配符查找即可: .Text = "[F,f]*No*-[0-9]{1,3}-[0-9]{1,}",你这个思路就是我想找要的，如果是在excel的函数我就会写，vba不熟，多谢您的提供。

xinhairen999

感谢分享，学习了。