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

batmanbbs

386026398 发表于 2023-6-30 21:41
我的是2016版本，运行Do While .Execute有误，提示

啥错误提示？截个图看看

batmanbbs

386026398 发表于 2023-6-30 21:41
我的是2016版本，运行Do While .Execute有误，提示

估计你代码打错了，把代码截图看看。我的代码在单位呢，没有办法直接发给你了。
看错误提示，重点看看这个是否正确

386026398

Sub 去除专利号中的千分位()
  With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = "ZL[O-9, ]@.[O-9]"
    .Wrap = wdFindStop
    .Forward = True
    .MatchWildcards = True
    Do While .Execute
      With .Parent
        If InStr(.Text, ".") <> 0 Then
          .Parent.Text = Replace(.Parent.Text, ",", "")
        End If
      End With
    Loop
  End With
End Sub

386026398

batmanbbs 发表于 2023-6-30 21:43
估计你代码打错了，把代码截图看看。我的代码在单位呢，没有办法直接发给你了。

Sub 去除专利号中的千分位()
  With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = "ZL[O-9, ]@.[O-9]"
    .Wrap = wdFindStop
    .Forward = True
    .MatchWildcards = True
    Do While .Execute
      With .Parent
        If InStr(.Text, ".") <> 0 Then
          .Parent.Text = Replace(.Parent.Text, ",", "")
        End If
      End With
    Loop
  End With
End Sub

386026398

batmanbbs 发表于 2023-6-30 21:43
估计你代码打错了，把代码截图看看。我的代码在单位呢，没有办法直接发给你了。
看错误提示，重点看看这 ...

谢谢，可以了

batmanbbs

386026398 发表于 2023-6-30 21:50
谢谢，可以了

看到问题了，应该是0打成O了

vbee

386026398 发表于 2023-6-30 21:36
你上传的附件里没有修改后的代码，麻烦能重新发一下吗

重新发一下.......

386026398

batmanbbs 发表于 2023-6-30 22:02
看到问题了，应该是0打成O了

是的，再次求助，就是在自动对数字生成分节符时，有一个现象就是段落尾部的电话号码、身份证号码、社会信用统一代码，其后仅有回车符时也给分节了，如有其他如句号时就不会。这种情况也需要用vba将分节符取消，仿照你那个编写不成功，麻烦给写个vba

386026398

vbee 发表于 2023-7-1 08:05
重新发一下.......

谢谢，验证无误。

batmanbbs

386026398 发表于 2023-7-3 00:56
是的，再次求助，就是在自动对数字生成分节符时，有一个现象就是段落尾部的电话号码、身份证号码、社会信 ...

不过这个需求问题很多，因为多数数字特别是表格中的数字都是后面紧跟段落符。
最好还是根据你的文档实际情况修订一下千分位的代码才是根本，这样修修补补不是办法。