VBA WORD：删除SHIFT-ENTER行

Question

从ppt复制后，通常会得到如下所示的行：

This is a line
and then another line
and then another
and so forth. New lines created 
via SHIFT-ENTER.

我需要它说：

  

这是一条线       然后是另一条线       然后另一个       等等。新线创建       通过SHIFT-ENTER。

只需按ENTER键创建的新行应保留为新行。

Answer 1

Shift + 输入只不过是^l

这是 Shift + Enter 的样子

因此，您可以手动替换它或使用以下VBA代码。

非VBA方式

1. 按Ctrl + H打开“替换”对话框。
2. 在“查找内容”框中，键入^l。
3. 在“替换为”框中，键入" "（不带引号的空格）。
4. 点击全部替换。

VBA Way

将其粘贴到模块中

Sub Sample()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 2

我维护的PPT常见问题解答中的这个页面解释了PPT用于换行符和段落结尾的字符。它在版本和形状类型方面有所不同。

段落结尾和换行符 http://www.pptfaq.com/FAQ00992_Paragraph_endings_and_line_breaks.htm