블로그 이미지
이비그치면

태그목록

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함

calendar

1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
문서의 첫페이지는 매크로 실행과 관련된 주의 및 지시사항, 옵션등이 위치하는
페이지로 만들기때문에  2페이지부터가 실제문서가 된다

그래서 제일 먼저 해야 할 작업이 2페이지부터 마지막 페이지까지 COPY해서
새 문서에 붙여넣기(PASTE)하는 작업이다

아래가 code snippet 이다

Documents("C:\test_01.docm").Activate

p1 = 2
   
Set rng = ActiveDocument.Range
Selection.GoTo wdGoToPage, wdGoToAbsolute, p1
rng.Start = Selection.Start
Selection.EndKey Unit:=wdStory

rng.Copy
    
    
sFileName ="outdoc.docx"
Application.Documents.Add.SaveAs FileName:=sFileName
Set NewDoc = Application.Documents.Open(sFileName)
NewDoc.Bookmarks("\EndOfDoc").Range.Paste


위의 코드를 실행해볼수 있는 문서이다

 test_01.docm