使用Access VBA替换word中的字符串会在段落开头生成无关的空格

Sub ReplaceStringInWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordRange As Object
    Dim paragraph As Object
    Dim searchString As String
    Dim replaceString As String
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 设置要查找和替换的字符串
    searchString = "要替换的字符串"
    replaceString = "替换后的字符串"
    
    ' 遍历文档中的所有段落
    For Each paragraph In wordDoc.Paragraphs
        ' 获取段落的范围
        Set wordRange = paragraph.Range
        
        ' 检查段落中是否包含要替换的字符串
        If InStr(wordRange.Text, searchString) > 0 Then
            ' 替换字符串并处理换行符
            wordRange.Text = Replace(wordRange.Text, searchString, replaceString)
            wordRange.Text = Replace(wordRange.Text, vbCrLf, " ")
        End If
    Next paragraph
    
    ' 保存并关闭文档
    wordDoc.Save
    wordDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象
    Set wordRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub