如何优化一段VBA：去掉有且只有2个或者1个数字的行

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

如何优化一段VBA：去掉有且只有2个或者1个数字的行相关推荐

写了一段VBA代码后， Excel每次保存时都弹出警告：”此文档中包含宏、Activex控件、XML扩展包信息“（office 2007）
前言:今天在写一段VBA代码之后,遇到一个问题, Excel每次保存时就报一个警告(使用的是office 2007): 此文档中包含宏.Activex控件.XML扩展包信息用起来很不爽! ----- ...
VBA之正则表达式（14）-- 提取指定位数的数字
实例需求:只提取字符串中2位~4位的数字(无小数点),提取结果为蓝色数字. 测试字符串:6688-部门员工共10人与2019年6月成功完成销售额889966订单数689 这次的话题有些太简单了吧!?任 ...
c语言禁止优化某段代码,C语言优化小技巧
该楼层疑似违规已被系统折叠隐藏此楼查看此楼在编写C语言程序后,经常需要对源码进行优化,以提高程序的运行效率,下面简述几个常用的优化技巧以供大家参考: 1.C于代码在程序中的优化现在的C编译器会自 ...
第一段VBA脚本留念
需求:某一列单元格内容为逗号分隔的整数序列,形如(11,22):解析并给每一个数字加300000,形如(300011,300022):之后回写单元格即可 Sub Bat_Click()For Each ...
写一段vba代码，把excel中所有工作簿中的图片删除
以下是 VBA 代码,可用于删除 Excel 中所有工作簿中的图片: Sub DeleteAllImages()Dim ws As WorksheetDim shp As ShapeFor Each ...
elasticsearch 索引搜索和索引性能优化配置——思路：去掉不必要的数据，减小数据的磁盘空间占用，同时提升性能...
压缩配置: index.codec: best_compression合并索引: curl –XPOST localhost:9200/hec_test3/_forcemerge'配置mapping: ...
写一段vba代码，实现excel里数值升序排序
您可以使用以下代码来实现excel中数值升序排序: Sub sortAscending() Dim rng As Range Set rng = Selection rng.Sort Key1:=rn ...
一段代码去掉优酷腾讯视频右上角LOGO图标
有时候你在看视频,上面老是有个绿绿的LOGO挡着视线,确实不爽,就写了串JS代码,下面来看看教程. 1.打开视频网站,找到你想看的电影. 2.F12打开调试工具,找到控制台:Console 3.在下面 ...
HTML嵌入php已经过时,**PHP, 这段嵌入html的php代码为何第15、16、17行报错？**
报错如图: 在localhost状态下运行之后报错的.什么原因??(代码第一.二行为空格).前期在另一个提交订单的Html程序中提交了订单,好像有提示下载一个东东,是不是订单传值没实现造成的? 这段程 ...

如何优化一段VBA：去掉有且只有2个或者1个数字的行

如何优化一段VBA：去掉有且只有2个或者1个数字的行相关推荐

最新文章

热门文章