вставить текст из Excel в заголовок Word?

Question

Я пытаюсь добавить Belkin в заголовок моего документа Word.

Положение: Excel: A1 = Belkin | Word: header needs to get Belkin

Answer 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

Надеюсь, это поможет .... Удачи, Майк