Excel nach Word
Hendryk
mir wurde hier heute schon tatkräftig geholfen und dafür danke ich euch sehr. Ich habe jedoch noch ein Problem. Vorweg, ich möchte gerne aus Excel heraus ein Word Dokument erstellen. Das funktioniert auch soweit, nur besteht evtl. auch die Möglichkeit die Formatierung mit auf den Weg nach Word zu geben.
Zum Beispiel, die Kopfzeile mittig zu formatieren, Schriftgröße etc. Ich weiß einfach nicht, wo ich ansetzen soll.
Vielen Dank!!!
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
Set Kopfzeile = Worddoc.Sections(1).Headers(1).Range
Kopfzeile.Text = "Hallo Welt"
With WordObj.Selection
.TypeText Text:="Hallo"
.TypeParagraph
.TypeText Text:="Hallo_1" & vbCrLf
End With
End Sub