Gewusst wie: Reduzieren von Bereichen oder Markierungen in Dokumenten

Artikel
04/28/2010

Aktualisiert: November 2007

Betrifft
Die Informationen in diesem Thema gelten nur für die angegebenen Projekte und Versionen von Visual Studio Tools for Office von Microsoft Office. Projekttyp Projekte auf Dokumentebene Projekte auf Anwendungsebene Microsoft Office-Version Word 2003 Word 2007 Weitere Informationen hierzu finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

Die Informationen in diesem Thema gelten nur für die angegebenen Projekte und Versionen von Visual Studio Tools for Office von Microsoft Office.

Projekttyp

Projekte auf Dokumentebene
Projekte auf Anwendungsebene

Microsoft Office-Version

Word 2003
Word 2007

Weitere Informationen hierzu finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

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.

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)

object direction = Word.WdCollapseDirection.wdCollapseStart;
rng.Collapse(ref direction);

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)

direction = Word.WdCollapseDirection.wdCollapseEnd;
rng.Collapse(ref direction);

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; 

object direction = Word.WdCollapseDirection.wdCollapseStart;
rng.Collapse(ref direction); 

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;

object direction = Word.WdCollapseDirection.wdCollapseStart;
rng.Collapse(ref direction);

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