Access VBA只读模式填充Word表单在O365中失效问题求助

问题根源 #

O365对只读文档的表单字段编辑限制比Office 2016更严格，默认只读模式下会拦截代码对表单字段的赋值操作，即使逻辑本身正确也无法生效。以下是针对性的解决方案：

• 调整文档打开参数，兼顾只读保护与编辑权限
  在Documents.Open中添加Editable:=True参数，这样既以只读模式打开（无法覆盖保存原文件，保护原始文档），又能让代码正常编辑表单字段。填充完成后必须另存为副本，避免修改原文件：

  Sub FillIn()
  Dim WordApp As Word.Application
  Dim Doc As Word.Document
  
  Set WordApp = New Word.Application
  WordApp.Visible = True
  
  ' 添加Editable:=True参数，允许编辑但保留只读属性
  Set Doc = WordApp.Documents.Open(FileName:="C:\myWordTemplate.docx", ReadOnly:=True, Editable:=True)
  With Doc
      .FormFields("Firstname").Result = Me.Firstname
      .FormFields("Lastname").Result = Me.Lastname
      ' 另存为新文件，不修改原模板
      .SaveAs2 FileName:="C:\FilledDocument_" & Format(Now(), "YYYYMMDDHHMMSS") & ".docx"
      .Close
  End With
  Set Doc = Nothing
  Set WordApp = Nothing
  End Sub
  

• 检查并临时解除文档表单保护
  如果Word模板本身设置了表单保护（Developer选项卡→Restrict Editing），即使只读打开也会锁定字段。可以在赋值前临时解除保护，填充后按需重新保护：

  Sub FillIn()
  Dim WordApp As Word.Application
  Dim Doc As Word.Document
  
  Set WordApp = New Word.Application
  WordApp.Visible = True
  
  Set Doc = WordApp.Documents.Open(FileName:="C:\myWordTemplate.docx", ReadOnly:=True, Editable:=True)
  With Doc
      ' 解除表单保护（若有密码，需添加密码参数，如.Unprotect "yourpassword"）
      .Unprotect
      .FormFields("Firstname").Result = Me.Firstname
      .FormFields("Lastname").Result = Me.Lastname
      ' 可选：重新启用表单保护
      .Protect Type:=wdAllowOnlyFormFields, NoReset:=True
      .SaveAs2 FileName:="C:\FilledDocument_" & Format(Now(), "YYYYMMDDHHMMSS") & ".docx"
      .Close
  End With
  Set Doc = Nothing
  Set WordApp = Nothing
  End Sub
  

• 改用Content Controls替代传统Form Fields
  O365对现代Content Controls的兼容性更好，传统Form Fields在新环境下存在兼容性限制。将Word模板中的Form Fields替换为Content Controls（设置对应Tag属性），然后通过以下代码赋值：

  Sub FillInWithContentControls()
  Dim WordApp As Word.Application
  Dim Doc As Word.Document
  Dim cc As ContentControl
  
  Set WordApp = New Word.Application
  WordApp.Visible = True
  
  Set Doc = WordApp.Documents.Open(FileName:="C:\myWordTemplate.docx", ReadOnly:=True, Editable:=True)
  For Each cc In Doc.ContentControls
      Select Case cc.Tag
          Case "Firstname"
              cc.Range.Text = Me.Firstname
          Case "Lastname"
              cc.Range.Text = Me.Lastname
      End Select
  Next cc
  Doc.SaveAs2 FileName:="C:\FilledDocument_" & Format(Now(), "YYYYMMDDHHMMSS") & ".docx"
  Doc.Close
  Set Doc = Nothing
  Set WordApp = Nothing
  End Sub
  

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