用vba取消专利号中的分节号,

386026398 · 发表于 2023-6-29 23:49

本帖最后由 386026398 于 2023-7-1 06:56 编辑

专利号可能存在于文档文字部分，也可能存在于文档表格中。由于用VBA自动对数字添加分节号时，对专利号也添加了分节号，比如ZL202222784646.6变成ZL202,222,784,646.6。求助用vba将加了分节号的专利号中的分节号去掉。

vbee · 发表于 2023-6-30 10:49

Sub 宏2()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
      .Text = "(ZL[0-9]{1,3}),([0-9]{1,3}),([0-9]{1,3})"
      .Replacement.Text = "\1\2\3"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

batmanbbs · 发表于 2023-6-30 12:13

没有看到你提供的真实文档，试试吧

386026398 · 发表于 2023-6-30 16:05

本帖最后由 386026398 于 2023-6-30 16:28 编辑

batmanbbs 发表于 2023-6-30 12:13
没有看到你提供的真实文档，试试吧

能替换，但是一直运行不结束。且表格转为无表格了。

batmanbbs · 发表于 2023-6-30 16:06

386026398 发表于 2023-6-30 16:05
能替换，但是一直运行不结束。且表格转为无表格了。

最好提供测试文档

386026398 · 发表于 2023-6-30 16:16

vbee 发表于 2023-6-30 10:49
Sub 宏2()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

这种方法我试过，没有反映

batmanbbs · 发表于 2023-6-30 17:32

本帖最后由 batmanbbs 于 2023-6-30 17:36 编辑

386026398 发表于 2023-6-30 16:05
能替换，但是一直运行不结束。且表格转为无表格了。

晕，你的专利号里面有空格，而且我的代码运行也没有问题啊，就是无法替换而已，既不会运行不结束，也不会将表格变成无表格，你确实这个文档吗？
PS：只要在逗号后面加一个空格，可以替换了。

vbee · 发表于 2023-6-30 19:46

386026398 发表于 2023-6-30 16:16
这种方法我试过，没有反映

稍作修改，...................

386026398 · 发表于 2023-6-30 21:36

vbee 发表于 2023-6-30 19:46
稍作修改，...................

你上传的附件里没有修改后的代码，麻烦能重新发一下吗

386026398 · 发表于 2023-6-30 21:41

本帖最后由 386026398 于 2023-6-30 21:43 编辑

batmanbbs 发表于 2023-6-30 17:32
晕，你的专利号里面有空格，而且我的代码运行也没有问题啊，就是无法替换而已，既不会运行不结束，也不会 ...

我的是2016版本，运行Do While .Execute有误，提示

		自动登录	找回密码
密码			免费注册

[已解决] 用vba取消专利号中的分节号,