Application.GetAddress メソッド (Word)

既定のアドレス帳からアドレスを返します。

構文

式。GetAddress (Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

expression 必須です。 Application オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
名前 省略可能 バリアント型 (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) アドレス帳のプロパティのシーケンスを定義する定型句エントリの名前が AddressProperties によって指定されている場合は true。カスタム レイアウトを指定する場合は false。
DisplaySelectDialog 省略可能 バリアント型 (Variant) [結果] テーブルに示されているように、[名前の選択] ダイアログ ボックスを表示するかどうかを指定します。
SelectDialog 省略可能 バリアント型 (Variant) [表示モード] テーブルに示されているように、[名前の選択] ダイアログ ボックスの表示方法 (つまり、どのモードで) を指定します。
CheckNamesDialog 省略可能 バリアント型 (Variant) Name 引数の値が十分具体的でない場合に [名前の確認] ダイアログ ボックスを表示する場合は true。
RecentAddressesChoice 省略可能 バリアント型 (Variant) True を指定 のリストを使用するの場合、最近、返信先アドレスを使用します。
UpdateRecentAddresses 省略可能 バリアント型 (Variant) 最近使用したアドレスのリストにアドレスを追加する場合は true。住所を追加しない場合は false。 SelectDialog が 1 または 2 に設定されている場合、この引数は無視されます。

結果

値 結果
0 (ゼロ) [ 名前を選択] ダイアログ ボックスは表示されません。
1 または省略 [ 名前を選択] ダイアログ ボックスは表示されます。
2 [ 名前を選択] ダイアログ ボックスは表示されず、特定の名前の検索も行われません。 このメソッドが返すアドレスは既に選択されているアドレスです。

表示モード

値 表示モード
0 (ゼロ) または省略する 参照モード
1 構成モード、[ 宛先] ボックスのみ
2 構成モード、[ 宛先] と [ CC] ボックスの両方

戻り値

String

例

この例では、変数 strAddress を John Smith のアドレスに設定し、カーソルを文書の先頭に移動して、アドレスを挿入します。 挿入されるアドレスには、既定のアドレス帳のプロパティが含まれます。

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

次の使用例は、レイアウトの定義として定型句 "My Address Layout" を使用して、大島 幹のアドレスを返します。 "My Address Layout" は作業中のテンプレートで定義されていて、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 のサポートおよびフィードバックを参照してください。

  • Last updated on