有时候我们需要这样的功能，即关闭word文档再打开的时候，word文档能够智能一些，自动定位到上次阅读的位置，目前高版本的office2013以上的版本已经能够自己实现，但在Office2007中并没有这个功能，我们就需要通过添加代码的方式实现这个功能。

1.随便打开一个office2017的word文档，然后同时按下Alt和F11键，打开VB编辑器，

如图所示，依次在左侧的Normal—–模块—–模块1中添加如下代码：

' 1. 文档关闭/保存前：在当前光标位置插入隐藏书签
Private Sub Document_Close()
On Error Resume Next
' 如果文档有修改则自动保存位置
ActiveDocument.Bookmarks.Add Name:="LastViewPos", Range:=Selection.Range
ActiveDocument.Save
End Sub

' 2. 打开文档时：延迟 1 秒调用跳转，等 Word 彻底准备好
Private Sub Document_Open()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "JumpToLastPos"
End Sub

按下Ctrl+S键保存。

然后点击插入—–模块，在弹出的输入框里输入以下代码，并按下Ctrl+S键保存。

Public Sub JumpToLastPos()
On Error Resume Next
' 检查是否存在上次保存的书签
If ActiveDocument.Bookmarks.Exists("LastViewPos") Then
ActiveDocument.Bookmarks("LastViewPos").Select
Application.StatusBar = "已自动跳转到上一次阅读/编辑的位置"
Else
' 如果没有书签，尝试使用内置 GoBack
Application.GoBack
End If
End Sub

如图所示：

此时再打开一个word文档测试一下，你会发现打开后就能自动定位到上次的位置了。