[分享]空白段落的删除问题

1261181315a

谢谢楼主分享

13907933959

前辈您好！我是一个新人，特来向您请教，怎样才能把WORD文档中未设置标题格式的很多不同的副标题一次性批量替换字体或颜色（文档中的小标题、副标题只是采用了简单的另起一行的方式，小标题、副标题也不是居中格式，标题前也没有什么固定的序号，各个标题的内容、长短也不样），象这样的问题我经常碰到，也困扰了我很长时间，望能得到您的解答，在下将万分感谢！盼望前辈的回复。谢谢！

weiyingde

shewoyu 发表于 2006-7-22 12:01
QUOTE:以下是引用守柔在2003-10-26 7:31:00的发言：Sub blankdel()For Each i In ActiveDocument.Paragraph ...

加一句可以：
Sub blankdel()
ActiveDocument.Content.Find.Execute "^11", , , 1, , , , , , "^p", 2
For Each i In ActiveDocument.Paragraphs
a = i.Range.End
b = i.Range.Start
If a - b = 1 Then
i.Range.Delete
m = m + 1
End If
Next i
MsgBox "共删除空白段落" & m & "个"

随风伴影

如果这个页面有一张图片，图片是置于上层的会被删掉

weiyingde

守柔 发表于 2003-10-15 16:12
经过多次试验，简化了一些代码，对于长文档和多段落，可以加提高25%的运行速度，对于1000个段落以上的文档 ...

学习了，也献丑一个。
Sub 删除空行()
    Dim par As Paragraph
    For Each par In ActiveDocument.Paragraphs
        If Len(par.Range) = 1 Then par.Range.Delete
    Next
End Sub

abigailluck

提示 end if 没有if块，是什么意思啊？

zhoujieses

weiyingde 发表于 2020-1-19 11:36
学习了，也献丑一个。
Sub 删除空行()
    Dim par As Paragraph

和守版后面提供的代码一样

413191246se

空白段落，也叫空白行，空行，看着空白，也许包含着一般所说的——半角空格/全角空格/不间断空格/制表符，这四种常规可见的空格；如果还包含不可见空格，就不好说了！这还是纯文本状态下，表格中的空格的删除另说。
* 下面我提供一下纯文本（无表格）中空白段落（空白行/空行）的删除代码：

1. Sub 删除空行_纯文本()
   
2.     Dim i As Paragraph
   
3.     With ActiveDocument
   
4.         '真假回车符/手动换行符=>段落标记
   
5.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
6.         '全选
   
7.         .Select
   
8.         '居中/两端对齐=>删除段落首尾空格(半角空格/全角空格/不间断空格/制表符)
   
9.         CommandBars.FindControl(ID:=122).Execute
   
10.         CommandBars.FindControl(ID:=123).Execute
    
11.         '删除空行(循环遍历所有段落)
    
12.         For Each i In .Paragraphs
    
13.             If Asc(i.Range) = 13 Then i.Range.Delete
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

心随湘动

我不懂VB，从您发表的帖子来看，应是个高手。 特地向守柔请教，怎样学VB？应该有什么基础？

梅州

谢谢分享，太强大了。