CustomLabel オブジェクト

CustomLabel オブジェクト

CustomLabels CustomLabel

定型外の宛名ラベルを表します。CustomLabel オブジェクトは CustomLabels コレクションのメンバーです。CustomLabels コレクションには、[ラベル オプション] ダイアログ ボックスに表示されるすべての定型外の宛名ラベルが含まれます。

使い方

CustomLabels(index) を使用して CustomLabel オブジェクトを取得します。引数 index にはカスタム宛名ラベルの名前またはインデックス番号を指定します。次の使用例は、"My Labels" という名前の既存のカスタム宛名ラベルのレイアウトで新しい文書を作成します。

Set ML = Application.MailingLabel
If ML.CustomLabels("My Labels").Valid = True Then
    ML.CreateNewDocument Name:="My Labels"
Else
    MsgBox "My Labels ラベルは見つかりませんでした。"
End If
		

インデックス番号は、CustomLabels コレクションでのカスタム宛名ラベルの位置を表します。次の使用例は、1 番目のカスタム宛名ラベルの名前を表示します。

If Application.MailingLabel.CustomLabels.Count >= 1 Then
    MsgBox Application.MailingLabel.CustomLabels(1).Name
End If
		

メモ CustomLabel オブジェクトは、CustomLabels コレクション内でアルファベット順に並んでいます。CustomLabel オブジェクトのインデックス番号は、コレクションの内容が変更されるたびに、動的に割り当て直されます。そのため、特定の CustomLabel オブジェクトを取得するには、インデックス番号を指定するより名前を指定するほうが誤りを防ぐことができます。

Add メソッドを使用して、カスタム宛名ラベルを作成します。次の使用例は、"My Label" という名前のカスタム宛名ラベルを追加し、用紙サイズを設定します。

Set ML = _
    Application.MailingLabel.CustomLabels.Add(Name:="My Labels", _
    DotMatrix:=False)
ML.PageSize = wdCustomLabelA4