Метод Fields.AddHorizontalInVertical (Publisher)

Статья
04/07/2023

Вставляет горизонтальный текст в поток вертикального текста и возвращает новый горизонтальный текст в виде объекта Field .

Синтаксис

expression. AddHorizontalInVertical (Диапазон, Текст)

Выражение Переменная, представляющая объект Fields .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Range	Обязательный	TextRange	Диапазон текста, в который вставляется горизонтальный текст.
Текст	Обязательный	String	Текст для горизонтальной вставки.

Возвращаемое значение

Поле

Пример

В этом примере текст Горизонтальный тест по горизонтали вставляется после существующего вертикального текста в форме 1 на одной странице активной публикации.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через