Wenn Liliana eine Tabelle in einem Dokument hat, besagen die Unternehmensanforderungen, dass jede Zelle in der Tabelle etwas enthalten muss. Dies bedeutet, dass eine Zelle, wenn sie ansonsten leer ist, entweder einen Bindestrich oder die Buchstaben „N / A“ enthalten muss. Liliana fragt sich, ob es eine Möglichkeit gibt, automatisch entweder einen Bindestrich oder „N / A“ in die leeren Zellen einer Tabelle zu setzen.

Der einzige Weg, dies zu tun, ist mit einem Makro. Sie können eine erstellen, die jede der Zellen in einer Tabelle durchläuft und überprüft, was sie enthält.

Wenn die Zelle leer ist, wird der gewünschte Text in die Zelle eingefügt.

Hier ist ein Beispielmakro, das für alle Tabellen in einem Dokument funktioniert und jede Zelle überprüft:

Sub ProcCells1()

Dim tTable As Table     Dim cCell As Cell     Dim sTemp As String

sTemp = "N/A"



For Each tTable In ActiveDocument.Range.Tables         For Each cCell In tTable.Range.Cells             'An apparently empty cell contains an end of cell marker             If Len(cCell.Range.Text) < 3 Then                 cCell.Range = sTemp             End If         Next     Next     Set oCell = Nothing     Set tTable = Nothing End Sub

Wenn Sie möchten, dass Ihre leeren Zellen anstelle von „N / A“ einen Bindestrich enthalten, müssen Sie lediglich den in der Variablen sTemp platzierten Text ändern. Wenn Sie ein Makro bevorzugen, das mit einer einzelnen Tabelle anstelle aller Tabellen in einem Dokument arbeitet, funktioniert die folgende Variante hervorragend:

Sub ProcCells2()

Dim tTable As Table     Dim cCell As Cell     Dim sTemp As String

sTemp = "N/A"



If Selection.Information(wdWithInTable) Then         Set tTable = Selection.Tables(1)

For Each cCell In tTable.Range.Cells             'An apparently empty cell contains an end of cell marker             If Len(cCell.Range.Text) < 3 Then                 cCell.Range = sTemp             End If         Next     End If     Set oCell = Nothing     Set tTable = Nothing End Sub

Um diese Variante zu verwenden, stellen Sie einfach sicher, dass sich die Einfügemarke in der Tabelle befindet, die Sie verarbeiten möchten, bevor Sie das Makro ausführen.

Wenn Sie keine Makros verwenden möchten, können Sie einen anderen Ansatz in Betracht ziehen: Stellen Sie einfach sicher, dass Ihre Tabelle die gewünschten Bindestriche oder „N / A“ -Texte enthält, bevor Sie Informationen einfügen. Sie können eine Tabellenvorlage erstellen, die in jeder Zelle einen Bindestrich oder „N / A“ enthält. Wenn Sie dann andere Informationen in die Zelle einfügen, löschen Sie einfach den Standardtext. (Die verschiedenen Möglichkeiten zum Einrichten von Tabellenvorlagen werden in anderen Ausgaben von WordTips behandelt.)

_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 (10772) 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:

Text in leere Tabellenzellen platzieren.