Michael hat einen Tisch, der ziemlich lang ist. Eine Spalte der Tabelle enthält Codierungszeichen wie die Buchstaben c, b, x usw. Er fragt sich, ob es beim Drucken der Tabelle eine Möglichkeit gibt, nur die Zeilen zu drucken, die ein bestimmtes Codierungszeichen in der Spalte haben. Beispielsweise möchte er möglicherweise nur die Zeilen drucken, die den Code „c“ in der Codierungsspalte enthalten.

Es gibt verschiedene Ansätze, mit denen Sie dieses Problem lösen können.

Am einfachsten wäre es vielleicht, die Tabelle in ein Excel-Arbeitsblatt zu kopieren und die Daten dann anhand der Zeichen in der Codierungsspalte zu filtern. Sie können dann das gefilterte Arbeitsblatt drucken und haben genau das, was Sie wollen.

Natürlich kann es vorkommen, dass die Arbeit in Excel anstelle von Word nicht praktikabel oder wünschenswert ist. Beispielsweise verfügen Sie möglicherweise nicht über Excel oder haben möglicherweise Formatierungsanforderungen, die über das hinausgehen, was Excel bieten kann. In diesem Fall können Sie Ihre Tabelle einfach in Word nach dem Inhalt der Codierungsspalte sortieren. Wählen Sie dann die Tabellenzeilen aus, die den Code enthalten, den Sie drucken möchten (sie sollten alle zusammenhängend sein, da Sie die Tabelle sortiert haben), und wählen Sie den Druck aus. Wenn Sie angeben, was gedruckt werden soll, drucken Sie jedoch nur die Auswahl.

Ein anderer möglicher Ansatz besteht darin, Ihre Tabelle als Datenquelle für einen Seriendruck zu verwenden. Ich werde nicht auf die genauen Schritte eingehen, die beim Entwerfen des Seriendrucks zu verwenden sind (sie wurden in anderen WordTips behandelt), aber Sie können angeben, dass der Seriendruck nur diejenigen enthält, die das gewünschte Zeichen in der Codierungsspalte haben.

Wenn Sie diesen selektiven Druck häufig ausführen müssen, möchten Sie möglicherweise ein Makro erstellen, um die Aufgabe zu erledigen. Der einfachste Weg, dies zu tun, besteht darin, dass das Makro ein neues Dokument erstellt und die gewünschten Zeilen in dieses Dokument kopiert.

Sub CopyTableRows()

Dim SourceDoc As Document     Dim r As Row     Dim iCol As Integer     Dim sPCode As String     Dim sTemp As String

iCol = 3        ' Set the coding column     sPCode = "C"    ' Set code to select (must be uppercase)



ScreenRefresh = False

Set SourceDoc = ActiveDocument      ' Get active document's name     Documents.Add       ' Create a new document

' Find all rows that have correct code in the coding column     For Each r In SourceDoc.Tables(1).Rows         sTemp = UCase(r.Cells(iCol).Range)

sTemp = Left(sTemp, Len(sTemp) - 2)     ' Remove cell overhead                  If sTemp = sPCode Then             r.Range.Copy             Selection.PasteAndFormat wdFormatOriginalFormatting         End If     Next r

ScreenRefresh = True End Sub

Um das Makro verwenden zu können, müssen Sie sicherstellen, dass iCol auf die Spalte eingestellt ist, die als Codierungsspalte verwendet wird, und dass sPCode den Code enthält, den Sie auswählen möchten. (Dies sollte nur in Großbuchstaben erfolgen.) Wenn das Makro fertig ist, haben Sie ein Dokument, das nur die Zeilen enthält, die Sie drucken möchten, und Sie können dieses Dokument dann drucken.

_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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (3511) gilt für Microsoft Word 2007, 2010, 2013 und 2016.