Modification de texte

Cette rubrique inclut Visual Basic exemples relatifs aux tâches identifiées dans les sections suivantes.

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 :

Renvoi de texte à partir d'un document
Sélection de texte dans un document
Insertion de texte dans un document
Modification d'une partie d'un document

Recherche du texte sélectionné

The Type](.. /.. /.. /api/Word.Selection.Type.md) property of the Selection](.. /.. /.. /api/Word.Selection.md) renvoie 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éduction d'une sélection ou d'une plage

Utilisez la méthode Collapse pour réduire un objet Selection ou 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

Extension d'une sélection ou d'une plage

L’exemple suivant utilise MoveEnd](.. /.. /.. /api/Word.Selection.MoveEnd.md) de l’objet Selection pour étendre la fin de la sélection afin d’inclure trois mots supplémentaires. The MoveLeft, * MoveRight](.. /.. /.. /api/Word.Selection.MoveRight.md), ** MoveUp](.. /.. /.. /api/Word.Selection.MoveUp.md) et les méthodes **Down peuvent également être utilisées pour étendre un objet **Se ion.

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éfinition d'une sélection ou d'une plage

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

Modification de 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 fixant le paramètre Text](.. /.. /.. /api/Word.Range.Text.md) d’un objet nge sur « 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 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.