从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中粘贴文本？

回答

相关问题