【www.bbyears.com--word】
word-spacing:="" -webkit-text-stroke-width:="" height="256" width="256" border="1"/>
word-wrap: break-word; margin: 5px 0px; color: rgb(0, 0, 0); font-family: " sans="" font-size:="" font-style:="" font-variant-ligatures:="" font-variant-caps:="" font-weight:="" letter-spacing:="" orphans:="" text-align:="" text-indent:="" text-transform:="" white-space:="" widows:="" word-spacing:="" -webkit-text-stroke-width:="">用宏吧。下面这个代码为选中表格的第一列的所有行都添上形如“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文档窗口,检查书签是否添加正确。