VBA删除word中的表中的空白行

fuguitop · 发表于 2011-1-8 00:32

有很多word文件

里面有一些表

表中有一些空白行

如何用vba判断并删除这些空行？

谢谢！

钢铁行业产品产量.rar (8.81 KB, 下载次数: 127)

fuguitop · 发表于 2011-1-9 01:35

继续求助

[ 本帖最后由 fuguitop 于 2011-1-9 11:42 编辑 ]

tangqingfu · 发表于 2011-1-13 07:39

谢谢舒兄的分享，测试通过，收藏学习！

sqhsqhli · 发表于 2011-1-12 20:37

Sub 删除表格空行()
On Error Resume Next
Dim myTable As Table
Dim ttt As String
Dim myrow As Row
Dim myCell As Cell
Dim i As Long
ttt = ""
For Each myTable In ActiveDocument.Tables
For Each myrow In myTable.Range.Rows
For Each myCell In myrow.Cells
  ttt = ttt & Trim(myCell.Range)
  Next
If Len(Trim(ttt)) < (myTable.Range.Columns.Count * 2 + 1) Then
myrow.Range.Select
Selection.Rows.Delete
   End If
ttt = ""
Next
Next
End Sub

[ 本帖最后由 sqhsqhli 于 2011-1-12 21:22 编辑 ]

fuguitop · 发表于 2011-1-16 11:33

大赞

谢谢sqhsqhli

我好好研究研究

fuguitop · 发表于 2011-1-16 13:09

sqhsqhli

我水平太次了有些地方看不明白

你能帮忙解释一下么

尤其是Len(Trim(ttt)) < (myTable.Range.Columns.Count * 2 + 1)

sqhsqhli · 发表于 2011-1-16 14:35

原帖由 fuguitop 于 2011-1-16 13:09 发表
sqhsqhli

我水平太次了有些地方看不明白

你能帮忙解释一下么

尤其是Len(Trim(ttt)) < (myTable.Range.Columns.Count * 2 + 1)

每个空单元格占2个字符，一行中的空单元格字符数之和应=列数的两倍。

[ 本帖最后由 sqhsqhli 于 2011-1-17 10:16 编辑 ]

dehongma · 发表于 2011-1-19 08:45

大赞

谢谢sqhsqhli

我好好研究研究

webcpa · 发表于 2013-8-29 13:22

谢谢，我也正好用上

万木青 · 发表于 2016-11-9 14:02

sqhsqhli 发表于 2011-1-12 20:37
Sub 删除表格空行()
On Error Resume Next
Dim myTable As Table

你好，前辈。以上是删掉表格，如果是删掉段落中的空白行，需要使用什么对象？

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

[求助] VBA删除word中的表中的空白行

试试