wps VBA 添加书签

 

添加书签

为每个段落添加一个书签

 

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

 

你可能感兴趣的:(wps VBA 添加书签)