Word VBA教程:GetAddress方法

从默认通讯簿中返回地址。

expression.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

expression   必需。该表达式返回一个 Application对象。

Name   Variant 类型,可选。地址名,与通讯簿中的“查找姓名”对话框所指定的相同。

AddressProperties   Variant 类型,可选。如果 UseAutoText 为 True,则本参数指定“自动图文集”词条名,该词条定义了一系列的通讯簿属性。如果 UseAutoText 为 False 或被省略,则本参数定义一个自定义版面。用尖括号(“<”和“>”)标明有效的通讯簿属性名或该属性名的设置,并且使用空格或段落标记分隔属性名或是该属性名的设置(例如,"<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>")。

如果省略本参数,则使用名为“AddressLayout”的默认“自动图文集”词条。如果还没有定义“AddressLayout”,则使用下面的地址版面:"<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>"。

有关合法通讯簿属性名列表的内容,请参阅AddAddress方法。

UseAutoText   Variant 类型,可选。如果 AddressProperties 指定了“自动图文集”词条名,该词条定义了一组通讯簿属性,则本参数为 True;如果 AddressProperties 指定了一个定制版面,则本参数为 False。

DisplaySelectDialog   Variant 类型,可选。指定是否显示“选择姓名”对话框。如下表所示:

结果
0 不显示“选择姓名”对话框。
1 或省略 显示“选择姓名”对话框。
2 不显示“选择姓名”对话框,并且不搜索指定的姓名。本方法返回的地址将是以前指定的地址。

SelectDialog   Variant 类型,可选。指定“选择姓名”对话框显示方式(即以何种模式进行选择)。如下表所示:

显示模式
0(零)或省略 浏览模式
1 紧凑模式,只显示“收件人”框
2 紧凑模式,“收件人”和“抄送”框都进行显示

CheckNamesDialog   Variant 类型,可选。如果本参数为 True,则在 Name参数的值指定不完整时显示“检查姓名”对话框。

RecentAddressesChoice   Variant 类型,可选。如果本参数为 True,则使用最近使用的回信地址列表。

UpdateRecentAddresses   Variant 类型,可选。如果本参数为 True,则向最近使用的地址列表中添加一个地址;如果本参数为 False,则不添加地址。如果 SelectDialog 设置为 1 或 2,则忽略本参数。

VBA示例

本示例将 John Smith 的地址赋给变量strAddress,将插入点移到文档的开头,并插入地址。插入的地址具有默认的通讯簿属性。


Dim strAddress
strAddress = Application.GetAddress(Name:="John Smith", _
    CheckNamesDialog:=True)
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress

以下示例返回 John Smith 的地址,使用“My Address Layout”“自动图文集”词条作为版面定义。在活动模板中定义了“My Address Layout”,它包括一系列的指定给变量text$ 的地址属性。本示例还将 John Smith 的地址添加到最近使用的地址列表中。


Dim TagIDArray(0 To 3) As String
Dim ValueArray(0 To 3) As String
Dim strAddress As String
TagIDArray(0) = "PR_DISPLAY_NAME"
TagIDArray(1) = "PR_GIVEN_NAME"
TagIDArray(2) = "PR_SURNAME"
TagIDArray(3) = "PR_COMMENT"
ValueArray(0) = "Display_Name"
ValueArray(1) = "John"
ValueArray(2) = "Smith"
ValueArray(3) = "This is a comment"
Application.AddAddress TagID:=TagIDArray(), Value:=ValueArray()
strAddress = Application.GetAddress(Name:="John Smith", _
    UpdateRecentAddresses:=True)

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号