批量删除单无格空行

ming0018

413191246se 发表于 2018-5-22 02:12
* 杜先生 提出了表格中套表格的更难状况，我无以应对，只能处理一些简单、规则的表格了；
* 杜先生 说的其 ...

我想过用回调，正在努力测试！

ming0018

1. Sub 删除表格空行()
   
2.     Dim myDoc As Document
   
3.     Dim myTable As Table
   
4.     Dim myCell As Cell
   
5.     Dim myCellRng As Range
   
6.     Dim myPar As Paragraph
   
7.     Dim Rng As Range
   
8.     On Error Resume Next
   
9.    
   
10.     Set myDoc = ActiveDocument
    
11.     For Each myTable In myDoc.Tables
    
12.         For Each myCell In myTable.Range.Cells
    
13.             For Each myPar In myCell.Range.Paragraphs
    
14.                 If Asc(myPar.Range) = 13 And Len(myPar.Range) = 1 Then myPar.Range.Delete
    
15.             Next
    
16.             For Each myPar In myCell.Range.Paragraphs
    
17.                 If Asc(myPar.Range.Characters.Last.Next) = 13 Then
    
18.                     myPar.Range.Characters.Last.Delete
    
19.                 End If
    
20.             Next
    
21.             With myCell.Range.Paragraphs
    
22.                 If .Count > 1 And Len(.Last.Range) = 2 Then
    
23.                     .Last.Previous.Range.Characters.Last.Delete
    
24.                 End If
    
25.             End With
    
26.         Next
    
27.     Next
    
28. End Sub

复制代码

调不到表中的表，只好用最笨的办法，等大神改进。

duquancai

ming0018 发表于 2018-5-22 09:42
调不到表中的表，只好用最笨的办法，等大神改进。

提示:用递归或者 用栈结构     进行遍历。

ming0018

duquancai 发表于 2018-5-22 11:41
提示:用递归或者 用栈结构     进行遍历。

我想到递归了，不断调自己。

天空飘过啥

413191246se 发表于 2018-5-22 02:12
* 杜先生 提出了表格中套表格的更难状况，我无以应对，只能处理一些简单、规则的表格了；
* 杜先生 说的其 ...

加油，继续提高自己技术，你可以的

天空飘过啥

duquancai 发表于 2018-5-22 11:41
提示:用递归或者 用栈结构     进行遍历。

很高兴，老师回来了

天空飘过啥

ming0018 发表于 2018-5-22 09:42
调不到表中的表，只好用最笨的办法，等大神改进。

还是左对齐没达到要求！

加油

谢谢了

ming0018

天空飘过啥 发表于 2018-5-22 12:35
还是左对齐没达到要求！

加油

没发现有问题

天空飘过啥

ming0018 发表于 2018-5-22 14:03
没发现有问题

28楼的测试环境下能解决删除空行并且不改变对齐式，
我自己也在测试了14楼，20楼，22楼的代码，在2003版本下对齐方式被改变了，
在2007、2010、2016下能正常使用

谢谢你们的热情帮助，也希望有老师能在2003下解决此问题。

ming0018

天空飘过啥 发表于 2018-5-22 19:34
28楼的测试环境下能解决删除空行并且不改变对齐式，
我自己也在测试了14楼，20楼，22楼的代码，在2003版 ...

不用客气，我没有03的环境，我的是13的环境。所以只能帮到这。