Question

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

RT

Answer 1

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 "

Answer 2

打开你的文档，进入vba编辑器。在工程窗口你的文档内添加一新的模块，粘贴下面的代码。
说明：
1. 代码在word2003中测试通过，如果是word2007等更高版本，不保证正常运行。
2. 每次关闭文档时自动在光标位置插入书签“abcd”，并保存。
3. 必须将宏安全级设为中或低，打开文档时必须启用宏。

' 以下为宏代码
Option Explicit
'此文档打开时自动运行
Sub AutoOpen()
Selection.GoTo What:=wdGoToBookmark, Name:="abcd"
End Sub

'此文档关闭时自动运行
Sub AutoClose()
'添加书签
ThisDocument.Bookmarks.Add "abcd", Selection.Range
'保存本文档
ThisDocument.Save
End Sub

Answer 3

打开WORD 选定光标位置，点击“插入”---书签----输入书签名称---添加
编辑----定位-----出现一个框框-----选择“书签”----点击定位。就可以了！

Answer 4

需要两段VBA

关闭文件时在光标处插入书签：
Private Sub Document_Close()
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="xx"
ThisDocument.Save
End Sub

打开时自动跳到书签位置：
Private Sub Document_Open()
Selection.GoTo What:=wdGoToBookmark, Name:="xx"
End Sub

Answer 5

Sub AutoOpen()
On Error Resume Next
Selection.GoTo What:=wdGoToBookmark, Name:="last"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub

Sub AutoClose()
On Error Resume Next
ActiveDocument.Bookmarks("last").Delete
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="last"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
ActiveDocument.Save

End Sub

放到该放的地方，你知道的。