word批量添加书签

用宏吧。下面这个代码为选中表格的第一列的所有行都添上形如“Bookmark_1、Bookmark_2、Bookmark_3”的书签。试试看：  word批量添加书签

1、选中那个表格；
2、键入Alt+F11打开VBA编辑器，选择菜单“插入-模块”；
3、在代码编辑区中粘贴如下内容：
Sub BatchAddBookmarks()

    Dim oRow As Row
    
    For Each oRow In Selection.Tables(1).Rows
        oRow.Cells(1).Range.Bookmarks.Add ("Bookmark_" & oRow.Index)
    Next
    
    MsgBox "Done!"

End Sub
4、键入F5运行，看到“完成！”结束；
5、Alt+Q切换回Word文档窗口，检查书签是否添加正确。