Como: Inserir texto em documentos do Word

Artigo
08/08/2011

Há três maneiras principais para inserir texto em documentos do Word de Microsoft Office:

Inserir texto em um intervalo.
Substitua o texto em um intervalo com o novo texto.
Use o TypeText o método de um Selection o objeto para inserir texto no cursor ou seleção.

Observação
Você também pode inserir texto em controles de conteúdo e indicadores. For more information, see Controles de conteúdo and Indicador de controle.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Word 2007 e Word 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Inserindo texto em um intervalo.

Use o Text propriedade de um Range o objeto para inserir texto em um documento.

Para inserir texto em um intervalo

Especifique um intervalo no início de um documento e inserir o texto Novo texto.

O exemplo de código a seguir pode ser usado em uma personalização em nível de documento.

Dim rng As Word.Range = Me.Range(Start:=0, End:=0)
rng.Text = " New Text "

object start = 0; 
object end = 0; 

Word.Range rng = this.Range(ref start, ref end); 
rng.Text = "New Text";

O exemplo de código a seguir pode ser usado em um suplemento em nível de aplicativo. Esse código usa o documento ativo.

Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=0)
rng.Text = " New Text "

Word.Range rng = this.Application.ActiveDocument.Range(0, 0);
rng.Text = "New Text";

Selecione o Range o objeto, que foi expandida de um caractere para o comprimento do texto inserido.
```
rng.Select()
```
```
rng.Select();
```

Substituindo o texto em um intervalo

Se o intervalo especificado contiver texto, todo o texto no intervalo é substituído com o texto inserido.

Para substituir o texto em um intervalo

Criar um Range objeto que consiste em 12 primeiros caracteres do documento.

O exemplo de código a seguir pode ser usado em uma personalização em nível de documento.

Dim rng As Word.Range = Me.Range(Start:=0, End:=12)

object start = 0; 
object end = 12; 

Word.Range rng = this.Range(ref start, ref end);

O exemplo de código a seguir pode ser usado em um suplemento em nível de aplicativo. Esse código usa o documento ativo.

Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=12)

Word.Range rng = this.Application.ActiveDocument.Range(0, 12);

Substitua esses caracteres com a seqüência de caracteres Novo texto.
```
rng.Text = " New Text "
```
```
rng.Text = "New Text"; 
```
Selecione o intervalo.
```
rng.Select()
```
```
rng.Select();
```

Inserir texto usando TypeText

O TypeText método insere texto na seleção. TypeTexttem um comportamento diferente dependendo das opções definidas no computador do usuário. O código no procedimento a seguir declara uma Selection a variável de objeto e desativa o Overtype opção se ele está ligado. Se a Overtype opção é ativada, então qualquer texto ao lado do cursor será sobrescrito.

Para inserir texto usando o método TypeText

Declarar um Selection variável de objeto.

Dim currentSelection As Word.Selection = Application.Selection

Word.Selection currentSelection = Application.Selection;

Desativar o Overtype opção se ele está ligado.

If Application.Options.Overtype Then
    Application.Options.Overtype = False
End If

if (Application.Options.Overtype) 
{ 
    Application.Options.Overtype = false; 
}

Teste para verificar se a seleção atual é um ponto de inserção.

Se for, o código insere a sentença using TypeTexte um parágrafo marca usando o TypeParagraph método.

With currentSelection

    ' Test to see if selection is an insertion point.
    If .Type = Word.WdSelectionType.wdSelectionIP Then
        .TypeText("Inserting at insertion point. ")
        .TypeParagraph()

// Test to see if selection is an insertion point.
if (currentSelection.Type == Word.WdSelectionType.wdSelectionIP) 
{ 
    currentSelection.TypeText("Inserting at insertion point. ");
    currentSelection.TypeParagraph(); 
}

O código de ElseIf testes de bloco para ver se a seleção é uma seleção normal. Se for, então outro If Bloquear testa para ver se o ReplaceSelection opção é ativada. Se for, o código usa a Collapse o método de seleção para recolher a seleção de um ponto de inserção no início do bloco selecionado de texto. Insira o texto e uma marca de parágrafo.

ElseIf .Type = Word.WdSelectionType.wdSelectionNormal Then
    ' Move to start of selection.
    If Application.Options.ReplaceSelection Then
        .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
    End If
    .TypeText("Inserting before a text block. ")
    .TypeParagraph()

else 
    if (currentSelection.Type == Word.WdSelectionType.wdSelectionNormal)
    { 
        // Move to start of selection.
        if (Application.Options.ReplaceSelection)
        { 
            object direction = Word.WdCollapseDirection.wdCollapseStart;
            currentSelection.Collapse(ref direction);
        }
        currentSelection.TypeText("Inserting before a text block. ");
        currentSelection.TypeParagraph();
    }

Se a seleção não é um ponto de inserção ou um bloco de texto selecionado, em seguida, o código de Else bloco não faz nada.
```
Else
    ' Do nothing.
End If
```
```
else
{
    // Do nothing.
}
```

Você também pode usar o TypeBackspace método o Selection o objeto, que imita a funcionalidade da tecla BACKSPACE no teclado. No entanto, quando se trata a inserção e manipulação de texto, o Range objeto oferece a você mais controle.

The following example shows the complete code. Para usar esse exemplo, executa o código a partir de ThisDocument ou ThisAddIn classe no projeto.

Friend Sub SelectionInsertText()
    Dim currentSelection As Word.Selection = Application.Selection

    ' Store the user's current Overtype selection
    Dim userOvertype As Boolean = Application.Options.Overtype

    ' Make sure Overtype is turned off.
    If Application.Options.Overtype Then
        Application.Options.Overtype = False
    End If

    With currentSelection

        ' Test to see if selection is an insertion point.
        If .Type = Word.WdSelectionType.wdSelectionIP Then
            .TypeText("Inserting at insertion point. ")
            .TypeParagraph()

        ElseIf .Type = Word.WdSelectionType.wdSelectionNormal Then
            ' Move to start of selection.
            If Application.Options.ReplaceSelection Then
                .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
            End If
            .TypeText("Inserting before a text block. ")
            .TypeParagraph()

        Else
            ' Do nothing.
        End If
    End With

    ' Restore the user's Overtype selection
    Application.Options.Overtype = userOvertype
End Sub

private void SelectionInsertText() 
{ 
    Word.Selection currentSelection = Application.Selection; 

    // Store the user's current Overtype selection
    bool userOvertype = Application.Options.Overtype;

    // Make sure Overtype is turned off.
    if (Application.Options.Overtype) 
    { 
        Application.Options.Overtype = false; 
    } 

    // Test to see if selection is an insertion point.
    if (currentSelection.Type == Word.WdSelectionType.wdSelectionIP) 
    { 
        currentSelection.TypeText("Inserting at insertion point. ");
        currentSelection.TypeParagraph(); 
    } 
    else 
        if (currentSelection.Type == Word.WdSelectionType.wdSelectionNormal)
        { 
            // Move to start of selection.
            if (Application.Options.ReplaceSelection)
            { 
                object direction = Word.WdCollapseDirection.wdCollapseStart;
                currentSelection.Collapse(ref direction);
            }
            currentSelection.TypeText("Inserting before a text block. ");
            currentSelection.TypeParagraph();
        }
        else
        {
            // Do nothing.
        }

    // Restore the user's Overtype selection
    Application.Options.Overtype = userOvertype;
}

Consulte também

Tarefas

Como: Formatar texto em documentos

Como: Definir e selecionar intervalos em documentos

Como: Estender a intervalos em documentos

Compartilhar via