Метод 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 и обратная связь.