怎样让word文档每次打开都停留在上一次关闭前的阅读处

13907933959 · 发表于 2018-6-9 10:04

就如PDF文档，每次打开都停留在上一次关闭前的阅读处一样，请前辈们赐教！谢谢！

413191246se · 发表于 2018-6-9 10:29

本帖最后由 413191246se 于 2018-6-9 11:28 编辑

Shift + F5——哎呀！回答错了，这是关闭前的编辑处！如果是阅读处，须判断光标所在位置，WAIT......*
* 建议徒弟 139 事先把要阅读的原文档备份一下，因为下面的方法要反复保存你要阅读的文档：
* 请将下面两个宏拷贝到 VBE 中（如果已经有同名的宏，可以将 Sub...End Sub 间的代码拷贝到同名宏最后），即可实现你的要求：
* 139，要想达到你的目的，请做到两点：
1、把两个宏中的 .Name = 后面的双引号中的文件名换成你要长期阅读的文档的文件名（不要写.doc，写短文件名，标题栏显示的文件名）。
2、每次关闭此文档时，在问到“是否保存对此文档的更改？”要点击“是”才可以。
* 如果 139 你以眼神儿当光标，你的问题似乎无解！但如果以光标所在位置为最后阅读标志，则我的方法可以达到你的要求；代码与其它文档无关。
* 如需更好的办法，请等待杜先生等大神！

Sub AutoOpen()
'回到上次阅读处
If ActiveDocument.Name = "质量员装饰" & ".doc" Then '将“质量员装饰”这5个字换成你要长期阅读文档的文件名（不要写.doc）
With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.Execute "```13907933959```", , , 0, , , 1
If .Found = True Then .Parent.Delete
End With
End With
End If
End Sub
Sub AutoClose()
'记住上次阅读处
If ActiveDocument.Name = "质量员装饰" & ".doc" Then '将“质量员装饰”这5个字换成你要长期阅读文档的文件名（不要写.doc）
Selection.TypeText Text:="```13907933959```"
End If
End Sub

复制代码

13907933959 · 发表于 2018-6-9 13:09

本帖最后由 13907933959 于 2018-6-9 14:21 编辑

413191246se 发表于 2018-6-9 10:29
Shift + F5——哎呀！回答错了，这是关闭前的编辑处！如果是阅读处，须判断光标所在位置，WAIT......*
* ...

师傅好！
今年我中医师傅让我进入临床阶段，白天与实案接触，晚上看医案（医案无需编辑和修改），医案都很长（短的几百页，长的几千页），可每天接着看的时候都要找到昨天的地方，只能看完后留下一个▲符号，第二天再查找该符号，感觉不是很方便，有时忘了留▲符号，就没办法，很想通过什么设置或有一个一劳永逸的方法，能像PDF文档，不用什么操作每次重新打开都能自动停留在上一次关闭前的阅读处一样。感谢师傅提供的二个方法，比我的方法要好一些，在未有更好的方法前，先用您的方法一（Shift + F5）。

期待其他的前辈们提供更好的方法，谢谢！

daibao88 · 发表于 2018-6-9 17:01

这个应该用vba 书签自动宏处理

13907933959 · 发表于 2018-6-10 08:33

daibao88 发表于 2018-6-9 17:01
这个应该用vba 书签自动宏处理

您好！
能劳您给一个 VBA 书签自动宏吗？
谢谢！

excelhometiger · 发表于 2018-6-10 10:05

不如将Word另存为PDF如何？这大概是最简单的方法了。

13907933959 · 发表于 2018-6-10 13:45

excelhometiger 发表于 2018-6-10 10:05
不如将Word另存为PDF如何？这大概是最简单的方法了。

你好！
感谢回复，不能存为PDF文档。

nzkboy · 发表于 2018-6-13 13:43

安装office2013以上的版本就自带这功能

13907933959 · 发表于 2018-6-13 15:23

nzkboy 发表于 2018-6-13 13:43
安装office2013以上的版本就自带这功能

你好！
感谢回复，因我用的电脑是医院的，office版本是2003，医院的很多东西都和它捆绑在一起了，如升级版本医院的很多东西就用不了。

wdpfox · 发表于 2018-6-13 22:08

安装个带word插件的pdf软件

		自动登录	找回密码
密码			免费注册

[求助] 怎样让word文档每次打开都停留在上一次关闭前的阅读处