[求助]守柔老师或哪位热心人帮忙啊

duke008

Sub bookmarkb()
Application.ScreenUpdating = False
Dim k As Integer, m As String, findchar As String
findchar = "sgm news clipping from china"
k = 1
With ActiveDocument.Content.find
Do While .Execute(findtext:=findchar) = True
m = k
Selection.find.Execute
ActiveDocument.Bookmarks.Add Name:="b" & m
k = k + 1
Loop
End With
Application.ScreenUpdating = True
End Sub

想在文档中找到所有"sgm news clipping from china"，然后给其按顺序加个书签，我运行该程序时，书签全都加在光标当前位置了，而不是加在每条"sgm news clipping from china"上，请问怎么回事？

另外，现在的书签是按b1,b2,......这样排的，我想把它改成按b001,b002,.....这样排，请问如何作呢？

本想先学再问，无奈工作急需，以前又没学过，只好厚颜麻烦各位大侠了。

duke008

版主把这个帖子删除了吧，我的问题都集中在《自动插入超链接怎么作啊？望高人指点 》这个帖子里了。