Sub WordStarten()
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set doc = wd.documents.Add
With doc.Sections(1)
ActiveSheet.Shapes("Grafik 1").Copy
.Headers(1).Range.Paste
.Headers(1).Shapes(1).Top = 0
.Headers(1).Shapes(1).Left = 0
.Headers(1).Shapes(1).Height = .PageSetup.HeaderDistance
ActiveSheet.Shapes("Grafik 2").Copy
.Footers(1).Range.Paste
.Footers(1).Shapes(2).Top = 0
.Footers(1).Shapes(2).Left = 0
.Footers(1).Shapes(2).Height = .PageSetup.FooterDistance
ActiveSheet.Shapes("Grafik 3").Copy
.Footers(1).Range.Paste
.Footers(1).Shapes(3).Height = .PageSetup.FooterDistance
.Footers(1).Shapes(3).Top = 0
.Footers(1).Shapes(3).Left = .PageSetup.PageWidth - .PageSetup.LeftMargin - .PageSetup.RightMargin - .Footers(1).Shapes(3).Width
End With
End Sub