[求助]识别单个数字 并加上0

菊石泽露

不好，还应加上判断前后都不是数字的条件。

sylun

如要进一步分辨，不知如下代码是否可行：

Sub add_zero2()
    Dim i As Range
    For Each i In ThisDocument.Content.Words
        If Val(i.Text) > 0 And Len(i.Text) = 1 Then
            If Asc(i.Characters(1).Previous) < 0 _
            And Asc(i.Characters(1).Next) < 0 Then
                i.InsertBefore "0"
            End If
        End If
    Next
End Sub

刚才认真观察了WORD对words集合对象中每一项的识别规则，真有意思

[此贴子已经被作者于2007-3-22 18:04:17编辑过]

konggs

sylun兄：

   不到万不得已不要在Words或Characters中循环，否则，文档一长，通常时间会很长，很可能要当掉。

sylun

QUOTE:

以下是引用konggs在2007-3-22 20:58:19的发言：

sylun兄：

   不到万不得已不要在Words或Characters中循环，否则，文档一长，通常时间会很长，很可能要当掉。

谢谢版主赐教。这点我确实没有考虑过，刚入门，想试试不同对象与函数的使用。刚接触words与characters，觉得有趣，但还没弄清其用法与使用场合。

菊石泽露

对单个数字前后有字母者失效!

向sylun兄学习了。

sylun

QUOTE:

以下是引用菊石泽露在2007-3-23 13:56:27的发言：

对单个数字前后有字母者失效!

向sylun兄学习了。

菊兄客气了。
我觉得这情况与words集合对象本身的识别规则有关。用Ctrl+右方向键进行测试，我的感觉是：
1.数字与字母混合的，数字和字母作为words集合对象中的同一项；
2.数字后跟空格（全半角均是，数量不限）的，它们属同一项；
3.数字前或后跟汉字、一般标点符号（小数点较特殊），或数字前为空格的，它们均不属同一项；
4.连续的半角空格、每对全角空格、全角空格（以对为单位且前一字符不是半角空格）后跟制表符均为一项；
5.对于全半角空格混合，如全角前不是半角，它们不属同一项，全角前是半角，则至混合的末尾均为同一项；
6.全角数字作为一个汉字。

希望互相交流，共同进步。

菊石泽露

谢谢sylun兄的注解。我刚进坛子不久，之前不知vba为何物，来了之后，感觉有所进步。

但仍在门外，问题总是多于解决的办法，希望多多赐教！

sylun

赐教就不敢当了。
对VBA，我也是初学者。只是平时常将坛子上提出的问题作为老师提的问题来对待，如果答对了，在练习之余还可以帮助别人。如果答错了，我想会有人指出来的，自己也有机会增长知识。如果一点答不出来，想学习时还可继续关注该帖。总的来说是我的学习方法而已。当然，误导、帮倒忙或答非所问的时候也难免，那就不好意思了。

菊石泽露

学习学习！