如何用Word宏自动将粘贴文本格式化为文档默认字体字号？

原代码的问题分析 #

1. 触发时机不合理：WindowSelectionChange事件会在点击、选中文本等所有选择变化操作时触发，并非专门针对粘贴操作，不仅冗余还可能导致误处理。
2. 常量未定义风险：wdStyleNormal属于Word内置常量，若文档模块未正确引用Word对象库，会导致代码报错。
3. 格式处理不彻底：单独设置字体名称和字号，不如直接应用样式可靠，样式还能统一其他格式（如行间距等）。

推荐方案：使用BeforePaste事件（精准针对粘贴操作） #

将以下代码粘贴到文档的ThisDocument模块中（VBA编辑器左侧项目窗格可找到当前文档的ThisDocument）：

Private Sub Document_BeforePaste(ByVal ClipboardContent As DataObject, ByVal Target As Range, Cancel As Boolean)
    ' 取消默认带格式粘贴
    Cancel = True
    
    ' 粘贴为纯文本，避免外部格式干扰
    Target.PasteSpecial DataType:=wdPasteText
    
    ' 应用文档默认的Normal样式，统一字体、字号及其他格式
    Target.Style = ActiveDocument.Styles(wdStyleNormal)
End Sub

代码说明 #

• Document_BeforePaste是文档级专属事件，仅在粘贴操作触发前执行，精准高效。
• 先取消默认粘贴行为，再粘贴纯文本，最后应用文档的Normal样式，确保完全匹配文档默认格式。
• 若wdStyleNormal或wdPasteText报错，可在模块顶部添加常量定义：

  Option Explicit
  Const wdStyleNormal As Integer = -1
  Const wdPasteText As Integer = 2
  

备选方案：改进原选择变化事件（不推荐，触发频繁） #

如果坚持使用原事件逻辑，可修改代码如下：

Option Explicit
Private WithEvents App As Word.Application
Const wdStyleNormal As Integer = -1

Private Sub Document_Open()
    Set App = Word.Application
End Sub

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    On Error GoTo ErrorHandler
    
    Dim rng As Range
    Set rng = Sel.Range
    
    ' 仅处理选中的非空内容
    If rng.Start <> rng.End Then
        ' 直接应用Normal样式，替代单独设置字体字号
        rng.Style = ActiveDocument.Styles(wdStyleNormal)
    End If
    
    Exit Sub
ErrorHandler:
    MsgBox "格式处理出错：" & Err.Description, vbExclamation
End Sub

注意事项 #

• 文档需保存为.docm格式（启用宏的Word文档），否则宏无法生效。
• 打开文档时需启用宏（Word会弹出安全提示，选择「启用内容」）。
• 确保Normal样式为文档的默认格式，可通过「开始」选项卡的样式管理器修改。

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