Characters.AddFieldEx 方法 (Visio)
将 Characters 对象表示的文本替换为指定的类别、代码、格式、语言 ID 和日历 ID 的新字段。
语法
表达式。AddFieldEx (Category、 Code、 Format、 LangID、 CalendarID)
表达 一个代表 Characters 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| 类别 | 必需 | VisFieldCategories | 新域的类别。 |
| 代码 | 必需 | VisFieldCodes | 新域的代码。 |
| Format | 必需 | VisFieldFormats | 新域的格式。 |
| LangID | 可选 | Long | 要用于新字段的语言。 |
| CalendarID | 可选 | Long | 要对新域使用的日历。 |
返回值
Nothing
注解
类别、代码和格式的常量值分别由 VisFieldCategories、VisFieldCodes 和 VisFieldFormats 中的 Visio 类型库声明。
LangID 参数应该是 Windows 用于对不同语言版本进行编码的标准 ID 之一。 例如，美国版本的 Microsoft Visio 的语言 ID 为 &H0409。 要查看可能的语言 ID 列表，请在 MSDN 上的 Microsoft Platform SDK 中搜索“VERSIONINFO”。
CalendarID 参数应为下列值之一，这些值在 Visio 类型库的 VisCellVals 中声明。 默认值为 visCalWestern，该值将日历设置为公历。
| 常量 | 值 | 说明 |
|---|---|---|
| visCalWestern | 0 | 西方 |
| visCalArabicHijri | 1 | 阿拉伯回历 |
| visCalHebrewLunar | 2 | 希伯来农历 |
| visCalChineseTaiwan | 3 | 台历 |
| visCalJapaneseEmperor | 4 | 日本年号 |
| visCalThaiBuddhism | 5 | 泰国佛历 |
| visCalKoreanDanki | 6 | 朝鲜檀纪历 |
| visCalSakaEra | 7 | 萨卡人日历 |
| visCalTranslitEnglish | 8 | 英语转译 |
| visCalTranslitFrench | 9 | 法语转译 |
使用 AddFieldEx 方法类似于单击“插入”选项卡上的“域”并在文本中插入以下任何类别的域：
日期/时间
文档信息
几何
对象信息
页信息
若要添加自定义公式字段，请使用 AddCustomField 或 AddCustomFieldU 方法。 如果不 (传递值或传递可选 LangID 和 CalendarID 参数的默认值) ， 则 AddFieldEx 的行为与 AddField 完全相同。
示例
下面的 Microsoft Visual Basic for Applications (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 支持和反馈，获取有关如何接收支持和提供反馈的指南。