如何用VBA将完整Word文档复制到当前文档并保留限制编辑权限？

需求说明 #

通过VBA将已打开的完整Word文档复制到当前文档，需满足：

• 复制所有内容，包括**限制编辑（Restricted editing）**权限设置
• 保留当前文件的菜单结构与VBA代码，仅添加/替换源文档内容

已尝试代码及问题 #

代码1：仅复制内容，丢失权限 #

能复制普通内容，但源文档的限制编辑权限无法保留：

oWord.Activate
oWord.Selection.WholeStory 'Select whole document
oWord.Selection.Expand wdParagraph 'Expands your selection to current paragraph
oWord.Selection.Copy 'Copy your selection
ThisDocument.Activate
Selection.EndKey wdStory 'Move to end of document
Selection.Paste  'Pastes in the content

代码2：执行报错（Error 4218） #

运行时最后一行报错Error 4218：This object surface is not supported，无法完成复制：

Dim oDoc As Document
Dim oTarget As Document
Dim oRng As Range
Set oDoc = oWB
Set oTarget = ThisDocument
Set oRng = oTarget.Range
oRng.FormattedText = oDoc.Range.FormattedText

解决方案 #

要同时复制内容与限制编辑权限，需分两步操作：先复制权限设置，再复制文档内容，具体代码如下：

Sub CopyDocWithRestrictions()
    Dim sourceDoc As Document
    Dim targetDoc As Document
    Dim protectType As ProtectionType
    Dim protectPwd As String
    Dim targetRange As Range
    
    ' 定义源文档与目标文档（替换为实际源文档名称）
    Set sourceDoc = Documents("源文档文件名.docx")
    Set targetDoc = ThisDocument
    
    ' 1. 复制限制编辑权限设置
    If sourceDoc.ProtectionType <> wdNoProtection Then
        protectType = sourceDoc.ProtectionType
        protectPwd = sourceDoc.ProtectionPassword '获取加密后的密码哈希
        
        ' 解除目标文档现有保护（如果有）
        If targetDoc.ProtectionType <> wdNoProtection Then
            targetDoc.Unprotect Password:=targetDoc.ProtectionPassword
        End If
        
        ' 应用源文档的保护设置到目标文档
        targetDoc.Protect Type:=protectType, Password:=protectPwd, NoReset:=True
    End If
    
    ' 2. 复制源文档全部内容到目标文档末尾
    Set targetRange = targetDoc.Range(targetDoc.Content.End - 1, targetDoc.Content.End - 1)
    targetRange.FormattedText = sourceDoc.Content.FormattedText
End Sub

关键说明 #

• 权限复制逻辑：先读取源文档的保护类型与密码，解除目标文档现有保护后，将源文档的保护规则应用过去
• 内容复制：使用FormattedText属性复制带格式的内容，比Selection操作更稳定且无界面闪烁
• 额外注意：
  • 需确保拥有源文档的编辑权限，否则无法读取保护设置
  • 若源文档使用用户权限限制（非简单密码保护），需通过sourceDoc.ProtectionUsers获取用户列表并同步到目标文档

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