添加书签
为每个段落添加一个书签
Sub AddBookmark() Dim arParagraphs As Paragraphs Set arParagraphs = Application.ActiveDocument.Paragraphs For i = 1 To arParagraphs.Count Application.ActiveDocument.Bookmarks.Add "bm" & CStr(i), arParagraphs(i).Range Next End Sub
为每个段落添加一个书签
Sub AddBookmark() Dim arParagraphs As Paragraphs Set arParagraphs = Application.ActiveDocument.Paragraphs For i = 1 To arParagraphs.Count Application.ActiveDocument.Bookmarks.Add "bm" & CStr(i), arParagraphs(i).Range Next End Sub