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

excelhometiger

13907933959 发表于 2018-6-17 06:28
你好！
抱歉！因较忙、不能天天上线，回复晚了请见谅！
感谢回复，不能存为PDF文档。谢谢！

可能我在用词方面不太严谨，此另存非彼另存。
安装好doPDF虚拟打印机后，打开文档，点击打印，选择打印机doPDF，点击确定，就生成了一个PDF文件，相当于另存为PDF文件。

loquat

2013及以上自带这个功能
2010及以下用这个代码可以实现，放在通用模板Normal中

13907933959

413191246se 发表于 2018-6-19 09:30
139：关闭前键入 ***（或打一个空格），打开后按 Shift+F5 即可，这是最简单的办法了。

师傅好！
从上次你回复后，我就是用这个方法，有时太困了（每天差不多从早上6点半忙到晚上11点才能睡觉）忘了输入符号，第二天就要重新找。

13907933959

excelhometiger 发表于 2018-6-24 09:48
可能我在用词方面不太严谨，此另存非彼另存。
安装好doPDF虚拟打印机后，打开文档，点击打印，选择打印 ...

你好！
啊、是这样，这个我再试试。谢谢！

13907933959

loquat 发表于 2018-6-24 18:39
2013及以上自带这个功能
2010及以下用这个代码可以实现，放在通用模板Normal中

你好！
感谢回复！
我的office版本是2003的。我把代码照抄下来，放到通用模板Normal中，好像不成，可能是我在代码某处抄得不对（查看了几遍也没找到错在那里），也可能是具体的操作步骤不对，或是代码不完整？因我对VBA还是个门外汉，能否劳请你给一个完整的非图片格式可直接复制的代码及详细的操作步骤，在下将万分感谢！

Private WithEvents wdApp As Word.Application
Private Const vNaine As String = "上一次"
Private Sub Docunent_Open()
    Set vdApp = Application  '绑定对象，激活事件。
End Sub
Private Sub wdApp_DocuBentBeforeClose(ByVal Doc As Docuaent, Cancel As Boolean)
Dio strTeap$: strTeop = Selection.Start & "|" & Selection.End
If VarExist(Doc, vNane) Then
    Doc.Variables(vName) = strTeap
Else
    Doc.Variables.Add vName, strTeiap
End If
End Sub
Private Sub vdApp.DociuientOpen(ByVal Doc As Document)
If VarExist(Doc, vNane) Then
    Din arr
    arr = Split(Doc.Variables(vName).Value, "|")
    Doc.Range(arr(0), arr(1)).Select
    Doc.Saved = True  '避免麻烦。
End If
End Sub
Private Function VarExist(ByVal Doc As Docunent, ByVal Var$) As Boolean
Dim vTenp$
On Error Resuise Next
vTenp = Doc.Variables(Var).Name
VarExist = (vTeop <> "")
End Function

loquat

哈哈，多处抄错
要放到Normal模板的ThisDocument中

daibao88

分别在类模块，ThisDocument、普通模块中

13907933959

loquat 发表于 2018-6-27 15:33
哈哈，多处抄错
要放到Normal模板的ThisDocument中

你好！
感谢回复！

经逐字比对，确实错了多处，修正后的代码按你说的，放到Normal模板的ThisDocument中，可还是不起作用，是具体的操作步骤不对？或是代码不完整？因我对VBA还是个门外汉，能否劳请你给一个详细的说明，将感激不尽！

Private WithEvents wdApp As Word.Application

Private Const vNam As String = "上一次"

Private Sub Document_Open()

    Set wdApp =Application  '绑定对象，激活事件。

End Sub

Private Sub wdApp_DocumentBentBeforeClose(ByVal Doc As Document,Cancel As Boolean)

Dim strTemp$: strTemp = Selection.Start & "|"& Selection.End

If VarExist(Doc, vName) Then

    Doc.Variables(vName) = strTemp

Else

    Doc.Variables.AddvName, strTemp

End If

End Sub

Private Sub wdApp_DocumentOpen(ByVal Doc As Document)

If VarExist(Doc, vName) Then

    Dim arr

    arr = Split(Doc.Variables(vName).Value,"|")

    Doc.Range(arr(0), arr(1)).Select

    Doc.Saved = True  '避免麻烦。

End If

End Sub

Private Function VarExist(ByVal Doc As Document, ByVal Var$) AsBoolean

Dim vTemp$

On Error Resume Next

vTemp = Doc.Variables(Var).Name

VarExist = (vTemp <> "")

End Function

13907933959

daibao88 发表于 2018-6-27 21:49
分别在类模块，ThisDocument、普通模块中

你好！
感谢回复！
你的意思是将该整个代码，分别放在：“类模块，ThisDocument、普通模块”，几个不同地方？？？
能否劳请你详教？谢谢！

loquat

目测还是有抄错，vNam