Word 헤더에서 Excel의 텍스트 붙여 넣기?

Question

내 워드 문서의 헤더에 Belkin을 추가하려고합니다.

상황 : Excel: A1 = Belkin | Word: header needs to get Belkin

Answer 1

여기에 당신이 가야 빠른 & 더러운 엑셀 VBA의 - ... 새로운 단어 응용 프로그램/워드 문서를 작성하고 헤더에 A1의 내용을 붙여

Sub CreateWordDocWithHeader() 
Dim WApp As Word.Application 
Dim WDoc As Word.Document 
Dim WRng As Word.Range 

    Set WApp = New Word.Application 
    WApp.Visible = True 
    Set WDoc = WApp.Documents.Add 
    Set WRng = WDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range 
    WRng = ActiveSheet.[A1] 

    Set WRng = Nothing 
    Set WDoc = Nothing 
    Set WApp = Nothing 
End Sub 

희망이 있습니다 .... 행운을 빕니다