CustomLabels コレクション オブジェクト

CustomLabels コレクション オブジェクト

MailingLabel CustomLabels CustomLabel

[ラベル オプション] ダイアログ ボックスで使用できる CustomLabel オブジェクトのコレクションです。このコレクションには、プリンタのすべての種類 (ドット マトリックス、レーザー、インク ジェットなど) のカスタム宛名ラベルが含まれます。

使い方

CustomLabels プロパティを使用して CustomLabels コレクションを取得します。次の使用例は、使用できるカスタム宛名ラベルの数を表示します。

MsgBox Application.MailingLabel.CustomLabels.Count
		

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

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

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