Comment : réinitialiser des plages dans les documents Word

Mise à jour : novembre 2007

Utilisez la méthode SetRange pour redimensionner une plage existante dans un document Microsoft Office Word.

Pour réinitialiser une plage existante

1. Définissez une plage initiale commençant par les sept premiers caractères du document.

   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. Ce code 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 SetRange pour faire débuter la plage au niveau de la deuxième phrase et la terminer à la fin de la cinquième phrase.

   rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
   

   rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End); 
   

Exemple de personnalisation au niveau du document

Pour réinitialiser une plage existante dans une personnalisation au niveau du document

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

  Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
  
  ' Reset the existing Range.
  rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
  rng.Select()
  

  object start = 0; 
  object end = 7; 
  Word.Range rng = this.Range(ref start,ref end); 
  
  // Reset the existing Range. 
  rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End); 
  rng.Select();
  

Exemple de complément d'application

Pour réinitialiser une plage existante dans un complément au niveau de l'application

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

  Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
  
  ' Reset the existing Range.
  rng.SetRange(Start:=Me.Application.ActiveDocument.Sentences(2).Start, _
      End:=Me.Application.ActiveDocument.Sentences(5).End)
  rng.Select()
  

  object start = 0;
  object end = 7;
  Word.Range rng = this.Application.ActiveDocument.Range(
      ref start, ref end);
  
  // Reset the existing Range. 
  rng.SetRange(this.Application.ActiveDocument.Sentences[2].Start,
      this.Application.ActiveDocument.Sentences[5].End);
  rng.Select();
  

Voir aussi

Tâches

Comment : étendre des plages 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 : réduire des plages ou des sélections dans des documents