如何删除word中含有某字符(例如:A)的那一行文字
发布网友
发布时间：2022-04-25 11:53
共3个回答
热心网友
时间：2022-06-23 10:48
一次删除n个空行
我们在网上下载资料．用word整理归档井打印的时候，常发现文档里有非常多的空白行，直接打印既影响阅读，又浪费纸张，一个个删除十分麻烦，那么如何次删除多个空白段落昵？下面我们就来编写一个功能小模块，并把已做成一个菜单为你解决问题
1.点击“工具--宏--宏”(
或按下快捷键alt
+
f8
)打开“宏”对话框，在“宏名”下面一栏输人“delblank”，点击“创建”按钮。
2.打开。visual
basic
编辑器后，在右侧代码窗口的sub
delblank()
和end
sub
之间输入下面一段代码。
dim
i
as
paragraph,
n
as
long
application.screenupdating
=
false
for
each
i
in
activedocument.paragraphs
if
len(i.range)
=
1
then
i.range.delete
n
=
n
+
1
end
if
next
msgbox
"共删除空白段落"
&
n
&
"个!"
application.screenupdating
=
true
点击“文件一保存normal保存当前的代码，然后关闭visual
basic
编辑器。
将这个宏命令添加到word
菜单中。在菜单栏上点右键，在弹出的右键菜单中点击“自定义”，选择“命令”选项，在左侧“类别”列表框中找到“宏”，在右侧“命令”列表框中把“
normal.newmacros.delblank
”拖拽到“工具”菜单栏上。在命令上点击右键，将这个菜单重命名为“删除空行(
&
d
)
”。到此．这个可以一次删除n
个空行的菜单就制作成功了
。打开认访word
文档，选择“工具—删除空行”，（或按下快捷键“
ctrl
+
d
”）就可以删除空行，最后向你报告删除的结果还等什么，大家决去体验一卜它的便利吧。
热心网友
时间：2022-06-23 10:49
查找功能，定位以后，自己去删除。
热心网友
时间：2022-06-23 10:49
前人有答参考
http://zhidao.baidu.com/question/66958819.html
