April hat eine Tabelle in ihrem Word-Dokument. Eine Zeile ist mit einer benutzerdefinierten Farbfüllung formatiert, die der Logo-Farbe des Unternehmens entspricht. April möchte diese Füllfarbe nun in andere Zeilen kopieren. Sie hatte gehofft, den Format Painter verwenden zu können, aber das kopiert nur das Textformat, nicht die in den Tabellenzellen verwendete Füllfarbe. April fragt sich, ob es eine Möglichkeit gibt, die Füllfarbe von einer Zeile in eine andere zu kopieren.

Es gibt verschiedene Möglichkeiten, wie Sie dieses Problem angehen können. Eine besteht darin, einfach die in Word verfügbaren Tools zu verwenden. Befolgen Sie diese Schritte:

  1. Wählen Sie die Zeile aus, die bereits mit der gewünschten Farbe gefüllt ist.

  2. Zeigen Sie die Symbolleiste Tabellen und Rahmen an (klicken Sie auf Ansicht | Symbolleisten | Tabellen und Rahmen).

  3. Klicken Sie auf den Abwärtspfeil rechts neben dem Werkzeug Schattierungsfarben in der Symbolleiste. (Das Werkzeug sieht aus wie ein verschütteter Farbeimer.) Word zeigt eine Farbpalette an.

  4. Klicken Sie auf Weitere Füllfarben. Word zeigt das Dialogfeld Farben an. (Siehe Abbildung 1.) Die Farbe der ausgewählten Zeile sollte bereits im Dialogfeld angezeigt werden.

  5. OK klicken. (Beachten Sie, dass Sie im Dialogfeld keine Änderungen vorgenommen haben. Sie haben nur auf OK geklickt.)

  6. Wählen Sie die anderen Zeilen in der Tabelle aus, deren Hintergrundfarbe Sie ändern möchten.

  7. Klicken Sie in der Symbolleiste Tabellen und Rahmen auf das Werkzeug Schattierungsfarben.

Ihre gewünschte Farbe wird auf die ausgewählten Zeilen angewendet.

Nachdem Sie die gewünschte Farbe angewendet haben und sie an einer anderen Stelle anwenden möchten (möglicherweise in einer anderen Tabelle oder in einigen Zellen, die Sie verpasst haben), müssen Sie nur die Zellen auswählen und F4 drücken. Die Schattierung wird für die ausgewählten Zellen wiederholt.

Wenn Sie dies mit einer Reihe von Tabellen oder in einer Reihe von Dokumenten ziemlich oft tun müssen, sollten Sie ein Makro verwenden, um die Schattierung durchzuführen. Ein praktisches kleines Makro ist das folgende:

Sub ShadeTable()

Dim backColor As Long     Dim foreColor As Long

If Selection.Information(wdWithInTable) Then         With Selection.Tables(1)

backColor = .Cell(1, 1).Shading.BackgroundPatternColor             foreColor = .Cell(1, 1).Shading.ForegroundPatternColor             .Shading.BackgroundPatternColor = backColor             .Shading.ForegroundPatternColor = foreColor         End With     Else         MsgBox "Put the insertion point in a table"

End If End Sub

Das Makro schattiert eine gesamte Tabelle basierend auf der Schattierung, die in der ersten Zelle der ersten Zeile der Tabelle verwendet wird. Sie müssen lediglich sicherstellen, dass Sie die Einfügemarke irgendwo in der Tabelle platzieren, bevor Sie sie ausführen.

Dieses Makro ist eine Variation des auf der folgenden Website erwähnten Makros:

http://www.wordbanter.com/showthread.php?t=84194

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (10931) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Füllfarbe in eine Tabelle kopieren.