wordvba设置表格行间距

xzh_yzcn

各位老师：
手工进行段落设置，行间距可以设为最小值，磅值可以为0，但通过vba设置时但出错，提示“度量值介于0.7磅至1584磅之间”，即行间距磅值不可为0.
With wrdApp.Selection.ParagraphFormat
    .LeftIndent = CentimetersToPoints(0)
    .RightIndent = CentimetersToPoints(0)
    .SpaceBefore = 0
    .SpaceBeforeAuto = False
    .SpaceAfter = 0
    .SpaceAfterAuto = False
    .LineSpacingRule = wdLineSpaceAtLeast
    .LineSpacing = 0      ‘执行到此处时，出错显示“度量值介于0.7磅至1584磅之间”  而手工设置可以将最小值设为0值，达到希望版式
    .WidowControl = False
    .KeepWithNext = False
    .KeepTogether = False
    .PageBreakBefore = False
    .NoLineNumber = False
    .Hyphenation = True
    .OutlineLevel = wdOutlineLevelBodyText
    .CharacterUnitLeftIndent = 0
    .CharacterUnitRightIndent = 0
    .LineUnitBefore = 0
    .LineUnitAfter = 0
    .MirrorIndents = False
    .TextboxTightWrap = wdTightNone
    .FarEastLineBreakControl = True
    .WordWrap = True
    .HangingPunctuation = True
    .HalfWidthPunctuationOnTopOfLine = False
    .AddSpaceBetweenFarEastAndAlpha = True
    .AddSpaceBetweenFarEastAndDigit = True
    .BaselineAlignment = wdBaselineAlignAuto
End With
请老师指点。如何解决此问题

我想通过vba来设置，如何可以将行间距设置为最小值且磅值为0 ，以达到希望的版式

调整word文档表格行高.zip (40.64 KB, 下载次数: 10)

2017-9-23 08:22 上传

点击文件名下载附件

duquancai

Sub wordvba()
    If ActiveDocument.Tables.Count < 1 Then Exit Sub
    For Each tb In ActiveDocument.Tables
        With tb
            .Rows.HeightRule = 0
            .Rows.Height = 0
            .Range.ParagraphFormat.Space1
            .Range.ParagraphFormat.DisableLineHeightGrid = True
        End With
    Next
End Sub

xzh_yzcn

duquancai 发表于 2017-9-23 17:18
Sub wordvba()
    If ActiveDocument.Tables.Count < 1 Then Exit Sub
    For Each tb In ActiveDocume ...

谢谢duquanca老师，我将学习消化你的代码。

xzh_yzcn

duquancai老师的现码成功实现word文档中表格的行高，谢谢duquancai老师的指点