中易网

在Word看一篇文章时 如果看到第60页 当关了以后下次打开时 怎么可以直接跳在第60页?怎么设置的?

答案:1  悬赏:10  
解决时间 2021-01-15 19:11
  • 提问者网友:饥饿走向夜
  • 2021-01-14 19:44
在Word看一篇文章时 如果看到第60页 当关了以后下次打开时 怎么可以直接跳在第60页?怎么设置的?
最佳答案
  • 二级知识专家网友:廢物販賣機
  • 2021-01-14 20:02
方法一、WORD中的书签功能!
方法:插入书签:插入---书签;在打开的对话框中输入书签名点击“添加”。以后须要时:插入---书签;在打开的对话框中选择书签名点击“定位”。
方法二、在关闭前的阅读位置输入任意一个字符,例如输入一个数字1,然后将其删除,再保存文档(这个过程最多也就需要3秒钟)。当下次打开该文档时,按【Shift+F5】组合键将跳转到上次编辑的位置,也就是关闭前的阅读位置。当然,楼主要完全自动化定位阅读位置,那非编程不可了。
方法三、可试试如下程序。将代码置于Normal共用模板的ThisDocument中,如想打开文档时自动定位,可将MyPosition过程名称改为AutoOpen。其他相关说明见代码文本。

Sub AutoClose()
PositionMarking
End Sub

Sub MyPosition()
'根据文档变量数据定位活动文档插入点
Dim aVar As Variable, TF As Boolean, Info As String, MyPosition As Long
On Error Resume Next
With ActiveDocument
For Each aVar In ThisDocument.Variables
If aVar.Name = "oPositions" Then
TF = True
Info = aVar.Value
Exit For
End If
Next aVar
If TF = True And InStr(Info, "|" & .Name) Then
Info = Mid(Info, InStr(Info, "|" & .Name))
Info = Split(Info, "|")(1)
Info = Split(Info, vbTab)(1)
.Range(CLng(Info), CLng(Info)).Select
End If
End With
End Sub

Sub PositionMarking()
'将活动文档关闭时光标在正文中的位置保存到公用模板的文档变量
'对文件名相同但保存路径不同的文档,将当作相同文档处理;新建但放弃保存的文档不作记录。
Dim aVar As Variable, p As Long, Num As Integer, oValue As String, myInfo As String
With ActiveDocument
If .Name Like "文档 #*" = False Then
p = Selection.Start
For Each aVar In Me.Variables
If aVar.Name = "oPositions" Then
Num = aVar.Index
oValue = aVar.Value
Exit For
End If
Next aVar
If Num = 0 Then
Me.Variables.Add Name:="oPositions", Value:="|" & .Name & vbTab & p
Else
If UBound(Split(oValue, "|")) > 50 Then '暂定保存最近打开的50个文件名不同的文档插入点定位数据,可自行适当修改数值
oValue = Left(oValue, InStrRev(oValue, "|") - 1)
End If
If InStr(oValue, "|" & .Name) Then
myInfo = Mid(oValue, InStr(oValue, "|" & .Name))
myInfo = "|" & Split(myInfo, "|")(1)
Me.Variables("oPositions").Value = Replace(oValue, myInfo, "|" & .Name & vbTab & p)
Else
Me.Variables("oPositions").Value = "|" & .Name & vbTab & p & oValue
End If
End If
End If
End With
'Me.Save
End Sub

原想剔除页数不足3页的文档数据记录,以减少不必要的记录数据,但因此会导致弹出是否保存文档的对话框,与初衷不符。现在的效果是不管活动文档打开后是否进行过保存,都可记录关闭时的插入点位置,适用于阅读只读文档或不想改变文档属性数据等情形。不足之处是数据只保存于用户电脑的Normal模板文档,不随活动文档保存,且数据长度(记录文件数)需作设定,否则数据过大可能对模板有所影响。

前2张,打开的时候需要操作,第三种设置的时候很麻烦。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息