Como: Recolher seleções em documentos ou intervalos

Artigo
08/08/2011

Se você estiver trabalhando com um Range ou Selection o objeto, talvez você queira alterar a seleção de um ponto de inserção antes de inserir texto, para evitar a substituição de texto existente. Tanto o Range e Selection objetos têm uma Collapse método, que usa a WdCollapseDirection valores de enumeração:

wdCollapseStartrecolhe a seleção até o início da seleção. Este é o padrão se você não especificar um valor de enumeração.
wdCollapseEndrecolhe a seleção até o final da seleção.

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.

Para recolher um intervalo e inserir o novo texto

Criar um Range objeto que consiste o primeiro parágrafo 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.Paragraphs(1).Range
```
```
Word.Range rng = this.Paragraphs[1].Range; 
```
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.Paragraphs(1).Range
```
```
Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
```

Use o wdCollapseStart o valor de enumeração para recolher o intervalo.

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

Inseri o novo texto.

rng.Text = " New Text "

rng.Text = " New Text ";

Selecione o Range.
```
rng.Select()
```
```
rng.Select();
```

Se você usar o wdCollapseEnd o valor de enumeração, o texto é inserido no início do parágrafo seguinte.

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);

Você pode esperar que a inserção de uma nova sentença pode inseri-la antes do marcador de parágrafo, mas essa é não é o caso porque o intervalo original inclui o marcador de parágrafo. For more information, see Como: Excluir marcas de parágrafo, ao criar intervalos.

Exemplo de personalização de nível de documento

Para recolher um intervalo em uma personalização em nível de documento

O exemplo a seguir mostra o método complete para uma personalização em nível de documento. Para usar esse código, executá-lo do ThisDocument classe no projeto.

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 

rng.Text = " New Text ";
rng.Select();

Nível de aplicativo no exemplo de-

Para recolher um intervalo em um suplemento em nível de aplicativo

O exemplo a seguir mostra o método completo para um suplemento em nível de aplicativo. Para usar esse código, executá-lo do ThisAddIn classe no projeto.

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

rng.Text = " New Text ";
rng.Select();