Word VBA运行时错误4198：Selection.PasteAndFormat故障排查

你的宏出现4198错误，核心原因有两个：一是批量执行时剪贴板还没完成复制就触发粘贴操作，单步调试时手动延迟了所以没问题；二是用Selection操作文档会导致原查找范围混乱，加上每次粘贴后文档内容变化，后续查找的Range没有更新，进而报错。

直接改用Range对象全程操作，完全避开剪贴板和Selection，就能解决问题，修改后的代码如下：

Sub CopyAIRs()
    ' CopyAIRs Macro
    Dim styl As Style
    Set styl = ActiveDocument.Styles("Questions")
    
    Dim findRng As Range
    Dim targetRng As Range
    
    ' 初始化查找范围为整个文档
    Set findRng = ActiveDocument.Range
    ' 初始化目标范围为文档末尾
    Set targetRng = ActiveDocument.Content
    targetRng.Collapse Direction:=wdCollapseEnd
    
    With findRng.Find
        .ClearFormatting
        .Style = styl
        .Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True ' 明确指定按格式查找，避免误匹配
    End With
    
    Do While findRng.Find.Execute
        ' 将找到的内容复制到目标位置
        targetRng.Text = findRng.Text
        ' 插入新段落，更新目标范围到新的末尾
        targetRng.InsertParagraphAfter
        targetRng.Collapse Direction:=wdCollapseEnd
        
        ' 重置查找范围为当前找到的内容之后，避免重复查找
        findRng.Collapse Direction:=wdCollapseEnd
        findRng.End = ActiveDocument.Content.End
    Loop
End Sub

关键修改说明 #

• 抛弃Selection和剪贴板：直接通过Range对象的Text属性复制内容，不需要依赖剪贴板，彻底避免剪贴板未就绪的问题
• 固定目标范围：每次复制后更新目标范围到文档末尾，确保后续内容都追加在最后
• 重置查找范围：每次找到内容后，将查找起始点移到当前内容之后，同时把查找终点设为文档末尾，避免因文档新增内容导致的查找混乱
• 开启Format查找：明确指定.Format = True，让Find严格匹配样式格式，避免误查

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