Sub KopfFusszeilenSetzen()
Dim strGraphik As String
strGraphik = "C:\temp\beckymudy.jpg"
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
.Range.InlineShapes.AddPicture strGraphik
End Sub
Voraussetzung ist, dass du nur eine Hauptkopfzeile in einem Abschnitt hast.
Gruesse
Alexandra
geschrieben von Alexandra , 27.02.2006, 15:49 Uhr , 26 mal gelesen