有VBA高手吗 求一段代码 word 根据光标位置插入书签,打开此文档自动跳到书签位置

1、可以定义一个书签 “课程辅助”，值是一个无意义的东东，比如 AAAAA

在需要的地方插入书签

2、定义书签 “课程" ，值是 数学

3、按下alt+F9,ctrl+H，输入”课程辅助“， “课程"，全部替换

4、按下alt+F9，F9

代码：

ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="xx"

ThisDocument.Save

Selection.GoTo What:=wdGoToBookmark, Name:="mingzi "

添加书签步骤：①.选择要为其指定书签的对象，或单击要插入书签的位置。②.执行“插入”→“书签”。③.在“书签名”框中，键入书签名，也可以在下面的列表中选择一个已有的书签名。注意：书签名必须以字母、汉字、中文标点等开头，可以包含数字但中间不能有空格。④.单击“添加”按钮，新的书签名将出现在下面的列表中。注意：a.如果新插入位置或新对象采用的是已有的书签名，原有的书签将自动取消。b.为一项内容指定书签，该书签会以灰色括号 ([…]) 的形式出现(括号仅显示在屏幕上，不会打印出来)为一个位置指定的书签，则该书签会显示为灰色I形标记。ctrl+shift+F5就是调用插入-书签这个命令的

---