展示网站和营销网站的区别,wordpress一件代发,wordpress文章部分显示图片,微软云怎么做网站回答#xff1a; 如果是批量删除#xff0c;只能用宏代码来实现了#xff0c;思路是将如下代码原样拷贝到你的新建的宏过程中#xff0c;按F5运行即可。 有关文件批量处理的功能需要#xff0c;可参见 实用工具《文件批量处理百宝箱》 Dim TablesC As Long 定义文档中表格…回答 如果是批量删除只能用宏代码来实现了思路是将如下代码原样拷贝到你的新建的宏过程中按F5运行即可。 有关文件批量处理的功能需要可参见 实用工具《文件批量处理百宝箱》 Dim TablesC As Long 定义文档中表格的数量Dim DelS As Long, DelIn As StringTablesC ActiveDocument.Tables.CountDelIn InputBox(请输入需要删除的表格的行号用半角都好分隔, 消息, 2,4)DelIn Replace(DelIn, , )Do Until R Len(DelIn)DelIn Replace(DelIn, ,,, ,)R Len(DelIn)LoopFor i 1 To Len(DelIn)If InStr(01234567890,, Mid(DelIn, i, 1)) 0 ThenMsgBox 待删除行号输出不符合规范请重新输入样式如2,4,6, vbCritical vbOKOnly, 消息Exit SubEnd IfNextIf Left(DelIn, 1) , Then DelIn Mid(DelIn, 2)If Right(DelIn, 1) , Then DelIn Left(DelIn, Len(DelIn) - 1)If DelIn Then Exit SubDelS Len(DelIn) - Len(Replace(DelIn, ,, )) 1DelIn DelIn ,For i 1 To TablesCj ActiveDocument.Tables(i).Rows.Countk jDo Until DelS 0 Or k 0 删除表格内容的关键代码部分If InStr(DelIn, k ,) ThenActiveDocument.Tables(i).Rows(k).DeleteDelS DelS - 1End Ifk k - 1LoopNextMsgBox 处理完毕, vbInFormation vbOKOnly, 消息Shell explorer.exe, vbMaximizedFocus本代码仅是删除指定的行如果要删除特别的需要根据要求修改删除表格内容的关键代码部分即可。本代码可以作为模板使用。
