WORD如何批量修改数字？

13907933959

gbgbxgb 发表于 2016-3-21 10:22
对于类似“.09”这样的数字，直接忽略它的这种表现形式不妥，代码作了新的变动，将传往您的邮箱。

另 ...

前辈好！
修改后的宏更人性化了，如查找到文档内有非正常数字，.几几，点号前面少了0的，即会弹出提示确认框，刚才运行后发现文档内有几个这样的非正常数字，就需要确认多少次。能不能再劳您让它变成一次确认就可的那种。对您用非Find对象的方案，在下记往了，万分感谢！

gbgbxgb

13907933959 发表于 2016-3-21 12:03
前辈好！
劳您费心了，在下真是感动！修改后的宏更人性化了，如查找到文档内有非正常数字，.几几，点号 ...

您这样让人感觉就不好了。

新附件已传往您的邮箱。

补：您有能力跟帖帮助他人，何以没能力对本人提供的代码稍作修改？

最后：到此为止了，若再有疑问，您只好自个儿琢磨着改了（或者，您帖上本人代码求助他人，我不想助人，但不反对您拿这代码求助于人）。我对此帖没兴趣了。

gbgbxgb

13907933959 发表于 2016-3-21 12:03
前辈好！
劳您费心了，在下真是感动！修改后的宏更人性化了，如查找到文档内有非正常数字，.几几，点号 ...

事实上，从您的需求看，根本用不着提示，您直接去除判断的相关语句，让其直接替换就好了，这样的话，代码改起来也简单。何苦来个至少保留一次确认？！！！！

另：之所以要方案1，不要Find的方案2，原因是前者速度快很多。故新附件已经删除了Find方案，即不再提供Find方案的修改。

xwdys

Sub test()

    Dim i&, j&, k&, s$, regx

    Dim mat As Object

    s = Selection.Range

    Set regx = CreateObject("vbscript.regexp")

    regx.Pattern = "(\d+\.?\d+)"

    regx.Global = True

    Set mat = regx.Execute(s)

    For i = 0 To mat.Count - 1

        j = mat.Item(i).firstindex

        k = mat.Item(i).Length

        If j <> 0 Then

            s = Left(s, j) & VBA.Replace(s, mat.Item(i), mat.Item(i) * 2, j + 1, k)

        Else

            s = Replace(s, Left(s, k), Val(Left(s, k)) * 2)

        End If

    Next

    Selection.Range = s

End Sub

13907933959

gbgbxgb 发表于 2016-3-21 14:31
事实上，从您的需求看，根本用不着提示，您直接去除判断的相关语句，让其直接替换就好了，这样的话，代码 ...

前辈好！
好的、几次打扰、还望海涵！感谢前辈！

13907933959

xwdys 发表于 2016-3-21 14:42
Sub test()    Dim i&, j&, k&, s$, regx    Dim mat As Object    s = Selection.Range    Set regx = Cre ...

前辈好！
运行这个宏后，附件上内的内容好像未作任何修改。

xwdys

对选择的文本

13907933959

xwdys 发表于 2016-3-22 15:17
对选择的文本

前辈好！
没明白您的意思！