Question

Word VBA 选中表格后如何获取表格所在的章节号

如图所示，当选中表格时，如何获取表格所在的章节的章节号（即图中的3.1）。

Answer 1

Word VBA:

Sub GetListString()
    Dim lngNumOfParagraphs As Long
    Dim strListValue As String
    
    On Error Resume Next
    
    Do
        If Err.Number Then Exit Do
        
        lngNumOfParagraphs = lngNumOfParagraphs + 1
        strListValue = Selection.Previous(wdParagraph, lngNumOfParagraphs).ListFormat.ListString
        
        If Len(strListValue) Then GoTo Report_ListValue
    Loop
    
    Exit Sub
    
Report_ListValue:
    MsgBox "The selected table is in chapter: " & strListValue
End Sub

动画效果：

追问

请问为什么我复制下来运行的时候会提示方法和数据成员未找到？