VBA查找和替换word文本框

Sub FindAndReplaceInTextBoxes()
    Dim doc As Document
    Dim shape As Shape
    Dim findText As String
    Dim replaceText As String
    
    ' 打开Word文档
    Set doc = Documents.Open("C:\Path\To\Your\Document.docx")
    
    ' 要查找和替换的文本
    findText = "要查找的文本"
    replaceText = "要替换的文本"
    
    ' 遍历文档中的文本框
    For Each shape In doc.Shapes
        ' 判断形状是否为文本框
        If shape.Type = msoTextBox Then
            ' 查找和替换文本框中的内容
            shape.TextFrame.TextRange.Text = Replace(shape.TextFrame.TextRange.Text, findText, replaceText)
        End If
    Next shape
    
    ' 保存并关闭文档
    doc.Save
    doc.Close
End Sub