Word批量给每个单元格插入书签

项目中需要生成word报表。网上找了些用代码直接生成word文档的示例，随便一个简单的页面要写一篇的代码来描述。于是计划使用一个现成的word模板，然后通过向里面书签插入值的方法来代替。

当表格中存在大量单元格时，一个一个添加书签非常麻烦。于是使用脚本来替代重复的工作。

在word页面Alt+F11打开编辑器，

输入

Sub TestAddMarket()

    Dim MyBk As Bookmark
    For Each MyBk In ActiveDocument.Bookmarks
        MyBk.Delete
    Next
    
    For r = 3 To 37 Step 1
        For c = 2 To 13 Step 1
            Selection.Tables(1).Cell(r, c).Range.Bookmarks.Add ("bk" & r - 2 & "_" & c - 1)
        Next c
    Next r
    
End Sub

该脚本会先删除文档里的所有书签，然后从第3（r）行2（c）列开始插入书签（bk1_1,bk1_2。。。）