【Paper Tips】随记2-word版快速删除某字符

写paper时随心记录一些对自己有用的skills与tips。

文章目录

• 一、待解决问题
• • [1.1 问题描述](#1.1 问题描述)
  • [1.2 解决方法](#1.2 解决方法)
• 二、方法详述
• • [2.1 必要说明](#2.1 必要说明)
  • [2.2 应用步骤](#2.2 应用步骤)
  • • [2.2.1 Ctrl+H一键全文替换](#2.2.1 Ctrl+H一键全文替换)
    • [2.2.2 录制宏](#2.2.2 录制宏)
• 三、疑问
• 四、总结

---

一、待解决问题

1.1 问题描述

word中粘贴部分文字时，格式不对时，总是容易出现多余的"空格"或"回车"等符号，一个一个去改很消耗时间。

1.2 解决方法

（1）Ctrl+H一键全文替换。

（2）录制宏。

二、方法详述

2.1 必要说明

暂无。

2.2 应用步骤

2.2.1 Ctrl+H一键全文替换

① Ctrl+A选中全文，Ctrl+H替换需要删除的字符，这个就不用多说了吧。

✅优点：方便，省事。

❌缺点：存在误删的可能性。

2.2.2 录制宏

① 在word菜单栏中，点击"视图"选择"创建宏"，添加宏名字；

② 选中对应的宏，点击"编辑"，将以下删除空格、删除回车的宏代码分别复制到对应地方；

Sub 删除空格()
'
' 删除空格 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 删除回车()
'
' 删除回车 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

③为宏添加快捷键

✅优点：在当前段落按下快捷键，可以快速删除。

❌缺点：对应不同的字符需要创建不同的宏。

三、疑问

暂无

四、总结

• 对应不同的字符可以设置不同的宏，以提高word编辑效率。
• word中还存在一个重复上述操作的快捷键 "F4"，也能提高批量处理的效率。