主页 / computer / 问题 / 1643288
Accepted
wordexperto.com
Asked: 2021-04-21 09:01:47 +0800 CST

使用 vba 插入样式分隔符时删除空格

  • 772

大家好，对不起我的英语：我有这个添加样式分隔符的宏，它工作正常，除了它在段落前面添加了一个空格。我如何修改宏以使其不添加它，或者如果它确实添加了它，它稍后会删除它？

Sub SeparadordeEstilos()
 With Selection
            .InsertBefore vbCr
            .InsertStyleSeparator
            .Paragraphs(1).Range.Font.Reset
            .Paragraphs(1).Style = ("PLL Nivel 2 notdc")
End With
End Sub

编辑：

也非常感谢你，Charles，我很抱歉没有解释所有细节。我需要在大纲多级列表中具有相同编号的两种类型的段落。一些具有粗体字体样式并出现在目录中，而另一些则具有未出现在 TOC 中的普通字体。因此，我创建了两种样式，带粗体的PLL Nivel 2出现在 TOC 和PLL Nivel 2 notdc中，没有粗体，没有出现在 TOC 中，在执行我描述的宏时自动应用样式分隔符问题。这是我发现的唯一解决方案，特别是因为连续编号的要求。

除了空白之外，一切正常。这个空白在文档中很糟糕，它没有给人一种专业的感觉，相反，它给人一种邋遢的感觉。

因此我需要一个替代方案或能够删除空白。

截屏

这是一个有问题的示例文档。我认为连续编号可以正常工作，因为我在启用全部显示的情况下看到它，但是如果我将其关闭（全部显示），它也不起作用并设置不同的编号。

编辑 2

显示新图片

microsoft-word vba

2 个回答

  1. vbCr是一条新线。这行代码.InsertBefore vbCr在您的样式之前插入一个新行。删除它以避免段落前有空格。

    • 0
  2. Best Answer

    你想要一些空间，就像你的两个段落之间的空格字符一样！

    您的代码在段落末尾、段落标记之前运行时，会添加一个样式分隔符和一个空格，该空格是新样式。

    当这一行.insertBefore vbCr被省略时，如Reddy所建议的那样，并且它在段落的末尾运行，它会添加样式分隔符和一个空格，删除当前段落标记并以新样式显示下一个段落，使其看起来像使用两种段落样式的单个段落。

    可能需要空间来应用样式。在第二种情况下，确实有必要将第一段的文本与第二段的文本分开。

    你真的想消除那个空间吗？

    这是修改后的宏：

    Sub InsertStyleSeparator()
' Use at end of paragraph just before paragraph mark.
    With Selection
        '            .InsertBefore vbCr
        .InsertStyleSeparator
        .Paragraphs(1).range.Font.Reset
        .Paragraphs(1).Style = ("PLL Nivel 2 notdc")
    End With
End Sub

    请注意我添加的评论：在段落末尾使用它，而不是在开头。

    这是您的示例文档，带有宏。

    与样式分隔符一起使用时，添加到段落中的部分没有自己的编号。从视觉上看，它作为段落的一部分，由样式分隔符将其分开。

    • 0

相关问题