2,462
社区成员
发帖
与我相关
我的任务
分享
Sub TestAddMarket()
Dim num As Integer
num = 0
Dim MyBk As Bookmark
For Each MyBk In ActiveDocument.Bookmarks
MyBk.Delete
Next
For r = 3 To 15 Step 1
For c = 3 To 23 Step 1
Selection.Tables(1).Cell(r, c).Range.Bookmarks.Add("TextBox" & c + 1 + num * 21)
Next c
num = num + 1
Next r
End Sub
Sub TestAddMarket()
Dim num As Integer
num = 0
Dim MyBk As Bookmark
For Each MyBk In ActiveDocument.Bookmarks
MyBk.Delete
Next
For r = 7 To 8 Step 1
For c = 1 To 3 Step 1
Selection.Tables(1).Cell(r, c).Range.Bookmarks.Add ("TextBox" & c + 1 + num * 21)
Selection.GoTo What:=wdGoToBookmark, Name:=("TextBox" & c + 1 + num * 21)
ActiveDocument.Bookmarks(("TextBox" & c + 1 + num * 21)).Delete
Selection.EndKey
Selection.Bookmarks.Add ("TextBox" & c + 1 + num * 21), Selection.Range
Next c
num = num + 1
Next r
End Sub