如何从 Word 文档中删除 vbVerticalTab

Question

当我们在 Word 中输入文字时，Shift + Enter 会创建一个新行，这称为换行符。最近，我从网站上复制了一些文本到 Word 中，发现文档中有大量不需要的换行符。手动删除每个换行符会非常耗时。所以我开始研究如何删除它们。即使在网上搜索了，我也没找到答案。最后，我从本页的评论部分找到了答案。https://www.oakleys.org.uk/blog/2017/05/how_to_insert_new_line_line_break_in_microsoft_word_using_vba。

我的目的是删除换行符，而我的具体操作在 VBA 程序中给出，我将发布该程序来回答您自己的问题，以供那些遇到类似情况并希望通过 VBA 实现这一目标的人参考。

Answer 1

您也可以使用“查找和替换”实现相同的功能：

• 按 CTRL+H 打开替换对话框
• 输入^l^l“查找内容”
• 键入^l“替换为”
• 确保未选中“使用通配符”
• 按全部替换

Answer 2

Sub HowtoRemoveLineBreaksFromDocx

    Dim achar As Characters
    Set achar = ActiveDocument.Characters

    Dim i As Integer
    i = 0
    For Each oChar In achar

        If (oChar = vbVerticalTab) Then

            i = i + 1 

            If (i = 2) Then
                oChar.Delete
                i = 0
            End If

       End If

    Next oChar

End Sub