2010-07-01 1 views

답변

2

다음을 코드 모듈에 넣으십시오. AutoOpen 루틴은. 서를 열 때마다 실행됩니다.

Public Sub AutoOpen() 
    Dim currentDocument As Document 
    Set currentDocument = ActiveDocument 

    Dim sourceDocument As Document 
    Set sourceDocument = Application.Documents.Open(FileName:="e:\mySourceName.docx") 
    sourceDocument.Range.Copy 
    sourceDocument.Close wdDoNotSaveChanges 
    Set sourceDocument = Nothing 

    Dim pasteRange As Range 
    Set pasteRange = currentDocument.Range 
    pasteRange.Collapse wdCollapseEnd 

    pasteRange.Paste 
End Sub 
관련 문제