文章/答案/技术大牛

发布

社区首页 >问答首页 >如何在VBA中添加段落第一行前的间距？

问如何在VBA中添加段落第一行前的间距？
EN

Stack Overflow用户

提问于 2019-09-25 18:43:20

回答 2查看 794关注 0票数 0

我试图在word文档中自动生成的一个段落前添加间距。我只需要在该特定段落的第一行之前留出空格。问题在第一个空行之后的下一行。

With Wapp
    With .Selection
        .TypeParagraph
        'Add line spacing
        .ParagraphFormat.SpaceBefore = 0
        .ParagraphFormat.SpaceAfter = 0
        .TypeText St1
        .TypeParagraph

        .ParagraphFormat.SpaceBefore = 36
        .BoldRun
        'Centers text
        .ParagraphFormat.Alignment = 1
        .TypeText St2
        .BoldRun
        .ParagraphFormat.SpaceBefore = 0

        .TypeText VBA.vbNewLine
        .TypeText St3
        .TypeText VBA.vbNewLine
        .ParagraphFormat.Alignment = 1
    End With
End With

spacing

paragraph

vba

ms-word

Stack Overflow用户

回答已采纳

发布于 2019-09-25 19:52:23

交换了两行代码

.TypeText VBA.vbNewLine

和

.ParagraphFormat.SpaceBefore = 0

似乎将.ParagraphFormat放在.TypeParagraph或VBA.vbNewLine之后很重要，然后它就开始像我想要的那样工作了。

With Wapp
    With .Selection
        .TypeParagraph
        'Add line spacing
        .ParagraphFormat.SpaceBefore = 0
        .ParagraphFormat.SpaceAfter = 0
        .TypeText St1
        .TypeParagraph
        'Starts spacing
        .ParagraphFormat.SpaceBefore = 6
        .BoldRun
        'Centers text
        .ParagraphFormat.Alignment = 1
        .TypeText St2
        .BoldRun
        .TypeText VBA.vbNewLine
        'Ends spacing
        .ParagraphFormat.SpaceBefore = 0
        .TypeText St3
        .TypeText VBA.vbNewLine
        .ParagraphFormat.Alignment = 1
    End With
End With

票数 1

查看全部 2 条回答

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/58096604

复制

相似问题

问如何在VBA中添加段落第一行前的间距？
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在VBA中添加段落第一行前的间距？EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在VBA中添加段落第一行前的间距？
EN