[Excel VBA] MS WORD 자동화 (5) - 특정 페이지, 줄번호 이동

 

기존에 작성된 Word 문서에서 특정 페이지의 줄로 위치를 이동하는 예제를 만들었다.

문서를 수정하고 스타일을 덮어씌울려면 임의 위치로 이동하는 방법이 요긴할 것이다.

 

문서의 특정 페이지와 줄로 커서를 이동하고 등록된 스타일 적용하는 예제

---

 

Sub OpenWordDocment()

Dim WordApp As New Word.Application ' Word 문서를 객체로 설정
WordApp.Visible = True              'New Apps will be hidden by default, so make visible

' 신규 문서 추가
Dim WordDoc As New Word.Document
Set WordDoc = WordApp.Documents.Open("C:\WORKS\WORD MACRO\AMEM.DOCX", False)

WordApp.Selection.GoTo wdGoToPage, wdGoToAbsolute, 2 	' go to Page 2
WordApp.Selection.GoTo wdGoToLine, wdGoToRelative, 3	' go to 3 lines of page 2
WordApp.Selection.Style = "Your Style"					' Apply Style


' 매크로가 끝났을 때, 컴퓨터의 메모리를 관리하기위해 word 객체를 제거한다
Set WordApp = Nothing               'release the memory
Set WordDoc = Nothing               'release the memory

End Sub