在Word标题中粘贴Excel中的文本？

Question

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

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

Answer 1

这是一个快速的＆amp;脏Excel VBA让你前进 - 创建一个新的单词应用程序/ 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

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