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 renvoie le nouveau texte horizontal en tant qu’objet Champ .
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 insère horizontalement le texte Horizontal Test après le texte vertical existant dans la première forme de la première page de la publication 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.