本文作者:office教程网

Word删除空白段落的宏代码

office教程网 2024-06-05 21:35:26
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要: 通过如下的宏代码,您就可以在WORD中删除空白的段落。
Sub DelBlank()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False ’关闭屏幕刷新
For Each i In ActiveDocument.Paragraph...

通过如下的宏代码,您就可以在WORD中删除空白的段落。

Sub DelBlank()

Dim i As Paragraph, n As Long

Application.ScreenUpdating = False ’关闭屏幕刷新

For Each i In ActiveDocument.Paragraphs ’在活动文档的段落集合中循环

If Len(i.Range) = 1 Then ’判断段落长段,此处可根据文档实际情况

如何解决word插入索引和目录"错误!未找到图形项目表"的问题

如何解决word插入索引和目录

i.Range.Delete ’进行必要的修改可将任意长度段落删除

n = n 1 ’计数

End If

Next

MsgBox "共删除空白段落" & n & "个!"

Application.ScreenUpdating = True ’恢复屏幕刷新

End Sub

Word西格码符号∑的录入

Word西格码符号∑的录入 一、菜单插入法 在文档中,通过操作如下菜单“插入”→“特殊符号”。 会弹出如下图的对话框。 切换到“数学符号”选项卡,就可以找到西格码符号∑了,选中该符号并点击“确定”按钮即可插入。 二、软键盘输入方法 将输入法切换到智能ABC输入法,我们会看到如下图的输入法图标。 使用鼠标左键点击上图中的最右边的那符号,会弹出软键盘的界面。 之后,在使用鼠标右键点击上图中最右边的那符号,会弹出如下图的菜单,选择“数学符号”。 最后,我们会发现,西格码符号∑就在软键盘里面了,

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:Word删除空白段落的宏代码发布于2024-06-05 21:35:26
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: