從Word中的Excel中粘貼文本？

我試圖將Belkin添加到我的word文檔的標題中。從Word中的Excel中粘貼文本？

現狀： Excel: A1 = Belkin | Word: header needs to get Belkin

2011-04-05 CustomX

這裏有一個快速&骯髒的Excel VBA讓你去 - 創建一個新的Word應用程序/ Word文檔並粘貼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

希望這會有所幫助....祝你好運miked

來源

2011-04-05 16:49:53 MikeD

謝謝你的工作！現在我要再次bug你:)如果我想添加文本到現有的頭文件怎麼辦？ – CustomX 2011-04-06 07:21:52

*你會怎麼做？*可能你會搜索正確的插入位置，將插入標記放在那裏並拍攝文本...或者你會移動到預定義的書籤....或準備標題通過插入一個字段（也許是一個自定義屬性）並更新屬性的值......制定一個策略，看看你將如何實現它，當你陷入困境時，再次發出一個問題。祝你好運 – MikeD 2011-04-06 10:01:28

也許這可以激發你 - 它與你想要的相反，但基本的技術是相同的.... http://stackoverflow.com/questions/3567441/extract-data-from-word- document-to-excel-spreadsheet/3611739＃3611739 – MikeD 2011-04-06 10:09:34

從Word中的Excel中粘貼文本？

回答

相關問題