Cómo: Excluir marcas de párrafo al crear intervalos mediante programación

Artículo
02/19/2013

Siempre que se crea un objeto Range basado en un párrafo, todos los caracteres no imprimibles, como marcas de párrafo, se incluirán en el intervalo.Es posible que desee insertar el texto de un párrafo de origen en un párrafo de destino.Si no desea dividir el párrafo de destino en párrafos independientes, en primer lugar, tendrá que quitar la marca de párrafo del párrafo de origen.Además, dado que la información de formato de párrafo se almacena en la marca de párrafo, es posible que no desee incluirla cuando inserte el intervalo en un párrafo existente.

Se aplica a: La información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Word 2013 y Word 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

El procedimiento de ejemplo siguiente declara dos variables de cadena, recupera el contenido del primer y segundo párrafos del documento activo, y a continuación intercambia su contenido.El ejemplo muestra a continuación cómo se elimina la marca de párrafo del intervalo mediante al método MoveEnd y se inserta texto dentro del párrafo.

Para controlar la estructura de un párrafo cuando se inserta texto

Cree dos variables de intervalo para los párrafos primero y segundo y recupere su contenido mediante la propiedad Text.

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

Dim firstRange As Word.Range = Me.Paragraphs(1).Range
Dim secondRange As Word.Range = Me.Paragraphs(2).Range

Dim firstString As String = firstRange.Text
Dim secondString As String = secondRange.Text

Word.Range firstRange = this.Paragraphs[1].Range; 
Word.Range secondRange = this.Paragraphs[2].Range; 

string firstString = firstRange.Text; 
string secondString = secondRange.Text;

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 document As Word.Document = Me.Application.ActiveDocument
Dim firstRange As Word.Range = document.Paragraphs(1).Range
Dim secondRange As Word.Range = document.Paragraphs(2).Range

Dim firstString As String = firstRange.Text
Dim secondString As String = secondRange.Text

Word.Document document = this.Application.ActiveDocument;
Word.Range firstRange = document.Paragraphs[1].Range;
Word.Range secondRange = document.Paragraphs[2].Range;

string firstString = firstRange.Text;
string secondString = secondRange.Text;

Asigne la propiedad Text, intercambiando el texto entre los dos párrafos.

firstRange.Text = secondString
secondRange.Text = firstString

firstRange.Text = secondString; 
secondRange.Text = firstString;

Seleccione los intervalos por turnos y haga una pausa para mostrar los resultados en un cuadro de mensaje.

firstRange.Select()
MessageBox.Show(firstRange.Text)
secondRange.Select()
MessageBox.Show(secondRange.Text)

firstRange.Select(); 
MessageBox.Show(firstRange.Text); 
secondRange.Select(); 
MessageBox.Show(secondRange.Text);

Ajuste firstRange con el método MoveEnd de forma que la marca de párrafo deje de formar parte de firstRange.

firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=-1)

object charUnit = Word.WdUnits.wdCharacter;
object move = -1;  // move left 1

firstRange.MoveEnd(ref charUnit, ref move);

Sustituya el resto del texto del primer párrafo mediante la asignación de una cadena nueva a la propiedad Text del intervalo.
```
firstRange.Text = "New content for paragraph 1."
```
```
firstRange.Text = "New content for paragraph 1.";
```

Sustituya el texto de secondRange, incluida la marca de párrafo.

secondRange.Text = "New content for paragraph 2."

secondRange.Text = "New content for paragraph 2.";

Seleccione firstRange y haga una pausa para mostrar los resultados en un cuadro de mensaje. A continuación, proceda de igual forma con secondRange.

Dado que firstRange se ha redefinido para excluir la marca de párrafo, se conserva el formato original del párrafo.Sin embargo, se insertó una frase sobre la marca de párrafo en secondRange, lo que elimina el párrafo independiente.
```
firstRange.Select()
MessageBox.Show(firstRange.Text)
secondRange.Select()
MessageBox.Show(secondRange.Text)
```
```
firstRange.Select(); 
MessageBox.Show(firstRange.Text); 
secondRange.Select(); 
MessageBox.Show(secondRange.Text); 
```
El contenido original de los dos intervalos se guardó como cadenas, lo que permite restaurar el estado original del documento.

Vuelva a ajustar firstRange para que incluya la marca de párrafo utilizando el método MoveEnd para la posición de un carácter.

firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=1)

move = 1;  // move right 1
firstRange.MoveEnd(ref charUnit, ref move);

