Word邮件合并DataFields组件日期格式异常问题（VBA代码）

问题根源 #

意大利语系统默认区域为dd/mm/yyyy，但Word的DataFields读取日期时，会优先尝试按mm/dd/yyyy解析（当日期的日部分≤12时），导致格式混乱。无需修改系统语言，可通过以下两种方案强制控制日期解析逻辑。

方案1：直接读取Excel数据源的原始日期值（推荐） #

绕过Word的DataFields区域识别逻辑，直接从Excel文件读取日期值，确保格式转换不受系统区域影响。

Dim xlApp As Object
Dim xlWB As Object
Dim ws As Object
Dim currentRow As Long
Dim assetStr As String
Dim testDateVal As Date

' 连接Excel数据源
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("C:\你的数据源文件路径.xlsx") '替换为实际路径
Set ws = xlWB.Sheets("数据源工作表名称") '替换为实际工作表名

' 计算当前邮件合并记录对应的Excel行号（假设表头在第1行）
currentRow = ActiveDocument.MailMerge.DataSource.ActiveRecord + 1

' 读取Excel单元格值
assetStr = ws.Cells(currentRow, "A").Value '假设Asset列是A列
testDateVal = ws.Cells(currentRow, "B").Value '假设Test_Date列是B列

' 生成指定格式的文件名
Filename = assetStr & "_" & Format(testDateVal, "dd.mm.yyyy")

' 清理对象
xlWB.Close SaveChanges:=False
xlApp.Quit
Set ws = Nothing
Set xlWB = Nothing
Set xlApp = Nothing

注意：如果Excel中的日期是文本格式（非原生日期值），需先转换为日期类型：

testDateVal = CDate(ws.Cells(currentRow, "B").Value)

方案2：临时切换VBA的区域设置 #

在日期格式转换前后，临时将Word的区域设置改为意大利语，执行完成后恢复原设置。

Dim originalLocale As Long
Const ITALIAN_LCID As Long = 1040 '意大利语（意大利）的区域ID

' 保存原区域设置
originalLocale = Application.LanguageSettings.LanguageID(msoLanguageIDUI)

' 强制切换为意大利语区域
Application.LanguageSettings.LanguageID(msoLanguageIDUI) = ITALIAN_LCID

' 生成文件名
Filename = .DataFields("Asset").Value & "_" & Format(.DataFields("Test_Date").Value, "dd.mm.yyyy")

' 恢复原区域设置
Application.LanguageSettings.LanguageID(msoLanguageIDUI) = originalLocale

注意：需确保使用正确的LCID（区域ID），1040对应意大利语（意大利），若为其他意大利语区域可调整对应ID。

内容的提问来源于stack exchange，提问作者Alessandro De Chiara Medica St