Réduire par programmation des plages ou des sélections dans des documents

Article
01/13/2024

Si vous travaillez avec un objet Range ou Selection , vous pouvez remplacer la sélection par un point d’insertion avant d’insérer du texte, afin d’éviter de remplacer le texte existant. Les objets et Selection les Range deux ont une méthode Collapse, qui utilise les WdCollapseDirection valeurs d’énumération :

wdCollapseStart réduit la sélection au début de la sélection. Il s’agit de la valeur par défaut si vous ne spécifiez pas de valeur d’énumération.
wdCollapseEnd réduit la sélection à la fin de la sélection.

S’applique à : les informations contenues dans cette rubrique s’appliquent aux projets au niveau du document et aux projets de complément VSTO pour Word. Pour plus d’informations, consultez Fonctionnalités disponibles par application Office lication et le type de projet.

Pour réduire une plage et insérer un nouveau texte

Créez un objet Range constitué du premier paragraphe du document.

L'exemple de code suivant peut être utilisé dans une personnalisation au niveau du document.
- C#
- VB
```
Word.Range rng = this.Paragraphs[1].Range;
```
```
Dim rng As Word.Range = Me.Paragraphs(1).Range
```
L'exemple de code suivant peut être utilisé dans un complément VSTO. Ce code utilise le document actif.
- C#
- VB
```
Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
```
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
```

Utilisez la valeur d’énumération wdCollapseStart pour réduire la plage.

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

Insérez le nouveau texte.

rng.Text = " New Text ";

rng.Text = " New Text "

Sélectionnez Range.
- C#
- VB
```
rng.Select();
```
```
rng.Select()
```
Si vous utilisez la valeur d’énumération wdCollapseEnd , le texte est inséré au début du paragraphe suivant.
- C#
- VB
```
rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
```
```
rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
```

Vous pourriez vous attendre à ce que l’insertion d’une nouvelle phrase se fasse avant la marque de paragraphe, mais ce n’est pas le cas, car celle-ci est incluse dans la plage d’origine.

Exemple de personnalisation au niveau du document

Pour réduire une plage dans une personnalisation au niveau du document

L’exemple suivant affiche la méthode complète correspondant à la personnalisation au niveau du document. Pour utiliser ce code, exécutez-le à partir de la classe ThisDocument de votre projet.

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 

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

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

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

Exemple de complément VSTO

Pour réduire une plage dans un complément VSTO

L’exemple suivant montre la méthode complète d’un complément VSTO. Pour utiliser ce code, exécutez-le à partir de la classe ThisAddIn de votre projet.

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

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

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

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