如何批量删除WORD表格下的空行

猪猪勿语

请教如何批量删除WORD表格下那行的  空段落

具体请见附件

谢谢
REFERENCE                            DESIGNATION
Material No: 19-010                         LOCKWIRE STAINLESS STEEL ANNEALED 0.8MM DIA
空行
C. Work Zones and Access Panels

chinjingo

看看，行不行

猪猪勿语

谢谢:)

看了这样子不行 这样替换的话   就把所有的 回车都给换掉了

前面 文本部分
1. Reason for the Job Self explanatory2. Job Set-up Information A. Fixtures, Tools, Test and Support Equipment
就连一起了

honggexjq

你没有说清楚
如果空行后面接的都是这样的编号可以用查找替换解决
查找：^13([B-Z].)
替换：\1
勾选通配符

如果不是可以试试下面的代码：

1. Sub test()
   
2. Dim i%
   
3. If ThisDocument.Tables.Count = 0 Then Exit Sub
   
4. Application.ScreenUpdating = False
   
5. For i = 1 To ThisDocument.Tables.Count
   
6.     Tables(i).Range.Select
   
7.     With Selection
   
8.         .Collapse wdCollapseEnd
   
9.         .Expand wdParagraph
   
10.         If Not .Range.Text Like "*[! " & Chr(13) & "]*" Then .Range.Delete
    
11.     End With
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

[ 本帖最后由 honggexjq 于 2011-2-6 22:05 编辑 ]

sqhsqhli

原帖由 honggexjq 于 2011-2-6 22:02 发表
你没有说清楚
如果空行后面接的都是这样的编号可以用查找替换解决
查找：^13(.)
替换：\1
勾选通配符

如果不是可以试试下面的代码：Sub test()
Dim i%
If ThisDocument.Tables.Count = 0 Then Exit Sub
Ap ...

还可以这样写啊？"*[! " & Chr(13) & "]*"
方括号加上引号以后，是不是不能认作通配符了，将当成查找内容了？另外请教 With Selection
        .Collapse wdCollapseEnd
        .Expand wdParagraph
两句的含义，我总是不能很好理解，请多举一些例子，谢谢

[ 本帖最后由 sqhsqhli 于 2011-2-7 23:09 编辑 ]

shgmp

honggexjq 发表于 2011-2-6 22:02
你没有说清楚
如果空行后面接的都是这样的编号可以用查找替换解决
查找：^13(.)

http://club.excelhome.net/thread-1062730-1-1.html
老大，是否请看看这个问题，如何解决，谢谢

lds114

我想问 如果表格与正文之间的空行怎么全部删除，表格中的空行要保留。

Name	Activity Name	Role	Role Name
Description	Description of this Activity.
Input	·         Input 1·         Input 2
Output	·         Output 1·         Output 2

空行

1.2 Activity Title

得到

Name	Activity Name	Role	Role Name
Description	Description of this Activity.
Input	·         Input 1·         Input 2
Output	·         Output 1·         Output 2

1.2 Activity Title

后面全部表格与正文都这样

413191246se

楼上，执行“删除空行”宏啊！