从指定段落向上删除空白段落的代码

ke3088 · 发表于 2021-10-29 09:07

想从指定段落的开始处，如：ActiveDocument.Range(ActiveDocument.Paragraphs(85).Range.Start, _
ActiveDocument.Paragraphs(85).Range. Start).Selec，向上删除空白段落，直到有字符的段落时就停止。
向您求教，这代码如何写，谢谢！

daibao88 · 发表于 2021-10-29 15:46

for 循环倒序，加上判断

ke3088 · 发表于 2021-10-29 18:20

daibao88 发表于 2021-10-29 15:46
for 循环倒序，加上判断

谢谢，有实例吗？

413191246se · 发表于 2021-10-29 19:17

Sub aaaa_delete_empty_para()
Dim i&
i = 85
ActiveDocument.Content.Find.Execute "^l", , , 0, , , , , , "^p", 2
ActiveDocument.Range(ActiveDocument.Paragraphs(i).Range.Start, _
ActiveDocument.Paragraphs(i).Range.Start).Select
With Selection
Do
.MoveStart 4, -1
CommandBars.FindControl(ID:=122).Execute
CommandBars.FindControl(ID:=123).Execute
With .Paragraphs(1).Range
If Asc(.Text) = 13 Then .Delete Else Exit Do
End With
Loop
End With
MsgBox "OK!", 0 + 48
End Sub

复制代码

ke3088 · 发表于 2021-10-29 22:10

413191246se兄，谢谢您！成了。
麻烦您解释：
ActiveDocument.Content.Find.Execute "^l", , , 0, , , , , , "^p", 2
是什么意思？谢谢

413191246se · 发表于 2021-10-29 23:10

ke3088兄，你好！——上面的代码中“^l”是“手动换行符”（直回车符），“^p”是“段落标记”（弯回车符），意思是，将全文的手动换行符全部替换为段落标记（Word 以段落标记作为每个段落的结束符），只有如此，Word 文档才能每个自然段是一个段落；否则，很可能整个文档只有一个段落。通俗地讲，就是要将全文分段才好让 VBA 处理段落。

ke3088 · 发表于 2021-10-30 19:47

413191246se兄，再次感谢！

一生平安4017 · 发表于 2024-5-11 23:29

413191246se 发表于 2021-10-29 19:17

word文档存在图片上方标题文字连在一起，之间没有段落标记，造成图片都是标题格式，还存在有段落标记，图片也是标题格式，还存在标题是空白情况。
请大神帮忙写VBA代码，谢谢：

1、遍历在图片和文字之间增加一个回车符。
2、遍历将图片格式改为正文。
3、删除所有空白行，就是行无内容，只有段落标记或者手动换行符的。

一生平安4017 · 发表于 2024-5-12 17:21

413191246se 发表于 2021-10-29 19:17

真是高手，怎么才会学会VBA啊？

		自动登录	找回密码
密码			免费注册

[求助] 从指定段落向上删除空白段落的代码

浏览过的版块