Cómo: Establecer rangos en documentos de Word

Actualización: noviembre 2007

Se aplica a
La información de este tema sólo se aplica a los proyectos de Visual Studio Tools para Office y versiones de Microsoft Office especificados. Tipo de proyecto Proyectos de nivel de documento Proyectos de nivel de aplicación Versión de Microsoft Office Word 2003 Word 2007 Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto.

Utilice el método SetRange para cambiar el tamaño de un rango existente en un documento de Microsoft Office Word.

Para restaurar un rango existente

1. Establezca un rango inicial que empiece por los siete primeros caracteres del documento.

   El ejemplo de código siguiente se puede usar en una personalización de nivel de documento.

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

   El ejemplo de código siguiente se puede usar en un complemento de nivel de aplicación. En este código se usa el documento activo.

   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. Utilice SetRange para iniciar el rango en la segunda frase y terminarlo al final de la quinta frase.

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

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

Ejemplo de personalización de nivel de documento

Para restablecer un rango existente en una personalización de nivel de documento

• En el ejemplo siguiente se muestra el ejemplo completo de una personalización de nivel de documento. Para usar este código, ejecútelo desde la clase ThisDocument del proyecto.

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

Ejemplo de complemento de nivel de aplicación

Para restablecer un rango existente en un complemento de nivel de aplicación

• En el ejemplo siguiente se muestra el ejemplo completo de un complemento de nivel de aplicación. Para usar este código, ejecútelo desde la clase ThisAddIn del proyecto.

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

Vea también

Tareas

Cómo: Ampliar intervalos en documentos

Cómo: Definir y seleccionar rangos en documentos

Cómo: Recuperar los caracteres inicial y final de los intervalos

Cómo: Contraer intervalos o selecciones en documentos