Zellenobjekt (Word)
Stellt eine einzelne Zelle einer Tabelle an. Das Cell-Objekt ist ein Element der Cells-Auflistung . Die Cells-Auflistung stellt alle Zellen im angegebenen Objekt dar.
Verwenden Sie Zelle (Zeile, Spalte), wobei Zeile die Zeilennummer und Spalte die Spaltennummer ist, oder Zellen (Index), wobei Index die Indexnummer ist, um ein Cell-Objekt zurückzugeben. Im folgenden Beispiel wird die zweite Zelle der ersten Zeile mit einer Schattierung versehen.
Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)
myCell.Shading.Texture = wdTexture20Percent
Im folgenden Beispiel wird die erste Zelle der ersten Zeile mit einer Schattierung versehen.
ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _
.Texture = wdTexture20Percent
Verwenden Sie die Add-Methode, um der Cells-Auflistung ein Cell-Objekt hinzuzufügen. Sie können auch die InsertCells -Methode des Selection -Objekts verwenden, um neue Zellen einzufügen. Im folgenden Beispiel wird vor der ersten Zelle in myTable
eine Zelle hinzugefügt.
Set myTable = ActiveDocument.Tables(1)
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)
Im folgenden Beispiel wird ein Bereich ( myRange ) festgelegt, der auf die ersten beiden Zellen in der ersten Tabelle verweist. Nach dem Festlegen des Bereichs werden die Zellen mit der Merge -Methode verbunden.
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
.Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge
Hinweise
Verwenden Sie die Add-Methode mit der Rows- oder Columns-Auflistung , um eine Zeile oder Spalte mit Zellen hinzuzufügen.
Verwenden Sie die Information-Eigenschaft mit einem Selection-Objekt , um die aktuelle Zeilen- und Spaltennummer zurückzugeben. Im folgenden Beispiel wird die Breite der ersten Zelle in der Auswahl geändert, und dann werden die Zeilennummer und die Spaltennummer der Zelle angezeigt.
If Selection.Information(wdWithInTable) = True Then
With Selection
.Cells(1).Width = 22
MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _
& "," & .Information(wdStartOfRangeColumnNumber)
End With
End If
Referenz zum Word-Objektmodell
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.