Function ReplaceWord(SearchStr, ReplaceStr) '全部替换函数
  With wordApp.ActiveDocument.Content.Find
    .ClearFormatting
    .Text = SearchStr
    .Replacement.Text = ReplaceStr
    .MatchWildcards = False
   '.Replacement.Highlight = True
    .Forward = True
    .Execute Replace:=wdReplaceAll
   End With
End Function

这个函数可以替换。 但是不知道为什么替换后比如 ReplaceWord("a", "b") 但是到word里边就成了B 大写的希望不自动变成大写

Function ReplaceWordY2(SearchStr, ReplaceStr) '全部替换函数
        With wordDoc.Content
            If .Find.Execute(SearchStr) Then
                .Text = ReplaceStr
            End If
        End With
   
End Function

这个只可以替换一个但是能替换成功！不解请高人指教

比如这个word  我替换P714 为f   直接打开word替换也是大写  就变成F了  经过测试好像先替换成数字 然后再替换回来就可以是小写了。 求解