oDoc.PageSetup.DifferentFirstPageHeaderFooter = True  'Seite 1 zu alle 
        ' anderen unterschiedlich
        For Each section As Word.Section In oDoc.Sections
            Dim headerRange As Word.Range = section.Headers( _
              Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
            Dim oTableHead As Word.Table
            oTableHead = oDoc.Tables.Add(headerRange, 1, 2)
            If BildPATH <> Nothing Then
                Dim headerimage As Word.InlineShape = oTableHead.Cell(1, _
                  1).Range.InlineShapes.AddPicture(FileName:=BildPATH, _
                  LinkToFile:=False, SaveWithDocument:=True)
                headerimage.ScaleWidth = 10
                headerimage.ScaleHeight = 10
            Else
                oTableHead.Cell(1, 1).Range.Text = ""
            End If