如何在 Word 替换中保留日期格式？

Question

我正在替换 Word 文档中的一些标签，其中一些替换涉及日期，但是，当代码进行替换时，它会保留公式栏中显示的日期格式，例如。 2/21/2022 ，当实际在单元格中的日期是21-Feb-2022时，我确实需要保留单元格中的格式，但我找不到任何方法来保留或修改日期格式。

以上涉及的部分代码

Set WordDoc = WordApp.Documents.Open(FileName:=Ubicación, ReadOnly:=False)   'Open Template
                            
For CustCol = 1 To 20 'Move Through 9 Columns 
    TagName = Sheets("MX-2022").Cells(4, CustCol).Value 'Tag Name
    TagName.Select
    TagValue = Sheets("MX-2022").Cells(Found.Row, CustCol).Value 'Tag Value

    With WordDoc.Content.Find   
        .Text = TagName
        .Replacement.Text = TagValue

        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll 'Find & Replace all instances
    End With
Next CustCol

我对任何解决方案持开放态度，即使它涉及添加撇号以将日期更改为文本，只要我能够返回日期格式（因为是的，我还需要将其保留为其他日期使用替换的设备）

Answer 1

• Range.Value 属性返回日期的数值。
• Range.Text 属性返回日期的格式化文本。

---

或者，您可以使用Format 函数来格式化日期的数值：

Format$(YourRange.Value, "dd-mmm-yyyy")

这样做的优点/缺点是，如果有人更改 Excel 单元格中的格式，它会在 Word 中修复。 您可能希望或不希望 Word 格式随 Excel 单元格格式而变化。
如果您使用Format()它固定为您定义的任何内容。 如果您使用Range.Text ，它将随着 Excel 单元格的数字格式而改变（谁曾改变它）。