Метод Application.GetAddress (Word)
Возвращает адрес из адресной книги по умолчанию.
Синтаксис
expression. GetAddress (Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)
выражение (обязательно). Переменная, представляющая объект Application .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Name | Необязательно заполнять. | Variant | Имя адресат, указанное в диалоговом окне Имя поиска в адресной книге. |
| AddressProperties | Необязательный | Variant | Если параметр UseAutoText имеет значение True, этот аргумент обозначает имя записи автотекста, определяющей последовательность свойств адресной книги. Если параметр UseAutoText имеет значение False или опущен, этот аргумент определяет пользовательский макет. Допустимые имена свойств адресной книги или наборы имен свойств заключены в угловые скобки ( "<" and ">") и разделяются пробелом или знаком абзаца (например, "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>").Если параметр AddressProperties опущен, используется запись автотекста по умолчанию с именем 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 | Значение true , если AddressProperties указывает имя записи автотекста, определяющей последовательность свойств адресной книги; Значение False , если указывает пользовательский макет. |
| DisplaySelectDialog | Необязательный | Variant | Указывает, отображается ли диалоговое окно Выбор имени , как показано в таблице Результаты . |
| SelectDialog | Необязательный | Variant | Указывает, как должно отображаться диалоговое окно Выбор имени (то есть в каком режиме), как показано в таблице Режим отображения . |
| CheckNamesDialog | Необязательный | Variant | Значение true для отображения диалогового окна Проверка имен , если значение аргумента Name недостаточно конкретно. |
| RecentAddressesChoice | Необязательный | Variant | Значение True используется для использования списка недавно использовавшихся обратных адресов. |
| UpdateRecentAddresses | Необязательный | Variant | Значение true , чтобы добавить адрес в список недавно использовавшихся адресов; Значение false , чтобы не добавлять адрес. Если параметр SelectDialog имеет значение 1 или 2, этот аргумент игнорируется. |
Результаты
| Value (Значение) | Результат |
|---|---|
| 0 (ноль) | Диалоговое окно Выбор имени не отображается. |
| 1 или опущено | Откроется диалоговое окно Выбор имени . |
| 2 | Диалоговое окно Выбор имени не отображается, и поиск по определенному имени не выполняется. Адрес, возвращаемый этим методом, будет ранее выбранным адресом. |
Режим отображения
| Value (Значение) | Режим отображения |
|---|---|
| 0 (ноль) или опущен | Режим обзора |
| 1 | Режим создания, только с полем To: |
| 2 | Режим создания с полями Кому: и КОПИЯ: |
Возвращаемое значение
String
Пример
В этом примере переменная strAddress задает адрес Джона Смита, перемещает точку вставки в начало документа и вставляет адрес. Вставленный адрес будет содержать свойства адресной книги по умолчанию.
Dim strAddress
strAddress = Application.GetAddress(Name:="John Smith", _
CheckNamesDialog:=True)
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress
В следующем примере возвращается адрес Джона Смита, используя запись автотекста "Мой адрес" в качестве определения макета. "Макет адреса" определен в активном шаблоне и содержит набор свойств адреса, назначенных переменной text$. В примере также добавляется адрес Джона Смита в список недавно использовавшихся адресов.
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)
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.