如何优化一段VBA：去掉有且只有2个或者1个数字的行
2011-08-03 14:06
417 查看
A Script for Applications: 给word写的
目的是去掉一个文档中一行中有且只有2个或者1个数字的行：
Sub ListParagraphs()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters.Count = 3 Then
If IsNumeric(p.Range.Characters.Item(1)) And IsNumeric(p.Range.Characters.Item(2)) Then
Selection.SetRange Start:=p.Range.Start, End:=p.Range.End
Selection.Delete
End If
End If
If p.Range.Characters.Count = 2 Then
If IsNumeric(p.Range.Characters.Item(1)) Then
Selection.SetRange Start:=p.Range.Start, End:=p.Range.End
Selection.Delete
End If
End If
Next p
End Sub
目的是去掉一个文档中一行中有且只有2个或者1个数字的行：
Sub ListParagraphs()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters.Count = 3 Then
If IsNumeric(p.Range.Characters.Item(1)) And IsNumeric(p.Range.Characters.Item(2)) Then
Selection.SetRange Start:=p.Range.Start, End:=p.Range.End
Selection.Delete
End If
End If
If p.Range.Characters.Count = 2 Then
If IsNumeric(p.Range.Characters.Item(1)) Then
Selection.SetRange Start:=p.Range.Start, End:=p.Range.End
Selection.Delete
End If
End If
Next p
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 微软面试题：有100万个数字（1到9），其中只有1个数字重复2次，如何快速找出该数字
- 微软面试题：有100万个数字（1到9），其中只有1个数字重复2次，如何快速找出该数字
- 微软面试题：有100万个数字（1到9），其中只有1个数字重复2次，如何快速找出该数字
- 微软面试题：有100万个数字（1到9），其中只有1个数字重复2次，如何快速找出该数字
- 微软面试题：有100万个数字（1到9），其中只有1个数字重复2次，如何快速找出该数字
- 微软面试题：有100万个数字（1到9），其中只有1个数字重复2次，如何快速找出该数字
- 求助： Java基础问题求助： 如何求三个数字中只有一个相同？？？？？？
- 求中英文混合字符串长度，中英文混合字符串截取（汉字2个字节，字母数字等1个字节），字符转ASCII码，ASCII码转字符
- sqlserver中如何将只有一个字段的表一对多或者多对多的插入到另外一个表中
- C# 使用正则表达式去掉字符串中的数字，或者去掉字符串中的非数字
- 现在有N个数字，其中只有一个数字出现的次数是奇数次，如何找到这个数字？
- ABAP alv中对于数字字段如何去掉小数点后面的零
- FastJSON使用心得——如何解析带中文或者数字key的数据
- 如何去掉数字字符串里面的特殊字符
- 一个数组中所有的数都是成对出现的只有一个或者两个数字是单独的，求这个数
- 从网上或者哪里拷贝下来的代码前面总有编号，如何去掉
- 如何判断字符为数字或者字母
- eclipse如何去掉无用的validation、优化eclipse
- 对于一个数字，我们可以直观的了解到它所含有的数字，例如: 3243中包含1个2、2个3、1个4。 那么，给你一个数n，求从1到n之间的所有这些数字中，总共包含多少个m。
- 人人笔试1：一个人上台阶可以一次上1个，2个，或者3个，问这个人上n层的台阶，总共有几种走法？