光标位置

xlpfd

每一次打开word时光标默认在最开头，如果文档很长每次对稿都不知对到哪？

如何设置：打开时光标定位在上次保存后的位置

ybird

可以这样试试：文档关闭前（document_close事件）将光标位置记录在任何一个文档中，甚至可以记录在被保存文档本身的某个位置，下次打开时（document_open事件）再从文档或某一固定位置中取得光标位置，然后简单地进行定位即可。具体的程序那只有麻烦守版主了。

不知还有没有其他方法。

cxffxc

打开文档时，按下Shift+F5试试看

konggs

好像不行啊！

守柔

以下是引用cxffxc在2005-6-6 22:32:00的发言： 打开文档时，按下Shift+F5试试看

使用SHIFT+F5是可行的.

如果楼主需要更方便,我做个小程序,也没有关系,很简单的.

konggs

有时不行的！

例如：

你打开一篇wrod（设此时为A状态）文章，把光标放在某位置后（例如第5页），再退出word，它不会叫你保存的（如果你没做什么的话，即使你保存，也没有反应）（设此时为B状态），再打开，按shift+f5，看一下，它会到第5页？不会的！

它只会放在打开文章先前的第一次(A状态)的位置？！

不知守兄从何解释？

[此贴子已经被作者于2005-6-7 12:48:08编辑过]

守柔

以下是引用konggs在2005-6-7 12:13:00的发言：

可时不行的！

例如：

你打开一篇wrod（设此时为A状态）文章，把光标放在某位置后（例如第5页），再退出word，它不会叫你保存的（如果你没做什么的话，即使你保存，也没有反应）（设此时为B状态），再打开，按shift+f5，看一下，它会到第5页？不会的！

它只会放在打开文章先前的第一次(A状态)的位置？！

不知守兄从何解释？

konggs：

你非常认真,而且,你说的,也是正确的.

通常情况下SHIFT+F5可以定位在前几次的光标位置中移动。

当我们想要在结束文档前，让程序记住最后的光标位置，(按楼主所说,显然,他的工作中,应该有文档变化),则必须使文档的.SAVED属性为FALSE时,方可行(可在VBE的THISDOCUMENT的属性中看到SAVED属性).具体的做法:

将最后光标位置定位时,加入一个空格或者使其选定某个文字,改变其文字格式如粗体为非粗体,非粗体为粗体.然后保存文档.再次打开时,按下SHIFT+F5可以切换到最后一次定位的光标位置上.

稍后我写一小段代码,非常方便.

守柔

请启用宏.

注意,该代码将强制保存,如果好用,我再作修改为提示是否需要保存.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-6-7 12:48:13
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit

Private Sub Document_Close()
'在文档退出时引发的事件中
    On Error Resume Next
    With ThisDocument
        '将光标起始位置赋值给文档变量("START")
        .Variables("Start").Value = Selection.Start
        '将光标结束位置赋值给文档变量("END")
        .Variables("End").Value = Selection.End
        .Save    '保存文档
    End With
End Sub
'----------------------
Private Sub Document_Open()
    With ThisDocument
        '如果文档变量的数量少于2,则新增两个文档变量
        If .Variables.Count < 2 Then
            .Variables.Add Name:="Start", Value:=0
            .Variables.Add Name:="End", Value:=0
        Else
            '选定区域
            .Range(.Variables("Start").Value, .Variables("End").Value).Select
        End If
    End With
End Sub
'----------------------

[此贴子已经被konggs于2007-2-14 7:57:43编辑过]

konggs

先“抄”下来再说，谢了，守哥

研究，研究，有问题再请救！

henterwu

又一次佩服守柔老师对文档变量的应用。真是无话可说了！