워드문서 열 때 자동으로 마지막 편집 페이지로 이동하기

 

참고: 지식인

이 글은 워드 파일을 열었을 때 마지막에 편집했던 페이지로 돌아가는 기능에 대한 것입니다.

 

예전 워드2003시절에는 Shift+F5키로 마지막 저장 페이지로 이동할 수 있으나

요즘 버전에서는 지원하지 않는 기능입니다.

 

VBA에서도 아래와 같이 이전 책갈피 위치로 돌아가는 명령어가 사용가능했지만

현재는 작동하지 않습니다.

Application.GoBack
Selection.GoTo What:=wdGoToBookmark, Name:="\PrevSel1"

​

 

대신 저장하고 파일을 열면 아래와 같은 표시가 떠서

이걸 누르면 이전에 저장했던 페이지로 이동할 수는 있습니다.

​

자동으로 마지막으로 편집하던 페이지가 열리게 하려면

아래와 같은 VBA를 이용해야겠습니다.

 

AutoClose 함수를 이용해서 파일을 닫을 때 현재 위치를 LastRange라는 책갈피에 저장하고

AutoOpen 함수를 이용해서 파일이 열릴 때 LastRange라는 책갈피 위치로 이동합니다.

 

Option Explicit

Sub AutoOpen()
    
      ' Shift+F5 no longer works since Word 2007
      ' Application.GoBack
      ' Selection.GoTo What:=wdGoToBookmark, Name:="\PrevSel1"
    
    With ActiveDocument
        If .Bookmarks.Exists("LastRange") Then
            .GoTo What:=wdGoToBookmark, Name:="LastRange"
            '.Bookmarks("LastRange").Range.Select
            '현재 윈도우화면창에 해당 영역(페이지)가 보이도록 뷰를 스크롤
            .Windows(1).ScrollIntoView .Bookmarks("LastRange").Range, True
        End If
    End With
 
End Sub

Sub AutoClose()

    'Selection.Information (wdActiveEndPageNumber)

    ActiveDocument.Bookmarks.Add "LastRange", Selection.Range
    '저장할까요? 메시지가 뜨지 않도록
    ActiveDocument.Save
    ActiveDocument.Saved = True
End Sub

 

 

저장을 하게되면 이 파일에는 LastRange라는 책갈피가 들어 있게 됩니다.

F5키를 누르고 해당 책갈피로 직접 이동해도 됩니다.

 

 

 

샘플 파일:

GotoLastPage1.docm

0.03MB

 

 

 

참고 : Word Auto Macro함수들

https://learn.microsoft.com/en-us/office/vba/word/concepts/customizing-word/auto-macros

Auto Macros

 

 

 

 

참고:  PPT파일에서 마지막 편집 슬라이드로 이동하기

https://konahn.tistory.com/entry/RememberLastPage

파일 열 때 마지막 편집 슬라이드 위치로 이동하기