编码完善请求帮助

limshanb

我做了这样一个编码，它的功能是：打开一个word文件阅读或编辑，当关闭文件时会自动记住光标所在位置，并在该位置插入一个书签Z，下次打开文件时光标自动定位至该位置，我把代码设置到word模板中，用这个模板建立的文件就具有了这种功能，非常方便。但是有一个问题没有解决在这里请求帮助，我的问题就是：当用这个模板建立新文件时，如果该文件不做保存（放弃保存），系统就会跳出矿口询问是否保存文件，当选择不保存时，跳出一个框告知运行错误“4198”，点了结束后，还要点击放弃保存才能关闭word，比较麻烦，我想请大侠帮助改善编码，点击关闭文件后，象平常一样立刻关闭word，没有任何互动提问。请大侠帮忙，先谢谢了。
我的代码如下：

打开文件时的自动宏代码：

Sub AutoOpen() '打开文件自动定位到上次光标位置

Application.GoBack

End Sub

关闭文件时的自动宏代码：

Sub Autoclose() '关闭文件出时自动在光标处插入书签Z

     With ActiveDocument.Bookmarks

       .Add Range:=Selection.Range, Name:="z"

       .DefaultSorting = wdSortByName

       .ShowHidden = False

     End With

  ActiveDocument.Save

End Sub

我的问题是：当

limshanb

补充说明：其实我要的功能就是打开word后自动跳转到上次光标停留的位置，网友们若有好的方法请共享一下，先谢谢！