Freigeben über


TextRange.Select-Methode (Publisher)

Markiert das angegebene Objekt.

Syntax

Ausdruck. Auswählen

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Beispiel

Im folgenden Beispiel wird die linke obere Zelle einer Tabelle ausgewählt, die der ersten Seite der aktiven Publikation hinzugefügt wurde.

Dim shpTable As Shape 
Dim cllTemp As Cell 
 
With ActiveDocument.Pages(1).Shapes 
 Set shpTable = .AddTable(NumRows:=3, NumColumns:=3, _ 
 Left:=100, Top:=100, Width:=150, Height:=150) 
 Set cllTemp = shpTable.Table.Cells.Item(1) 
 cllTemp.Select 
End With

Das folgende Beispiel wählt die erste Spalte einer Tabelle aus, die auf der ersten Seite der aktiven Publikation hinzugefügt wurde.

Dim shpTable As Shape 
Dim crTemp As CellRange 
 
With ActiveDocument.Pages(1).Shapes 
 Set shpTable = .AddTable(NumRows:=3, NumColumns:=3, _ 
 Left:=100, Top:=100, Width:=150, Height:=150) 
 Set crTemp = shpTable.Table.Cells(StartRow:=1, _ 
 StartColumn:=1, EndRow:=3, EndColumn:=1) 
 crTemp.Select 
End With

Das folgende Beispiel wählt die ersten fünf Zeichen in Form 1 auf Seite 1 der aktiven Publikation aus.

ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Characters(1, 5).Select

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.