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

，可以通过以下步骤实现：

首先，确保已经在Word文档中创建了需要添加到书签的表格。
打开Word VBA编辑器，可以通过按下Alt + F11快捷键来打开。
在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新的模块。
在新的模块中，编写以下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