Elimine secondRange.De esta forma se restablece la posición original del tercer párrafo.
```
secondRange.Delete()
```
```
secondRange.Delete(ref missing, ref missing); 
```

Restaure el texto del párrafo original en firstRange.

firstRange.Text = firstString

firstRange.Text = firstString;

Use el método InsertAfter del objeto Range para insertar el contenido del segundo párrafo original después de firstRange y, a continuación, seleccione firstRange.
```
firstRange.InsertAfter(secondString)
firstRange.Select()
```
```
firstRange.InsertAfter(secondString); 
firstRange.Select(); 
```

Ejemplo de personalización de nivel de documento

Para controlar la estructura de un párrafo cuando se inserta texto en las personalizaciones de nivel de documento

En el ejemplo siguiente 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.

Private Sub ReplaceParagraphText()

    Dim firstRange As Word.Range = Me.Paragraphs(1).Range
    Dim secondRange As Word.Range = Me.Paragraphs(2).Range

    Dim firstString As String = firstRange.Text
    Dim secondString As String = secondRange.Text

    firstRange.Text = secondString
    secondRange.Text = firstString

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=-1)

    firstRange.Text = "New content for paragraph 1."
    secondRange.Text = "New content for paragraph 2."

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=1)

    secondRange.Delete()

    firstRange.Text = firstString

    firstRange.InsertAfter(secondString)
    firstRange.Select()
End Sub

private void ReplaceParagraphText() 
{ 
    Word.Range firstRange = this.Paragraphs[1].Range; 
    Word.Range secondRange = this.Paragraphs[2].Range; 

    string firstString = firstRange.Text; 
    string secondString = secondRange.Text; 

    firstRange.Text = secondString; 
    secondRange.Text = firstString; 

    firstRange.Select(); 
    MessageBox.Show(firstRange.Text); 
    secondRange.Select(); 
    MessageBox.Show(secondRange.Text); 

    object charUnit = Word.WdUnits.wdCharacter;
    object move = -1;  // move left 1

    firstRange.MoveEnd(ref charUnit, ref move);

    firstRange.Text = "New content for paragraph 1.";
    secondRange.Text = "New content for paragraph 2.";

    firstRange.Select(); 
    MessageBox.Show(firstRange.Text); 
    secondRange.Select(); 
    MessageBox.Show(secondRange.Text); 

    move = 1;  // move right 1
    firstRange.MoveEnd(ref charUnit, ref move); 

    secondRange.Delete(ref missing, ref missing); 

    firstRange.Text = firstString; 

    firstRange.InsertAfter(secondString); 
    firstRange.Select(); 
}

Ejemplo de complemento de nivel de aplicación

Para controlar la estructura de un párrafo cuando se inserta texto en un complemento de nivel de aplicación

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

Private Sub ReplaceParagraphText()

    Dim document As Word.Document = Me.Application.ActiveDocument
    Dim firstRange As Word.Range = document.Paragraphs(1).Range
    Dim secondRange As Word.Range = document.Paragraphs(2).Range

    Dim firstString As String = firstRange.Text
    Dim secondString As String = secondRange.Text

    firstRange.Text = secondString
    secondRange.Text = firstString

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=-1)

    firstRange.Text = "New content for paragraph 1."
    secondRange.Text = "New content for paragraph 2."

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=1)

    secondRange.Delete()

    firstRange.Text = firstString

    firstRange.InsertAfter(secondString)
    firstRange.Select()
End Sub

private void ReplaceParagraphText()
{
    Word.Document document = this.Application.ActiveDocument;
    Word.Range firstRange = document.Paragraphs[1].Range;
    Word.Range secondRange = document.Paragraphs[2].Range;

    string firstString = firstRange.Text;
    string secondString = secondRange.Text;

    firstRange.Text = secondString;
    secondRange.Text = firstString;

    firstRange.Select();
    MessageBox.Show(firstRange.Text);
    secondRange.Select();
    MessageBox.Show(secondRange.Text);

    object charUnit = Word.WdUnits.wdCharacter;
    object move = -1;  // move left 1

    firstRange.MoveEnd(ref charUnit, ref move);

    firstRange.Text = "New content for paragraph 1.";
    secondRange.Text = "New content for paragraph 2.";

    firstRange.Select();
    MessageBox.Show(firstRange.Text);
    secondRange.Select();
    MessageBox.Show(secondRange.Text);

    move = 1;  // move right 1
    firstRange.MoveEnd(ref charUnit, ref move);

    secondRange.Delete(ref missing, ref missing);

    firstRange.Text = firstString;

    firstRange.InsertAfter(secondString);
    firstRange.Select();
}