如何在Microsoft Word粘贴时自动替换内容并应用自定义样式

该需求完全可以实现，以下是两种可落地的操作方法：

方案1：使用VBA宏一键完成（推荐，效率最高） #

你可以将「应用自定义样式+替换段落标记」两个操作封装成宏，后续只需一键触发即可完成全部操作：

• 打开Word后按Alt + F11调出VBA编辑器，在左侧工程面板右键点击当前文档，依次选择「插入」-「模块」
• 将以下代码粘贴到模块编辑窗口，把代码中的你的自定义样式名称替换为你自己创建的样式名后保存即可

Sub 应用样式并替换段落标记()
    ' 仅处理选中的内容
    If Selection.Type = wdSelectionNormal Then
        ' 应用自定义样式
        Selection.Style = ActiveDocument.Styles("你的自定义样式名称")
        ' 执行替换：段落标记替换为空格
        With Selection.Find
            .Text = "^p"
            .Replacement.Text = " "
            .Forward = True
            .Wrap = wdFindStop
            .Execute Replace:=wdReplaceAll
        End With
    End If
End Sub

• 你可以给这个宏设置自定义快捷键，每次粘贴完内容后选中目标段落，按快捷键即可完成全部操作

方案2：无需写代码的录制宏方案 #

如果你不熟悉VBA语法，也可以通过Word自带的录制宏功能实现：

• 如果你的Word界面没有显示「开发工具」选项卡，可以在「文件」-「选项」-「自定义功能区」里勾选「开发工具」后调出
• 点击「开发工具」选项卡下的「录制宏」按钮，给宏命名后点击确定
• 手动完成一遍目标操作：选中要处理的段落，应用你的自定义样式，调出替换窗口将段落标记^p替换为空格
• 操作完成后点击「停止录制」即可，后续使用方法和方案1一致

内容的提问来源于stack exchange，提问作者rajgopalbh4