Vb.net如何获取word表的索引号

Imports Microsoft.Office.Interop.Word

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建Word应用程序对象
        Dim wordApp As New Application()

        ' 打开Word文档
        Dim doc As Document = wordApp.Documents.Open("C:\path\to\your\document.docx")

        ' 获取文档中的所有表格
        Dim tables As Tables = doc.Tables

        ' 遍历所有表格
        For Each table As Table In tables
            ' 获取表格的索引号
            Dim index As Integer = table.Range.Tables.Count

            ' 在控制台输出索引号
            Console.WriteLine("表格索引号: " & index)
        Next

        ' 关闭Word文档
        doc.Close()

        ' 退出Word应用程序
        wordApp.Quit()
    End Sub
End Class