主页 / computer / 问题 / 1644599
Accepted
Rayearth
Asked: 2021-04-27 00:45:15 +0800 CST

使用宏摆脱 MS Word 中的前导/尾随空格

  • 772

MS Word 中有一个很好的功能，当您选择整个文本并将其居中时，它可以消除整个文档中的前导和尾随空格，然后返回到所需的对齐方式。

所以这(space)(space)(space)text text text(space)(space)应该导致text text text

当我通过单击 Word 中快速访问工具栏或功能区上的中心图标手动执行此操作时，它反复为我工作。但是每当我使用下面的代码通过宏自动管理它时，这个解决方案对我不起作用。那些不受欢迎的空间仍然存在。

Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'after this, there should be no leading/trailing spaces anymore
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

你以前有过这种经历吗？你能复制这样的结果吗？

microsoft-word space

1 个回答

  1. Best Answer

    检查此宏是否适合您。它的一个负面后果是，如果您希望句子之间有两个空格，它将消除它们。但是，如果您的文档通常只在句子之间使用一个空格，那么宏应该适合您。

    Sub elimBlankSpaces()
    Dim rng As Word.Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = " {2,}" 'look for 2 or more
        .Replacement.Text = "" 'replace with none
        .Forward = True
        .Wrap = Word.WdFindWrap.wdFindStop
        .Format = False
        .MatchWildcards = True
    End With
    rng.Find.Execute Replace:=Word.WdReplace.wdReplaceAll
    rng.Find.ClearFormatting
    rng.Find.Replacement.ClearFormatting
End Sub
    • 1

相关问题