Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Insère du texte horizontal dans un flux de texte vertical et retourne le nouveau texte horizontal sous la forme d’un objet Field .
Syntaxe
expression. AddHorizontalInVertical (Range, Text)
expression Variable qui représente un objet Fields .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Range | Obligatoire | TextRange | Plage de texte au niveau de laquelle insérer le texte horizontal. |
| Texte | Obligatoire | String | Texte à insérer horizontalement. |
Valeur renvoyée
Field
Exemple
Cet exemple montre comment insérer horizontalement le texte Test horizontal après le texte vertical existant dans la forme 1 de la page 1 de la composition active.
Dim rngTemp As TextRange
Dim fldTemp As Field
With ActiveDocument.Pages(1).Shapes(1)
Set rngTemp = .TextFrame.TextRange.InsertAfter("")
Set fldTemp = .TextFrame.TextRange.Fields _
.AddHorizontalInVertical(Range:=rngTemp, Text:="Horizontal Test")
End With
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.