Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel nach Word

Excel nach Word
Hendryk
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Word Kopfzeile formatieren
26.02.2010 08:06:17
Reinhard
Hallo Hendryk,
Option Explicit
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")
If Err.Number = 429 Then
Set WordObj = CreateObject("Word.application")
Err.Number = 0
End If
WordObj.Visible = True
Set Worddoc = WordObj.Documents.Add
Set Kopfzeile = Worddoc.Sections(1).Headers(1).Range
With Kopfzeile
.Text = "Hallo Welt"
.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
With .Font
.Name = "Wingdings"
.Size = 16
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.Strikethrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End With
With WordObj.Selection
.TypeText Text:="Hallo" & vbCrLf
'.TypeParagraph
.TypeText Text:="Hallo_1"
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Word Kopfzeile formatieren
26.02.2010 11:02:54
Hendryk
ich danke dir vielmals

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige