如何批量删除word表格上方的空白行

自行车ZZZ

如题，求大佬给个代码

gwjkkkkk

Sub test()
    Dim objTable As Table
    With ActiveDocument
        For Each objTable In .Tables
            objTable.Select
            With Selection
                .MoveUp unit:=wdLine, Count:=1
                .MoveStartUntil vbCr
                If .Range.Text = "" Then
                    .MoveUp unit:=wdLine, Count:=1
                    .MoveEndUntil vbCr
                    .Collapse 0
                    .EndKey unit:=wdLine, Extend:=wdExtend
                    .Range.Delete
                End If
            End With
        Next
    End With
End Sub

batmanbbs

注：解决未发

自行车ZZZ

gwjkkkkk 发表于 2024-5-9 20:08
Sub test()
    Dim objTable As Table
    With ActiveDocument

非常高效，膜拜大佬，删除空格后有时候会删掉自动编号，但基本不影响使用，追问大佬一句，能否仅在选中的区域内执行呢？

gwjkkkkk

自行车ZZZ 发表于 2024-5-10 16:59
非常高效，膜拜大佬，删除空格后有时候会删掉自动编号，但基本不影响使用，追问大佬一句，能否仅在选中的 ...

Sub test()
    Dim objTable As Table
    With Selection.Range
        For Each objTable In .Tables
            objTable.Select
            With Selection
                .MoveUp unit:=wdLine, Count:=1
                .MoveStartUntil vbCr
                If .Range.Text = "" Then
                    .MoveUp unit:=wdLine, Count:=1
                    .MoveEndUntil vbCr
                    .Collapse 0
                    .EndKey unit:=wdLine, Extend:=wdExtend
                    .Range.Delete
                End If
            End With
        Next
    End With
End Sub

wdpfox

自行车ZZZ 发表于 2024-5-10 16:59
非常高效，膜拜大佬，删除空格后有时候会删掉自动编号，但基本不影响使用，追问大佬一句，能否仅在选中的 ...

好像代码需要完善，楼主运行两次看看结果如何？好像 moveup 语句运行结果，会随表格左边界缩进的位置变化而不同，请楼主和 gwjkkkkk  老师再测试一下，我没有实测，以实验为准。

自行车ZZZ

wdpfox 发表于 2024-5-10 21:34
好像代码需要完善，楼主运行两次看看结果如何？好像 moveup 语句运行结果，会随表格左边界缩进的位置变 ...

确实，会导致表格前行距变为了单倍

自行车ZZZ

batmanbbs 发表于 2024-5-9 23:47

大佬，我为什么运行不了呢，    myRng.Delete  错误提示无法编辑range.

wdpfox

自行车ZZZ 发表于 2024-5-11 14:44
确实，会导致表格前行距变为了单倍

上午测试了一下，代码对你的文本没有问题。如果空行中有多个中英文空格，就需要修改代码了。