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输入法,我们会看到如下图的输入法图标。 使用鼠标左键点击上图中的最右边的那符号,会弹出软键盘的界面。 之后,在使用鼠标右键点击上图中最右边的那符号,会弹出如下图的菜单,选择“数学符号”。 最后,我们会发现,西格码符号∑就在软键盘里面了,