Dim oCL As CaptionLabel Dim oDoc As Document Dim oRng As Range Dim oT As Table Set oT = Selection.Tables(1) Set oDoc = Word.ActiveDocument Set oCL = Word.CaptionLabels.Add("表") With oCL .IncludeChapterNumber = True .NumberStyle = wdCaptionNumberStyleArabic .ChapterStyleLevel = 2 .Separator = wdSeparatorHyphen End With Set oRng = oT.Range With oRng .InsertCaption "表", "" .InsertBefore Chr(13) .SetRange .Start, .Start ' 获取当前表格的编号 Dim currentNum As String currentNum = oT.Range.Information(wdCaptionNumber) ' 插入表格的交叉引用 Word.Selection.InsertCrossReference "表", wdOnlyLabelAndNumber, currentNum .InsertBefore "详见" End With上述代码currentNum = oRng.Information(wdCaptionNumber)提示：数值超出范围

这个错误可能是因为你正在尝试获取一个超出范围的编号。这可能是因为你的文档中没有标签为“表”的题注，或者是因为你没有正确地设置引用。

为了解决这个问题，你可以在代码执行之前检查一下是否存在标签为“表”的题注。你可以使用下面的代码来检查是否存在标签为“表”的题注：

If Word.ActiveDocument.CaptionLabels("表") Is Nothing Then
    MsgBox "找不到标签为“表”的题注。"
    Exit Sub
End If

如果不存在标签为“表”的题注，那么你需要先添加一个标签为“表”的题注。你可以使用下面的代码来添加标签为“表”的题注：

Dim oCL As CaptionLabel 
Set oCL = Word.CaptionLabels.Add("表") 
With oCL 
    .IncludeChapterNumber = True 
    .NumberStyle = wdCaptionNumberStyleArabic 
    .ChapterStyleLevel = 2 
    .Separator = wdSeparatorHyphen 
End With

添加完题注之后，你可以再次执行获取编号的代码。如果还是出现这个错误，那么可能是因为你没有正确地设置引用。你可以尝试将引用设置为“标签和编号”，并将范围设置为表格的范围，如下所示：

Word.Selection.InsertCrossReference "表", wdCaptionNumberWithChapter, oRng, wdAutoNumberListName

这样你就可以正确地获取表格的编号并插入表格的交叉引用了。