Programmgesteuertes Erweitern von Bereichen in Dokumenten

Nachdem Sie ein Range -Objekt in einem Microsoft Office Word-Dokument definiert haben, ändern Sie dessen Start- und Endpunkt mithilfe der Methoden MoveStart und MoveEnd . Die Methoden MoveStart und MoveEnd akzeptieren dieselben beiden Argumente Unit und Count. Die Methoden Count -Argument entspricht der Anzahl zu verschiebender Einheiten, und das Unit -Argument kann einer der folgenden WdUnits -Werte sein:

• wdCharacter

• wdWord

• wdSentence

• wdParagraph

• wdSection

• wdStory

• wdCell

• wdColumn

• wdRow

• wdTable

  Gilt für: Die Informationen in diesem Thema gelten für Projekte auf Dokumentebene und VSTO-Add-In-Projekte für Word. Weitere Informationen finden Sie unter features available by Office-App lication and project type.

  Im folgenden Beispiel wird ein aus sieben Zeichen bestehender Bereich definiert. Anschließend wird die Startposition des Bereichs von der ursprünglichen Startposition aus um sieben Zeichen verschoben. Da die Endposition des Bereichs ebenfalls sieben Zeichen von der Startposition entfernt war, umfasst der resultierende Bereich 0 Zeichen. Durch den Code wird die Endposition dann von der aktuellen Endposition um sieben Zeichen verschoben.

So erweitern Sie einen Bereich

1. Definieren Sie einen Bereich von Zeichen. Weitere Informationen finden Sie unter How to: Programmatically define and select ranges in documents.

   Das folgende Codebeispiel kann in einer Anpassung auf Dokumentebene verwendet werden.

   C#

   object start = 0;
   object end = 7;
   Word.Range rng = this.Range(ref start, ref end);
   

   VB

   Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
   

   Das folgende Codebeispiel kann in einem VSTO-Add-In verwendet werden. In diesem Beispiel wird das aktive Dokument verwendet.

   C#

   Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
   

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

   C#

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

   VB

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

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

   C#

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

   VB

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

Anpassungscode auf Dokumentebene

So erweitern Sie einen Bereich in einer Anpassung auf Dokumentebene

1. Das folgende Beispiel zeigt den vollständigen Code für eine Anpassung auf Dokumentebene. Wenn Sie diesen Code verwenden möchten, führen Sie ihn von der ThisDocument -Klasse im Projekt aus.

   C#

   // 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);
   

   VB

   ' 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)
   

VSTO-Add-In-Code

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

1. Das folgende Beispiel zeigt den vollständigen Code für ein VSTO-Add-In. Wenn Sie diesen Code verwenden möchten, führen Sie ihn von der ThisAddIn -Klasse im Projekt aus.

   C#

   // 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);
   

   VB

   ' 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)
   

Zugehöriger Inhalt

• Vorgehensweise: Programmgesteuertes Zurücksetzen von Bereichen in Word-Dokumenten
• Vorgehensweise: Programmgesteuertes Reduzieren von Bereichen oder Auswahlen in Dokumenten
• Vorgehensweise: Programmgesteuertes Definieren und Auswählen von Bereichen in Dokumenten
• Vorgehensweise: Programmgesteuertes Abrufen von Start- und Endzeichen in Bereichen