Excel VBA操作Word文档替换文本遇255字符限制的解决办法

问题背景 #

通过Excel VBA打开Word文档替换方括号[]内的文本时，原代码使用.Replacement.Text会触发255字符限制，无法替换长内容。以下是无需依赖剪贴板的最简解决方案，直接通过Word的Range对象实现无限制替换。

修改后的完整代码 #

'Open Word App
Dim wordApp As Object
Dim wordDoc As Object
Dim myStoryRange As Object

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False

'Open Table2.doc
Set wordDoc = wordApp.Documents.Open(WIN_Path & "memo\table2_" & L_Effectivity & "_" & DEL_AIL & ".doc")

'Find/Replace using change_words
Dim myDict: Set myDict = CreateObject("Scripting.Dictionary")
myDict("[TABLE2_AUTHOR]") = Table2_Author
myDict("[JOB_NUMBER]") = Job_Number
myDict("[REGISTRATION]") = Registration
myDict("[EFFECTIVITY]") = Effectivity

For Each myStoryRange In wordDoc.StoryRanges
    Do
        For myLoop = 0 To myDict.Count - 1
            change_words myStoryRange, myDict.Keys()(myLoop), myDict.Items()(myLoop)
        Next
        '处理脚注、尾注等子文本区域
        Set myStoryRange = myStoryRange.NextStoryRange
    Loop While Not myStoryRange Is Nothing

'按需保存关闭文档
wordDoc.Save
wordDoc.Close
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing

Sub change_words(ByRef myStoryRange, ByVal findWord, ByVal replaceWord)
    With myStoryRange.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = findWord
        .Forward = True
        .Wrap = 1 'wdFindStop，避免无限循环查找
        .MatchCase = False
        .MatchWholeWord = True '精准匹配完整占位符
        
        '循环替换当前区域内所有匹配项
        Do While .Execute
            '直接修改匹配到的文本，绕过255字符限制
            myStoryRange.Text = replaceWord
            '将光标移至匹配内容末尾，继续查找下一项
            myStoryRange.Collapse 0 'wdCollapseEnd
        Loop
    End With
End Sub

关键修改说明 #

• 抛弃.Replacement.Text的替换方式，改为定位匹配项后直接修改myStoryRange.Text，彻底规避字符长度限制。
• 新增循环遍历逻辑，确保替换当前文本区域内的所有匹配项。
• 补充NextStoryRange遍历，覆盖文档中所有可能存在文本的区域（如页眉、页脚、脚注等）。
• 设置.Wrap = 1防止查找操作无限循环。

内容的提问来源于stack exchange，提问作者Ryan MacDicken