我明白你遇到的问题了——当替换文本过长时，Word的Find.Execute方法确实会因为内置的长度限制而罢工，这是个挺常见的坑，折腾几小时太闹心了。咱们来拆解问题，然后给你几个可行的解决方案：

问题根源 #

Word的Find/Replace功能并非为超大量文本设计，当Replacement.Text的内容超过一定长度（早期版本是255字符，新版本虽有提升但仍有上限）时，就会触发失败，这就是你的代码卡在标注行的原因。

解决方案1：定位占位符后直接替换Range内容 #

不用依赖Replace参数，而是先找到占位符的位置，再直接覆盖该位置的文本——这种方式不受长度限制，兼容性更好。

修改你的核心替换代码块：

With wDoc.Content.Find
    .Text = "$" & ActiveSheet.Cells(1, scol) & "$"
    .MatchCase = False ' 可选，根据你的占位符大小写需求调整
    .MatchWholeWord = True ' 确保匹配完整的占位符
    .ClearFormatting ' 避免格式干扰查找
    If .Execute Then
        ' 找到占位符后，直接替换选中区域的文本
        wApp.Selection.Text = ActiveSheet.Cells(srow, scol).Value
    End If
End With

解决方案2：使用书签（更可靠的长期方案） #

如果可以修改你的Word模板，把$占位符$改成书签（比如把$Name$改成名为Name的书签），后续直接通过书签定位插入内容，不仅支持长文本，还能避免占位符匹配错误的问题：

' 假设模板里的书签名称和Excel表头一致（不需要$符号）
Dim bookmarkName As String
bookmarkName = ActiveSheet.Cells(1, scol).Value

If wDoc.Bookmarks.Exists(bookmarkName) Then
    wDoc.Bookmarks(bookmarkName).Range.Text = ActiveSheet.Cells(srow, scol).Value
End If

额外优化：提升代码效率 #

你的原代码每次循环都重新打开模板，不仅慢还容易出问题，建议把模板初始化移到循环外面，每次基于模板新建文档：

Dim lastRow As Integer
Dim lastCol As Integer
lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
lastCol = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
Dim wApp As Object
Dim templatePath As String
templatePath = "C:\Temp\Template.docx"

Set wApp = CreateObject("Word.Application")
wApp.Visible = True

For srow = 2 To lastRow
    ' 基于模板新建文档，避免重复打开关闭模板
    Dim newDoc As Word.Document
    Set newDoc = wApp.Documents.Add(Template:=templatePath, NewTemplate:=False)
    
    For scol = 1 To lastCol
        With newDoc.Content.Find
            .Text = "$" & ActiveSheet.Cells(1, scol) & "$"
            .MatchCase = False
            .MatchWholeWord = True
            .ClearFormatting
            If .Execute Then
                wApp.Selection.Text = ActiveSheet.Cells(srow, scol).Value
            End If
        End With
    Next scol
    
    newDoc.SaveAs "C:\Temp\1.class\" & ActiveSheet.Cells(srow, 1) & ".docx"
    newDoc.Close SaveChanges:=False
Next srow

wApp.Quit
Set wApp = Nothing

这样修改后，既能解决长文本替换的问题，还能让代码运行得更流畅。

内容的提问来源于stack exchange，提问作者Gergely Simon