Modification de texte

Article
04/07/2023

Cette rubrique contient des exemples Visual Basic liés aux tâches identifiées dans les sections suivantes.

Déterminer si le texte est sélectionné Réduire une sélection ou une plage Étendre une sélection ou une plage Redéfinir une sélection ou une plage Modifier le texte

Pour plus d'informations sur les autres tâches liées à la modification ainsi que pour obtenir les exemples qui leur sont associés, voir les rubriques suivantes :

Retour de texte à partir d’un document Sélection de texte dans un document Insertion de texte dans un document Manipulation d’une partie d’un document

Déterminer si le texte est sélectionné

Type](.. /.. /.. /api/Word.Selection.Type.md) de la propriété Selection](.. /.. /.. L’objet /api/Word.Selection.md) retourne des informations sur le type de sélection. Cet exemple montre comment afficher un message si la sélection se limite au point d'insertion.

Sub IsTextSelected() 
 If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected" 
End Sub

Réduire une sélection ou une plage

Utilisez la méthode Collapse pour réduire un objet Selection ou un objet Range à son point de début ou de fin. Cet exemple montre comment réduire la sélection au point d'insertion, au début de la sélection.

Sub CollapseToBeginning() 
 Selection.Collapse Direction:=wdCollapseStart 
End Sub

Cet exemple montre comment annuler la plage à son point de début (après le premier mot) et ajouter du texte.

Sub CollapseToEnd() 
 Dim rngWords As Range 
 
 Set rngWords = ActiveDocument.Words(1) 
 With rngWords 
 .Collapse Direction:=wdCollapseEnd 
 .Text = "(This is a test.) " 
 End With 
End Sub

Étendre une sélection ou une plage

L’exemple suivant utilise MoveEnd](.. /.. /.. Méthode /api/Word.Selection.MoveEnd.md) de l’objet Selection pour étendre la fin de la sélection à trois mots supplémentaires. Les méthodes MoveLeft, MoveRight, MoveUp et Move Down peuvent également être utilisées pour étendre un objet Selection .

Sub ExtendSelection() 
 Selection.MoveEnd Unit:=wdWord, Count:=3 
End Sub

L’exemple suivant utilise MoveEnd](.. /.. /.. Méthode /api/Word.Range.MoveEnd.md) de l’objet Range pour étendre la plage afin d’inclure les trois premiers paragraphes du document actif.

Sub ExtendRange() 
 Dim rngParagraphs As Range 
 
 Set rngParagraphs = ActiveDocument.Paragraphs(1).Range 
 rngParagraphs.MoveEnd Unit:=wdParagraph, Count:=2 
End Sub

Redéfinir une sélection ou une plage

Utilisez la méthode GetRange pour redéfinir un objet Selection ou Un objet Range existant. Pour plus d'informations, voir Utilisation de l'objet Selection ou Utilisation des objets Range.

Modifier le texte

Vous pouvez modifier du texte existant en modifiant le contenu d'une plage. L’instruction suivante modifie le premier mot du document actif en définissant text ](.. /.. /.. /api/Word.Range.Text.md) d’un objet Range à « The ».

Sub ChangeText() 
 ActiveDocument.Words(1).Text = "The " 
End Sub

Vous pouvez également utiliser la méthode Delete , l’objet Selection ou l’objet Range pour supprimer du texte existant, puis insérer un nouveau texte à l’aide de la méthode InsertAfter ou de la méthode InertBefore . Cet exemple montre comment supprimer le premier paragraphe du document actif et insérer un nouveau texte.

Sub DeleteText() 
 Dim rngFirstParagraph As Range 
 
 Set rngFirstParagraph = ActiveDocument.Paragraphs(1).Range 
 With rngFirstParagraph 
 .Delete 
 .InsertAfter Text:="New text" 
 .InsertParagraphAfter 
 End With 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.