macOS不同语言环境下Word日期选择器ContentControl报错求助

问题背景 #

使用以下VBA宏在Mac版Word中插入日期选择器ContentControl：

Sub AddDatePickerCC_GermanExt()
  Dim oCC As ContentControl
  Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDate, Selection.Range)
  With oCC
    .DateCalendarType = wdCalendarWestern
    .DateDisplayFormat = "d. MMMM yyyy"
    .DateDisplayLocale = wdGerman
  End With
  Set oCC = Nothing
End Sub

当Word语言为德语时正常运行，切换为英语（系统区域仍设为德国）时，触发错误：

This calendar type is not available for the current date language.

调试指向.DateCalendarType = wdCalendarWestern行，但Mac系统已设为公历，修改该参数不合理。此时控件虽能插入，但显示格式变为01/01/2024，无法达到指定的d. MMMM yyyy格式。

解决方案 #

1. 调整属性设置顺序 #

Mac版Word对ContentControl属性的依赖顺序更严格，先指定区域再设置日历类型，可避免语言冲突：

Sub AddDatePickerCC_GermanExt()
  Dim oCC As ContentControl
  Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDate, Selection.Range)
  With oCC
    .DateDisplayLocale = wdGerman ' 优先指定区域
    .DateCalendarType = wdCalendarWestern ' 再设置日历类型
    .DateDisplayFormat = "d. MMMM yyyy"
  End With
  Set oCC = Nothing
End Sub

2. 省略日历类型设置 #

由于Mac系统已默认使用公历，Word会根据指定区域自动匹配，直接移除日历类型赋值语句即可：

Sub AddDatePickerCC_GermanExt()
  Dim oCC As ContentControl
  Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDate, Selection.Range)
  With oCC
    .DateDisplayLocale = wdGerman
    .DateDisplayFormat = "d. MMMM yyyy"
  End With
  Set oCC = Nothing
End Sub

3. 错误捕获+强制格式设置 #

如果前两种方法仍有问题，添加错误捕获跳过冲突代码，之后强制设置目标格式：

Sub AddDatePickerCC_GermanExt()
  Dim oCC As ContentControl
  Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDate, Selection.Range)
  With oCC
    On Error Resume Next ' 跳过日历类型设置的错误
    .DateCalendarType = wdCalendarWestern
    On Error GoTo 0 ' 恢复默认错误处理
    .DateDisplayLocale = wdGerman
    .DateDisplayFormat = "d. MMMM yyyy"
  End With
  Set oCC = Nothing
End Sub

原理说明 #

Mac版Word的ContentControl语言与日历绑定逻辑和Windows存在差异：当Word界面语言与系统区域设置不一致时，先设置DateDisplayLocale会让Word优先加载对应区域的日历配置，此时再设置DateCalendarType就不会触发兼容性错误。省略日历类型设置时，Word会自动继承系统默认的公历配置，同时严格遵循指定的区域显示格式。

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