Windows 10 Office 365下VBA拆分Word文档时粘贴报4605错误

我之前也踩过这个坑！在Windows 10的Office 365环境下，Word的文档创建逻辑和旧版本（比如Windows 7上的Word）有明显差异——它采用了异步初始化机制，导致你刚创建oNewDoc就执行Paste时，文档可能还没完全就绪，直接触发了“该命令不可用”的4605错误。

最可靠的解决方案：替代剪贴板的文本赋值 #

与其依赖剪贴板和生硬等待，不如直接用FormattedText属性复制分节内容，这种方式不需要激活文档，也不依赖剪贴板，稳定性拉满：

修改你代码中的这一段：

With oDoc.Sections.First.Range
        .MoveEnd wdSection, 0
        .MoveEnd wdCharacter, -1
        .Copy
        '.Select
    Set oNewDoc = Documents.Add(Visible:=True)
        
        oNewDoc.Range.Paste 'Run-time error '4605': This command is not available
End With

替换为：

With oDoc.Sections.First.Range
    .MoveEnd wdSection, 0
    .MoveEnd wdCharacter, -1
    ' 先创建新文档
    Set oNewDoc = Documents.Add(Visible:=True)
    ' 直接将原区域的格式文本赋值给新文档，替代复制粘贴
    oNewDoc.Range.FormattedText = .FormattedText
End With

如果你坚持用复制粘贴：等待文档就绪 #

如果你因为某些原因必须保留复制粘贴的逻辑，可以添加循环等待文档完全就绪，比硬等1秒更灵活适配不同性能的机器：

With oDoc.Sections.First.Range
    .MoveEnd wdSection, 0
    .MoveEnd wdCharacter, -1
    .Copy
    Set oNewDoc = Documents.Add(Visible:=True)
    
    ' 循环等待文档就绪，直到Ready属性为True
    Do While Not oNewDoc.Ready
        DoEvents ' 释放CPU资源，避免程序假死
    Loop
    
    oNewDoc.Range.Paste
End With

完整修改后的代码 #

这里是整合了FormattedText方案的完整代码：

Private Sub GenerateFiles_Click()

    'Pages Update 1.0 By M.B.A.
   
    Dim oNewDoc As Document
    Dim oDoc As Document
    Dim CR As Range
    
    Dim firstLine As String
    Dim strLine As String
    Dim DocName As String
    Dim pdfName As String
    
    Dim arrSplit As Variant
    Dim Counter As Integer
    Dim i As Integer
    
    Dim PS As String

    PS = Application.PathSeparator
    
    'Progress
    pBarCurrent 0

    If pdfCheck.Value = False And docCheck.Value = False Then
        PagesLB = "**Please Select at least one check boxes!"
        Beep
        Exit Sub
    End If
        
        Set oDoc = ActiveDocument
        Set CR = oDoc.Range
        Letters = oDoc.Range.Information(wdActiveEndSectionNumber)
        Counter = 1
        
    While Counter < Letters + 1
        
        With oDoc.Sections.First.Range
                .MoveEnd wdSection, 0
                .MoveEnd wdCharacter, -1
                ' 替换复制粘贴为直接格式文本赋值
                Set oNewDoc = Documents.Add(Visible:=True)
                oNewDoc.Range.FormattedText = .FormattedText
        End With
    
        
        firstLine = oNewDoc.Paragraphs(1).Range.Text
        For i = 1 To 2
            strLine = oNewDoc.Paragraphs(i).Range.Text
            If InStr(strLine, ".pdf") > 0 Then
                arrSplit = Split(strLine, ".pdf")
                DocName = arrSplit(0) & ".pdf"
                Exit For
            End If
        Next i
                
        If i = 3 Then
            
            DocName = Left(firstLine, 45)
            DocName = Replace(DocName, vbCr, "")
            
        End If
                
        DocName = Replace(DocName, Chr(11), "")
        
        pdfName = Counter & " - " & DocName & IIf(i = 3, ".pdf", "")
        DocName = Counter & " - " & IIf(i < 2, Replace(DocName, ".pdf", ""), DocName) & ".docx"
    
        'Debug.Print pdfName; vbNewLine; DocName
        
        If docCheck Then
            oNewDoc.SaveAs FileName:=oDoc.Path & PS & ValidWBName(DocName), AddToRecentFiles:=False
        End If
        
        If pdfCheck Then
            oNewDoc.SaveAs FileName:=oDoc.Path & PS & ValidWBName(pdfName), FileFormat:=wdFormatPDF
        End If
        
        oDoc.Sections.First.Range.Cut
        
        
        '== Progress Bar =='
        DoEvents
        PagesLB = " Letter " & Counter & " of " & Letters & vbCr & " " & Int((Counter / (Letters)) * 100) & "% Completed..."
        pBarCurrent Int((Counter / (Letters)) * 100)
        oNewDoc.Close False
        Counter = Counter + 1

    Wend
   
    PagesLB = Letters & " Letters has been Created..."
    oDoc.Close wdDoNotSaveChanges
    Beep
    
End Sub 

为什么这个方案有效？ #

• Office 365的Word在创建新文档时是异步初始化的，Documents.Add返回后，文档可能还没完成内部的加载流程，此时调用Paste会因为文档未就绪而失败。
• FormattedText是直接在VBA对象模型层面传递内容，不依赖剪贴板和文档的激活状态，完全避开了就绪问题。
• 如果用等待循环，oNewDoc.Ready属性会准确反映文档是否完全加载完成，比固定等待1秒更可靠（不同机器性能差异大，固定等待时间可能在慢机器上仍不够）。

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