Contraer intervalos o selecciones mediante programación en documentos

Si está trabajando con un objeto Range o Selection , puede que desee cambiar la selección a un punto de inserción antes de insertar el texto, para no sobrescribir el texto existente. Range Los objetos y Selection tienen un método Collapse, que hace uso de los WdCollapseDirection valores de enumeración:

• wdCollapseStart contrae la selección hasta el principio de la selección. Esta es la opción predeterminada si no especifica un valor de enumeración.

• wdCollapseEnd contrae la selección hasta el final de la selección.

  Se aplica a: la información de este tema se aplica a proyectos de nivel de documento y proyectos de complementos de VSTO para Word. Para obtener más información, consulte Características disponibles por aplicación de Office lication y tipo de proyecto.

Para contraer un rango e insertar texto nuevo

1. Cree un objeto Range formado por el primer párrafo del documento.

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

   C#

   Word.Range rng = this.Paragraphs[1].Range;
   

   VB

   Dim rng As Word.Range = Me.Paragraphs(1).Range
   

   El siguiente ejemplo de código se puede usar en un complemento de VSTO. Este código usa el documento activo.

   C#

   Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
   

2. Utilice el valor de enumeración wdCollapseStart para contraer el rango.

   C#

   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);
   

   VB

   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   

3. Inserte el texto nuevo.

   C#

   rng.Text = " New Text ";
   

   VB

   rng.Text = " New Text "
   

4. Seleccione Range.

   C#

   rng.Select();
   

   VB

   rng.Select()
   

   Si usa el valor de enumeración wdCollapseEnd , el texto se inserta al principio del párrafo siguiente.

   C#

   rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
   

   VB

   rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
   

---

Puede que espere que al insertar una nueva frase, se inserte antes del marcador de párrafo, pero esto no ocurre porque el rango original incluye la marca de párrafo.

Ejemplo de personalización de nivel de documento

Para contraer un intervalo en una personalización de nivel de documento

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

   C#

   Word.Range rng = this.Paragraphs[1].Range; 
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 
   
   rng.Text = " New Text ";
   rng.Select();
   

   VB

   Dim rng As Word.Range = Me.Paragraphs(1).Range
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   
   rng.Text = " New Text "
   rng.Select()
   

Ejemplo de complemento de VSTO

Para contraer un intervalo en un complemento de VSTO

1. En el ejemplo siguiente se muestra el método completo para un complemento de VSTO. Para usar este código, ejecútelo desde la clase ThisAddIn del proyecto.

   C#

   Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);
   
   rng.Text = " New Text ";
   rng.Select();
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   
   rng.Text = " New Text "
   rng.Select()
   

Contenido relacionado

• Cómo: Insertar texto mediante programación en documentos de Word
• Cómo: Definir y seleccionar intervalos en documentos mediante programación
• Procedimiento para recuperar mediante programación caracteres de inicio y finalización en intervalos
• Cómo: Ampliar intervalos mediante programación en documentos
• Cómo: Restablecer intervalos mediante programación en documentos de Word