Como: Intervalos de redefinição em documentos do Word
Use o SetRange método para redimensionar um intervalo existente em um documento do Word de Microsoft Office.
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 redefinir um intervalo existente
Defina um intervalo inicial, começando com os sete 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:=7)
object start = 0; object end = 7; 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:=7)
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
Use SetRange para iniciar o intervalo de segunda frase e finalizá-la no final da sentença quinto.
rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);
Exemplo de personalização de nível de documento
Para redefinir um intervalo existente em uma personalização em nível de documento
O exemplo a seguir mostra o exemplo completo 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.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();
Nível de aplicativo no exemplo de-
Para redefinir um intervalo existente em um suplemento em nível de aplicativo
O exemplo a seguir mostra o exemplo 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.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()
Word.Range rng = this.Application.ActiveDocument.Range(0, 7); // Reset the existing Range. rng.SetRange(this.Application.ActiveDocument.Sentences[2].Start, this.Application.ActiveDocument.Sentences[5].End); rng.Select();
Consulte também
Tarefas
Como: Estender a intervalos em documentos
Como: Definir e selecionar intervalos em documentos
Como: Recuperar o início e caracteres de final em intervalos