Comment : étendre des plages dans des documents

Mise à jour : novembre 2007

Une fois que vous avez défini un objet Range dans un document Microsoft Office Word, vous modifiez son point de départ et son point de fin à l'aide des méthodes MoveStart et MoveEnd. Les méthodes MoveStart et MoveEnd utilisent les deux mêmes arguments, à savoir Unit et Count. L'argument Count correspond au nombre d'unités à déplacer, tandis que l'argument Unit peut être l'une des valeurs WdUnits suivantes :

• wdCharacter

• wdWord

• wdSentence

• wdParagraph

• wdSection

• wdStory

• wdCell

• wdColumn

• wdRow

• wdTable

L'exemple suivant définit une plage de sept caractères. Il déplace ensuite la position de début de la plage de sept caractères après la position de début d'origine. Étant donné que la position de fin de la plage était également de sept caractères après la position de début, la plage obtenue se compose de zéro caractère. Le code déplace ensuite la position de fin de sept caractères après la position de fin actuelle.

Pour étendre une plage

1. Définissez une plage de caractères. Pour plus d'informations, consultez Comment : définir et sélectionner des plages dans les documents.

   L'exemple de code suivant peut être utilisé dans une personnalisation au niveau du document.

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

   L'exemple de code suivant peut être utilisé dans un complément d'application. Cet exemple utilise le document actif.

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

2. Utilisez la méthode MoveStart de l'objet Range pour déplacer la position de départ de la plage.

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

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

3. Utilisez la méthode MoveEnd de l'objet Range pour déplacer la position finale de la plage.

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

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

Code de personnalisation au niveau du document

Pour étendre une plage dans une personnalisation au niveau du document

• L'exemple suivant affiche le code complet correspondant à une personnalisation au niveau du document. Pour utiliser ce code, exécutez-le à partir de la classe ThisDocument dans votre projet.

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

Code de complément d'application

Pour étendre une plage dans un complément d'application

• L'exemple suivant affiche le code complet correspondant à un complément d'application. Pour utiliser ce code, exécutez-le à partir de la classe ThisAddIn dans votre projet.

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

Voir aussi

Tâches

Comment : réinitialiser des plages dans les documents Word

Comment : réduire des plages ou des sélections dans des documents

Comment : définir et sélectionner des plages dans les documents

Comment : récupérer les caractères de début et de fin dans les plages

Comment : exclure les marques de paragraphe lors de la création de plages