Auf Englisch lesen

Freigeben über


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.

Hinweise

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

Siehe auch

Referenz zum Word-Objektmodell

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.