Vb.net 单词搜索&；替换所有大写的结果

我想替换word文件标题区域中的一些文本。
实际的替换工作正常，但不管替换文本的外观如何，它都以大写字母替换所有内容。 这就是我使用的代码：

    og = ""
    vn = ""
    nn = ""
    tl = ""
    fx = ""
    getUserdatadata()

    Dim tags As String() = {"XCDATEX", "XORGANIX", "XNAMEX", "XTELEX", "XFAXX"}
    Dim name As String = vn + " " + nn
    Dim replaces As String() = {Today.ToShortDateString, og, name, tl, fx}
    worddoc.Application.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView
    worddoc.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekFirstPageHeader
    For i As Integer = 0 To 4
        With worddoc.Application.Selection.Find
            .Text = tags(i)
            .Replacement.Text = replaces(i)
            .Forward = True
            .Wrap = WdFindWrap.wdFindContinue
            .Execute(Replace:=WdReplace.wdReplaceOne)
        End With
    Next

对于日期、组织、电话和传真都没有问题（无论如何，组织完全是大写的）。 但对于名称，它总是将整个文本转换为大写。 如何修复此问题？

找到它： 我需要添加

.MatchCase=true

对于with语句

，即使我使用类似“this should is lowercase”的内容而不是替换（I）文本将convertet转换为大写