avogt3001

Gerade eben schrieb Sunny61:

Was alles hast Du denn schon versucht? Zeig doch mal den Code, der nicht funktioniert.

'Header weiss färben
            ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
            Dim aTable As Table
            Dim oHF As HeaderFooter
            Set oHF = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
            
            Set aTable = oHF.Range.Tables.Add(Range:= _
            oHF.Range, NumRows:=1, NumColumns:= _
            2, DefaultTableBehavior:=wdWord9TableBehavior, _
            AutoFitBehavior:=wdAutoFitWindow)
            
            With aTable
            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
            .Borders(wdBorderRight).LineStyle = wdLineStyleNone
            .Borders(wdBorderTop).LineStyle = wdLineStyleNone
            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
            .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
            .Borders.Shadow = False
            .Shading.BackgroundPatternColor = wdColorBlue
            .Shading.ForegroundPatternColor = wdColorBlueGray
            .Shading.BackgroundPatternColorIndex = wdBlack
            End With

          ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Hallo,

wie kann ich per VBA Macro im Word eine Tabellenfarbe (Hintergrund) in der Kopfzeile ändern, jegliche Versuche schlugen hier bisher fehl..

Danke,

Andreas Vogt