VBA Excel将Word文本替换为Excel单元格值

Sub ReplaceWordWithExcelValue()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim rng As Object
    Dim cell As Range
    
    ' 创建Word应用程序对象
    Set wrdApp = CreateObject("Word.Application")
    
    ' 打开要替换的Word文档
    Set wrdDoc = wrdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 遍历Excel单元格，逐个替换Word文档中的文本
    For Each cell In Worksheets("Sheet1").Range("A1:A10")
        Set rng = wrdDoc.Content
        rng.Find.Execute FindText:="要替换的文本", ReplaceWith:=cell.Value, Replace:=2
    Next cell
    
    ' 关闭并保存Word文档
    wrdDoc.Close SaveChanges:=True
    
    ' 退出Word应用程序
    wrdApp.Quit
    
    ' 释放对象
    Set rng = Nothing
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub