用VBA删除表格的空白行

batmanbbs

贴一个我自己以前写的，和 sylun 老师的思路基本一致

413191246se

* sylun 兄：我和你们这些高功夫老师没法比！（现在我务求代码简洁实用。）
* 最近我一直重新折腾 Title1、Date3in1(落款+日期)、Attachments(附件)这些自动排版宏。
* 但由于身体不好（高血压+颈椎病+糖尿病……）、时间有限、水平太低，进展不大。
* 今年元旦也没发布新版，旧版对付着用其实还是可以的。（对 Word VBA 还是热爱的。）

小花鹿

本楼里几位老师水平都很高
哪位WORDVBA高手建个微信群，我们互相交流。                                                              

batmanbbs

小花鹿 发表于 2024-2-6 09:25
本楼里几位老师水平都很高
哪位WORDVBA高手建个微信群，我们互相交流。                                  ...

小鹿老师，高手在群里从来不说话的我想学习都没有机会
PS：我现在小鹿老师的群里，也没有看到聊技术话题的，都是潜水

小花鹿

batmanbbs 发表于 2024-2-6 20:38
小鹿老师，高手在群里从来不说话的我想学习都没有机会
PS：我现在小鹿老师的群里，也没有看到 ...

我那个打印工具QQ群里的人不是研究技术的，多数是为了下载我的奖状打印工具的。

闻启学

小花鹿 发表于 2024-2-6 09:25
本楼里几位老师水平都很高
哪位WORDVBA高手建个微信群，我们互相交流。                                  ...

可以的  word VBA 资料很少的  大家交流一下吧

liuxi001

liuxi001

技术群一般是QQ群，微信死得快。

小花鹿

再来个解法：
Sub DelRow3()
    Dim n&
    With ThisDocument.Tables(1).Range
        n = .Cells.Count
        Do While n > 0
            With .Cells(n).Range
                .Expand wdRow
                n = n - .Cells.Count
                If Replace(.Text, Chr(13) & Chr(7), "") = "" Then
                    .Rows.Delete
                End If
            End With
        Loop
    End With
End Sub

文化属性666

向高手们学习呀