Метод Characters.AddFieldEx (Visio)

Заменяет текст, представленный объектом Characters , новым полем категории, кода, формата, идентификатора языка и идентификатора календаря.

Синтаксис

выражение. AddFieldEx (категория, код, формат, идентификатор языка,идентификатор календаря)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Категория	Обязательный	VisFieldCategories	Категория для нового поля.
Code	Обязательный	VisFieldCodes	Код для нового поля.
Format	Обязательный	VisFieldFormats	Формат нового поля.
Идентификатор языка	Необязательный	Long	Язык, который будет использоваться для нового поля.
Идентификатор календаря	Необязательный	Long	Календарь, который будет использоваться для нового поля.

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

Отсутствует

Примечания

Постоянные значения для категорий, кодов и форматов объявляются библиотекой типов Visio в VisFieldCategories, VisFieldCodes и VisFieldFormats соответственно.

Аргумент LangID должен быть одним из стандартных идентификаторов, используемых Windows для кодирования различных языковых версий. Например, идентификатор языка — &H0409 для версии Microsoft Visio для США. Чтобы просмотреть список возможных идентификаторов языков, выполните поиск по запросу "VERSIONINFO" в пакете SDK платформы Майкрософт на MSDN.

Аргумент CalendarID должен быть одним из следующих значений, объявленных в VisCellVals в библиотеке типов Visio. Значение по умолчанию — visCalWestern, которое устанавливает западный календарь.

Константа	Значение	Описание
visCalWestern	0	Вестерн
visCalArabicHijri	1	Арабский хидзири
visCalHebrewLunar	2	Иврит Лунный
visCalChineseTaiwan	3	Taiwan Calendar
visCalJapaneseEmperor	4	Правление японского императора
visCalThaiBuddhism	5	Тайский буддист
visCalKoreanDanki	6	Корейский Danki
visCalSakaEra	7	Эра Сака
visCalTranslitEnglish	8	Английский транслитерация
visCalTranslitFrench	9	Французская транслитерация

Использование метода AddFieldExаналогично щелчку поля на вкладке "Вставка " и вставке в текст любой из следующих категорий полей:

• Дата и время

• Сведения о документе

• Геометрия

• Сведения об объекте

• Сведения о странице

Чтобы добавить настраиваемое поле формулы, используйте метод AddCustomField или AddCustomFieldU . Если не передать значения (или значения по умолчанию) для необязательных аргументов LangID и CalendarID , AddFieldEx действует точно так же, как AddField.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство AddFieldEx для форматирования поля даты в фигуре. На странице документа создается прямоугольник, а затем вставляется поле, отображающее текущую дату на греческом языке с использованием западного календаря.

Public Sub AddFieldEx_Example() 
 
 Dim vsoCharacters As Visio.Characters 
 Dim vsoShape As Visio.Shape 
 
 ActiveWindow.DeselectAll 
 
 Set vsoShape = Application.ActivePage.DrawRectangle(3, 5, 5, 3) 
 vsoShape.Text = "Date: " 
 
 Set vsoCharacters = vsoShape.Characters 
 
 'Set Begin property equal to End property to 
 'append new text to existing text. 
 vsoCharacters.Begin = vsoCharacters.End 
 
 'Add a field for the current date, in Greek, 
 'using the Western calendar and the long date format. 
 vsoCharacters.AddFieldEx visFCatDateTime, visFCodeCurrentDate, visFmtMsoDateLong, 1032, visCalWestern 
 
End Sub

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

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