在Word VBA中将多个表添加到书签中，同时保持和扩展书签

Sub AddTablesToBookmark()
    Dim bookmarkName As String
    Dim tableCount As Integer
    Dim i As Integer
    
    ' 设置书签名称
    bookmarkName = "YourBookmarkName"
    
    ' 设置需要添加到书签的表格数量
    tableCount = 3
    
    ' 循环将表格添加到书签中
    For i = 1 To tableCount
        ' 在书签位置插入表格
        Selection.GoTo What:=wdGoToBookmark, Name:=bookmarkName
        Selection.InsertBreak Type:=wdPageBreak ' 可选，用于在每个表格之间插入分页符
        
        ' 插入表格
        Selection.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:=3 ' 根据需要设置表格的行数和列数
        
        ' 扩展书签范围以包含新添加的表格
        ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=bookmarkName
    Next i
End Sub