将Excel中的文本粘贴到Word标题中？答案

【问题标题】：pasting text from Excel in Word header?将Excel中的文本粘贴到Word标题中？
【发布时间】：2011-04-05 11:19:02
【问题描述】：

我正在尝试将 Belkin 添加到我的 word 文档的标题中。

情况： Excel: A1 = Belkin | Word: header needs to get Belkin

【问题讨论】：

【解决方案1】：

这里有一个快速而肮脏的 Excel VBA 让你开始 - 创建一个新的 word 应用程序/word doc 并将 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

希望这会有所帮助....祝你好运

【讨论】：

感谢这项工作！现在我要再给你发一次错误 :) 如果我想在现有标题中添加文本怎么办？
你会如何手动操作？ 也许你会搜索正确的插入位置，将插入标记放在那里并拍摄文本......或者你会移动到预定义的书签 .... 或者通过插入字段（可能是自定义属性）来准备标题并更新属性的值...制定策略，看看你将如何实施它，当你遇到困难时，提出一个问题再次。祝你好运
也许这可以激发你的灵感——这与你想要的有点相反，但基本技术是一样的......stackoverflow.com/questions/3567441/…
嗯，我用手将光标放在正确的位置并粘贴。但是使用插入标记听起来很完美。我认为这是我定义的一个点并且文本被插入到这里？感谢您的帮助！
yeep ... 这将是一个书签，因此书签可以是文档中的单个点或“扩展选择”，包括可以被插入文本覆盖的 xyz 字母/行。 . 手动定义书签，看看如果你跳到它们上它们的行为（= .select 它们），然后在 VBA 中编写相同的代码