Gewusst wie: Reduzieren von Bereichen oder Markierungen in Dokumenten

Artikel
08/10/2011

Bei der Arbeit mit einem Range-Objekt oder einem Selection-Objekt empfiehlt es sich, vor dem Einfügen von Text die Markierung in eine Einfügemarke zu ändern, um vorhandenen Text nicht zu überschreiben. Das Range-Objekt und das Selection-Objekt verfügen über eine Collapse-Methode, die die WdCollapseDirection-Enumerationswerte verwendet:

wdCollapseStart reduziert die Markierung auf deren Anfang. Dies ist die Standardeinstellung, wenn Sie keinen Enumerationswert angeben.
wdCollapseEnd reduziert die Markierung auf deren Ende.

Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Dokument- und auf Anwendungsebene für Word 2007 und Word 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.

So reduzieren Sie einen Bereich und fügen neuen Text ein

Erstellen Sie ein Range-Objekt, das aus dem ersten Absatz des Dokuments besteht.

Das folgende Codebeispiel kann in einer Anpassung auf Dokumentebene verwendet werden.
```
Dim rng As Word.Range = Me.Paragraphs(1).Range
```
```
Word.Range rng = this.Paragraphs[1].Range; 
```
Das folgende Codebeispiel kann in einem Add-In auf Anwendungsebene verwendet werden. In diesem Code wird das aktive Dokument verwendet.
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
```
```
Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
```

Mit dem wdCollapseStart-Enumerationswert können Sie den Bereich reduzieren.

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

Fügen Sie den neuen Text ein.

rng.Text = " New Text "

rng.Text = " New Text ";

Wählen Sie das Range-Steuerelement aus.
```
rng.Select()
```
```
rng.Select();
```

Wenn Sie den wdCollapseEnd-Enumerationswert verwenden, wird der Text am Anfang des folgenden Absatzes eingefügt.

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);

Sie haben vermutlich erwartet, dass der neue Satz vor der Absatzmarke eingefügt wird. Dies ist jedoch nicht der Fall, weil der ursprüngliche Bereich die Absatzmarke einschließt. Weitere Informationen finden Sie unter Gewusst wie: Ausschließen von Absatzmarken beim Erstellen von Bereichen.

Beispiel für die Anpassung auf Dokumentebene

So reduzieren Sie einen Bereich in einer Anpassung auf Dokumentebene

Im folgenden Beispiel wird die vollständige Methode für eine Anpassung auf Dokumentebene gezeigt. Wenn Sie diesen Code verwenden möchten, führen Sie ihn von der ThisDocument-Klasse im Projekt aus.

Dim rng As Word.Range = Me.Paragraphs(1).Range

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

Word.Range rng = this.Paragraphs[1].Range; 

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 

rng.Text = " New Text ";
rng.Select();

Beispiel für Add-Ins auf Anwendungsebene

So reduzieren Sie einen Bereich in einem Add-In auf Anwendungsebene

Im folgenden Beispiel wird die vollständige Methode für ein Add-In auf Anwendungsebene gezeigt. Wenn Sie diesen Code verwenden möchten, führen Sie ihn von der ThisAddIn-Klasse im Projekt aus.

Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

rng.Text = " New Text ";
rng.Select();