首页 > 其他分享 >删除连续的空行

删除连续的空行

时间:2024-06-03 17:10:48浏览次数:13  
标签:空行 Paragraph 删除 idx paraCount Replace ActiveDocument 连续 Paragraphs

Sub DeleteConsecutiveEmptyParagraphs()
    paraCount = ActiveDocument.Paragraphs.Count
    idx = 2
    Do While idx < paraCount
        forward_Paragraph = Replace(Replace(ActiveDocument.Paragraphs(idx - 1).Range.Text, " ", ""), vbTab, "")
        now_Paragraph = Replace(Replace(ActiveDocument.Paragraphs(idx).Range.Text, " ", ""), vbTab, "")
        
        
        ' 这里可以判断长度是否为1或者通过replace函数删除段落符号(vbCr)(replace(text,vbCr,""))然后判断长度为0来实现。
        If Len(now_Paragraph) = 1 And Len(forward_Paragraph) = 1 Then
            ActiveDocument.Paragraphs(idx).Range.Delete
        Else
            idx = idx + 1
        End If
        paraCount = ActiveDocument.Paragraphs.Count
    Loop
End Sub

 

标签:空行,Paragraph,删除,idx,paraCount,Replace,ActiveDocument,连续,Paragraphs
From: https://www.cnblogs.com/love-DanDan/p/18229265

相关文章

  • 自动清空/删除 OneDrive(商业版)回收站
    自从2024年2月Microsoft将edu云盘收缩到100G后,总是提示空间不足(其实是回收站占了很大的空间),故利用Microsoft的PowerAutomate自动任务来定时清空回收站PowerAutomate自动化流脚本下载地址:https://files.cnblogs.com/files/waw/EmptyMyOneDriveRecycleBinPeriodically_2023011405......
  • 大数量情况下如何快速从会员登录数据中筛选出5天内连续3天登录的会员
    库表user_login_log表中核心字段:user_id、login_date处理方式:1、大数据处理【数据人员】:通常情况下会把user_login_log表同步到大数据平台,又由数据同事进行处理“5天内连续3天登录的会员”数据,再由大数据平台同步到业务库表。2、定时任务轮训【服务端人员】:轮......
  • 代码随想录算法训练营第二十二天 | 235.二叉搜索树的最近公共祖先 701.二叉搜索树中的
    235.二叉搜索树的最近公共祖先题目链接文章讲解视频讲解思路:递归遍历二叉搜索树   如果当前值大于p和q的值,向左遍历   如果当前值小于p和q的值,向右遍历   否则说明当前值介于p和q之间,直接返回当前节点classSolution{public:TreeNode*lowestCommonAnc......
  • CentOS 7基础操作07_Linux复制、删除、移动目录和文件
    1、cp——复制(Copy)文件或目录        cp命令用于复制文件或目录,将需要复制的文件或目录(源)重建一份并保存为新的文件或目录(可保存到其他目录中)。cp命令的基本使用格式如下:cp[选项]...源文件或目录...目标文件或目录        需要复制多个文......
  • 程序分享--常见算法/编程面试题:删除有序数组中的重复项 II
    关注我,持续分享逻辑思维&管理思维&面试题;可提供大厂面试辅导、及定制化求职/在职/管理/架构辅导;有意找工作的同学,请参考博主的原创:《面试官心得--面试前应该如何准备》,《面试官心得--面试时如何进行自我介绍》, 《做好面试准备,迎接2024金三银四》。或关注博主免费专栏【程序......
  • Day 10:100322. 删除星号以后字典序最小的字符串
    Leetcode100322.删除星号以后字典序最小的字符串给你一个字符串s。它可能包含任意数量的‘’字符。你的任务是删除所有的'’字符。当字符串还存在至少一个‘*’字符时,你可以执行以下操作:删除最左边的‘*’字符,同时删除该星号字符左边一个字典序最小的字符......
  • 使用Python连接到SQLite3数据库进行数据更新和删除
    SQLite3是一种轻量级的嵌入式关系型数据库管理系统,广泛应用于移动应用、嵌入式设备以及小型Web应用等场景。Python内置了对SQLite3数据库的支持,通过sqlite3模块,可以方便地连接、操作SQLite3数据库。在本文中,我们将学习如何使用Python连接到SQLite3数据库,并进行数据更新和删......
  • 使用动态规划法求最大连续子序列和
    通过动态规划方法求最大连续子序列和问题描述:给定一个有n(n>=1)个整数的序列,求出其中最大连续子序列的和。如:{-2,11,-4,13,-5,-2},最大的连续子序列是:{11,-4,13}和为20。【规定】一个序列的最大连续子序列和至少是0,如果小于0,其结果为0。解法:使用一个整型数组arr[]来存......
  • Day 11 | 20. 有效的括号 、1047. 删除字符串中的所有相邻重复项 、150. 逆波兰表达式
    20.有效的括号讲完了栈实现队列,队列实现栈,接下来就是栈的经典应用了。大家先自己思考一下有哪些不匹配的场景,在看视频我讲的都有哪些场景,落实到代码其实就容易很多了。题目链接/文章讲解/视频讲解:https://programmercarl.com/0020.有效的括号.html思考classSolution:......
  • 1-006 连续因子(分数 20,c++)
    一个正整数 N 的因子中可能存在若干连续的数字。例如630可以分解为3×5×6×7,其中5、6、7就是3个连续的数字。给定任一正整数 N,要求编写程序求出最长连续因子的个数,并输出最小的连续因子序列。输入格式:输入在一行中给出一个正整数 N(1<N<231)。输出格式:首先在第1......