word如何用vba将表格段后均改为0行

cuanju

如图所示，请教下，word如何用vba将表格段后均改为0行，尝试写的代码失效o(╯□╰)o

1. Sub dm1()
   
2.     Dim Tbl As Table
   
3.     For Each Tbl In ActiveDocument.Tables
   
4.         'Tbl.Range.ParagraphFormat.LineUnitAfter = 6 '6行
   
5.         Tbl.Range.ParagraphFormat.LineUnitAfter = 0 '段后设置为0行，但失效
   
6.     Next
   
7. End Sub
   

复制代码

遥控器78

本人不懂VBA，但是会录制，下面是我用别人的VBA加上自己的录制，可以达到楼主的目的。

Sub aaaaa()

Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

MsgBox "文档已保护，此时不能选中多个表格！"

Exit Sub

End If

'删除所有可编辑的区域

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

'添加可编辑区域

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone

Next

'选中所有可编辑区域

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

'删除所有可编辑的区域

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

With Selection.ParagraphFormat
        .LineUnitAfter = 0
        .SpaceAfter = 0
        .LineUnitAfter = 0
        .SpaceAfter = 0
        .DisableLineHeightGrid = 0
        .ReadingOrder = wdReadingOrderLtr
        .AutoAdjustRightIndent = -1
        .WidowControl = -1
        .KeepWithNext = 0
        .KeepTogether = 0
        .PageBreakBefore = 0
        .FarEastLineBreakControl = -1
        .WordWrap = -1
        .HangingPunctuation = -1
        .HalfWidthPunctuationOnTopOfLine = 0
        .AddSpaceBetweenFarEastAndAlpha = -1
        .AddSpaceBetweenFarEastAndDigit = -1
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
End Sub

cuanju

1. Sub 表格段后0行已完善1000000()
   
2.     Dim Tbl As Table
   
3.     For Each Tbl In ActiveDocument.Tables
   
4.         'Tbl.Range.ParagraphFormat.LineUnitAfter = 6 '6行
   
5.         With Tbl.Range
   
6.             .ParagraphFormat.LineUnitAfter = 0 '段后设置为0行，需结合SpaceAfter一起使用
   
7.             .ParagraphFormat.SpaceAfter = 0
   
8.         End With
   
9.     Next
   
10. End Sub

复制代码

已修改完善。^_^

小書生

定位最后一行

413191246se

1. Sub aaaa_0908()
   
2.     With ActiveDocument.Tables(1).Range.ParagraphFormat
   
3.         .LineUnitAfter = 0
   
4.         .SpaceAfter = 0
   
5.     End With
   
6. End Sub

复制代码