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文档窗口，检查书签是否添加正确。