Gewusst wie: Erweitern von Bereichen 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.

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:

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)
```
```
object start = 0;
object end = 7;
Word.Range rng = this.Application.ActiveDocument.Range(
    ref start, ref end);
```

Verwenden Sie die MoveStart-Methode des Range-Objekts, um die Anfangsposition des Bereichs zu verschieben.

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

object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

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

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

unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);

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.
object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

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

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.
object start = 0;
object end = 7;
Word.Range rng = this.Application.ActiveDocument.Range(
    ref start, ref end);

// Move the start position 7 characters.
object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

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