Fehler beim Zugriff auf eine Tabellenzeile oder -spalte
Wenn Sie versuchen, auf eine einzelne Zeile oder Spalte in einer gezeichneten Tabelle zuzugreifen, kann ein Laufzeitfehler auftreten, wenn die Tabelle nicht einheitlich ist. Beispielsweise führt die folgende Anweisung zu einem Fehler, wenn die erste Tabelle im aktiven Dokument nicht dieselbe Anzahl von Zeilen in jeder Spalte hat.
Sub RemoveTableBorders()
ActiveDocument.Tables(1).Rows(1).Borders.Enable = False
End Sub
Sie können diesen Fehler vermeiden, indem Sie zuerst die Zellen in einer Spalte oder Zeile mithilfe der SelectColumn-Methode oder der SelectRow-Methode auswählen. Nachdem die Auswahl vorgenommen wurde, verwenden Sie die Cells-Eigenschaft mit dem Selection-Objekt . Im folgenden Beispiel wird die erste Zeile in der ersten Dokumenttabelle markiert. Die Cells-Eigenschaft wird für den Zugriff auf die markierten Zellen (alle Zellen in der ersten Zeile) verwendet, sodass Rahmen entfernt werden können.
Sub RemoveTableBorders()
ActiveDocument.Tables(1).Cell(1, 1).Select
With Selection
.SelectRow
.Cells.Borders.Enable = False
End With
End Sub
Im folgenden Beispiel wird die erste Spalte in der ersten Dokumenttabelle markiert. Über die For Each...Next-Schleife wird jeder Zelle in der Markierung (allen Zellen in der ersten Spalte) Text hinzugefügt.
Sub AddTextToTableCells()
Dim intCell As Integer
Dim oCell As Cell
ActiveDocument.Tables(1).Cell(1, 1).Select
Selection.SelectColumn
intCell = 1
For Each oCell In Selection.Cells
oCell.Range.Text = "Cell " & intCell
intCell = intCell + 1
Next oCell
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für