Gewusst wie: Erweitern von Bereichen in Dokumenten

Artikel
08/10/2011

Nachdem Sie ein Range-Objekt in einem Microsoft Office Word-Dokument definiert haben, können Sie dessen Anfangs- und Endpunkt mit der MoveStart-Methode und der MoveEnd-Methode ändern. Die MoveStart-Methode und die MoveEnd-Methode akzeptieren die beiden selben Argumente: Unit und Count. Das Count-Argument ist die Anzahl der zu verschiebenden Einheiten, und das Unit-Argument kann einer der folgenden WdUnits-Werte sein:

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.

Im folgenden Beispiel wird ein Bereich von sieben Zeichen definiert. Anschließend wird die Anfangsposition des Bereichs um sieben Zeichen hinter die ursprüngliche Anfangsposition verschoben. Da die Endposition des Bereichs ebenfalls sieben Zeichen von der Anfangsposition entfernt war, ist das Ergebnis ein Bereich aus 0 Zeichen. Über den Code wird anschließend die Endposition um sieben Zeichen hinter die aktuelle Endposition verschoben.

So erweitern Sie einen Bereich

Definieren Sie einen Zeichenbereich. Weitere Informationen finden Sie unter Gewusst wie: Definieren und Markieren von Bereichen in Dokumenten.

Das folgende Codebeispiel kann in einer Anpassung auf Dokumentebene verwendet werden.
```
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
```
```
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start, ref end);
```
Das folgende Codebeispiel kann in einem Add-In auf Anwendungsebene verwendet werden. In diesem Beispiel wird das aktive Dokument verwendet.
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
```
```
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
```
Verwenden Sie die MoveStart-Methode des Range-Objekts, um die Anfangsposition des Bereichs zu verschieben.
```
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)
```
```
rng.MoveStart(Word.WdUnits.wdCharacter, 7);
```

Verwenden Sie die MoveEnd-Methode des Range-Objekts, um die Endposition des Bereichs zu verschieben.

rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)

rng.MoveEnd(Word.WdUnits.wdCharacter, 7);

Anpassungscode auf Dokumentebene

So erweitern Sie einen Bereich in einer Anpassung auf Dokumentebene

Im folgenden Beispiel wird der vollständige Code 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.

' Define a range of 7 characters.
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)

' Move the start position 7 characters.
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)

' Move the end position 7 characters.
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)

// Define a range of 7 characters.
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start, ref end);

// Move the start position 7 characters.
rng.MoveStart(Word.WdUnits.wdCharacter, 7);

// Move the end position 7 characters.
rng.MoveEnd(Word.WdUnits.wdCharacter, 7);

Add-In-Code auf Anwendungsebene

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

Im folgenden Beispiel wird der vollständige Code 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.

' Define a range of 7 characters.
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)

' Move the start position 7 characters.
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)

' Move the end position 7 characters.
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)

// Define a range of 7 characters.
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);

// Move the start position 7 characters.
rng.MoveStart(Word.WdUnits.wdCharacter, 7);

// Move the end position 7 characters.
rng.MoveEnd(Word.WdUnits.wdCharacter, 7);