avogt3001
-
Gesamte Inhalte
2 -
Registriert seit
-
Letzter Besuch
Fortschritt von avogt3001
-
per VBA Tabellenfarbe in Word-Kopfzeile ändern
avogt3001 antwortete auf ein Thema von avogt3001 in: Windows Forum — Scripting
'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 -
per VBA Tabellenfarbe in Word-Kopfzeile ändern
avogt3001 hat einem Thema erstellt in: Windows Forum — Scripting
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