【适用于WPS】表格行距调整为最小值

Sub 设置表格行距为最小值_WPS兼容()
    ' 适用于 WPS 和 Microsoft Word 的表格行距宏
    ' 在WPS中，使用数值 4 代替 Word 的 wdLineSpacingAtLeast
    
    Dim tbl As Object ' 使用 Object 增强兼容性
    Dim rngParagraph As Object ' 使用 Object 增强兼容性
    
    ' 检查当前文档中是否有表格
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "当前文档中没有表格。", vbInformation
        Exit Sub
    End If

    ' 遍历文档中的每一个表格
    For Each tbl In ActiveDocument.Tables
        ' 遍历表格中所有单元格的段落
        For Each rngParagraph In tbl.Range.Paragraphs
            ' 确保段落范围有效
            If Not rngParagraph Is Nothing Then
                ' 1. 设置行距类型为“最小值”（对应数值 4）
                '    wdLineSpacingAtLeast = 4
                rngParagraph.LineSpacingRule = 4
                
                ' 2. 设置段前和段后间距为 0，进一步紧凑行高
                rngParagraph.SpaceBefore = 0
                rngParagraph.SpaceAfter = 0
            End If
        Next rngParagraph
    Next tbl
    
    MsgBox "已成功将文档中所有表格的行距设置为“最小值”并清除段落间距。", vbInformation
    
End Sub