word 批量添加书签

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

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

用replace

pioneer可以批量对不同的文件做不同的替换。

假设有10000个文件，以及一个文件d:\test\a.txt，其中包含10000个替换词，现在需要:

把第1个文件里的“张三”替换为a.txt里第1行的内容，

把第2个文件里的“张三”替换为a.txt里第2行的内容，...以此类推

详细步骤如下：

1.打开replace

pioneer的tools->batch

runner菜单

2.把10000个文件从windows拖拽到batch

runner窗口中，确认顺序是正确的

3.点击fast

replace按钮

*

点击add添加替换规则:

在search输入"张三"

在replace输入file_line("a.txt",$file_no,"d:\\test\\")

*

完成后点击ok

*

确认reg

exp选项是选中的，然后点击start即可。

注意：

1.提前备份，以防 *** 作失误。

2.如果是添加不是替换，那么要看添加的具体位置，如果添加在文件尾，那么在search输入一个$即可。

原文参考这个例子，怎样把100行文本分别添加到100个文件头：

how

to

insert

100

different

lines

into

the

beginning

of

100

text

files?

---