Word中VBA文内引用排序代码报错：参数数量错误或属性赋值无效

错误原因拆解 #

触发j = UBound(Split(.Text, "; "))编译错误的核心可能有两个：

• 一是.Text所属的对象引用无效（比如没正确定位到Range/Find结果就直接调用属性），导致属性赋值失败；
• 二是Split返回了空数组（比如目标文本里没有; 分隔符，或者文本为空），直接调用UBound会报错，因为空数组没有合法下标。

排查修复步骤 #

1. 确认对象引用的合法性 #

检查.Text对应的对象是否正确初始化，比如在Find操作中，必须先执行Find.Execute且返回True后，才能访问对应Range的Text属性。举个修正后的代码片段：

Dim targetRng As Range
Set targetRng = ActiveDocument.Content

With targetRng.Find
    .Text = "\([^\)]+\)" ' 匹配括号内的引用内容
    .MatchWildcards = True
    Do While .Execute
        ' 先判断当前内容是否需要拆分排序
        If InStr(targetRng.Text, "; ") > 0 Then
            Dim refArr() As String
            refArr = Split(targetRng.Text, "; ")
            
            ' 检查数组是否有效
            If UBound(refArr) >= 0 Then
                ' 冒泡排序逻辑
                Dim i As Integer, k As Integer, tempStr As String
                For i = LBound(refArr) To UBound(refArr) - 1
                    For k = i + 1 To UBound(refArr)
                        If refArr(i) > refArr(k) Then
                            tempStr = refArr(i)
                            refArr(i) = refArr(k)
                            refArr(k) = tempStr
                        End If
                    Next k
                Next i
                ' 替换回排序后的内容
                targetRng.Text = "(" & Join(refArr, "; ") & ")"
            End If
        End If
    Loop
End With

2. 提前处理空数组/无分隔符场景 #

在调用UBound前，先判断数组状态，避免直接操作空数组：

Dim splitResult As Variant
splitResult = Split(.Text, "; ")

If IsArray(splitResult) And UBound(splitResult) >= 0 Then
    j = UBound(splitResult)
    ' 执行后续排序逻辑
Else
    ' 无分隔符或文本为空，跳过当前项
    Continue Do ' 若在循环中使用
End If

3. 过滤无效文本 #

如果遇到空括号（()）或无内容的情况，直接跳过处理：

If Trim(.Text) = "" Or Trim(.Text) = "()" Then
    Exit Sub ' 或在循环里用Continue Do跳过
End If

核心注意事项 #

• 永远不要在未确认对象有效性的情况下访问Text属性，比如Find操作必须确保Execute返回True；
• 空数组的判断要结合IsArray和UBound，单独调用UBound会触发错误。

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