VBA宏报错‘Invalid use of property’：ActiveDocument.Range问题修复咨询

问题根源在于你使用了Range作为自定义变量名，而Range是Word VBA的内置对象名称。旧版Word（如2007）的VBA引擎对内置对象名的复用限制较宽松，但新版Word（2021）的VBA环境更严格，直接用内置对象名当变量会触发属性使用错误。

修复方案： #

• 将代码中所有用作变量的Range替换为非内置对象名称（比如docRange），彻底避免命名冲突
• 可选：添加Option Explicit强制变量声明，提前排查类似的变量问题，提升代码稳定性

修改后的完整代码： #

Option Explicit

Sub HighlightWords()
    Dim File As String
    Dim List As Variant
    Dim Target As Variant
    Dim docRange As Range ' 用自定义变量名替代内置Range对象名
    
    With CreateObject("Scripting.FileSystemObject")
        File = .OpenTextFile("C:\Users\...\words_list.txt", 1).ReadAll
    End With
    List = Split(File, vbCrLf)
    
    For Each Target In List
        Set docRange = ActiveDocument.Range
        With docRange.Find
            .Text = Target
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            Do While .Execute(Forward:=True) = True
                docRange.HighlightColorIndex = wdYellow
            Loop
        End With
    Next
End Sub

额外提示： #

• Option Explicit会强制所有变量必须先声明再使用，能帮你提前发现拼写错误、命名冲突这类问题，建议在所有VBA模块顶部添加
• 确保words_list.txt的路径正确，若路径包含空格或特殊字符，可将路径用双引号包裹（比如"C:\Users\My Name\words_list.txt"）

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