Excel nach Word
Hendryk
ich versuch jämmerlich aus Excel heraus ein Word Dokument per VBA zu erstellen, das funktioniert auch soweit. Jedoch scheitere ich beim Versuch die Kopfzeile in Word zu kreieren. Weiß jemand Rat?
Vielen Dank und Viele Grüße aus Bonn
Hendryk
Hier noch mein bisheriger Code:
Sub ExcelnachWord()
Dim WordObj As Object
Dim Worddoc As Object
Dim Kopfzeile As Object
Dim i As Integer
On Error Resume Next
Set WordObj = GetObject(, "Word.Application.11")
If Err.Number = 429 Then
Set WordObj = CreateObject("Word.application.11")
Err.Number = 0
End If
WordObj.Visible = True
Set Worddoc = WordObj.Documents.Add
With WordObj.Selection
Set Kopfzeile = WordObj.Sections(1).Headers(wdHeaderFooterPrimary).Range
Kopfzeile.Text = "Hallo Welt"
.TypeText Text:="Hallo" & vbCrLf
.TypeParagraph
.TypeText Text:="Hallo_1" & vbCrLf
End With
End Sub