コレクションからオブジェクトを返す (Word)
コレクションから 1 つのオブジェクトを取得するには、 Item メソッドを使用します。 次の使用例は、Documents コレクション内のdocFirst
最初のドキュメントを表す Document オブジェクトに変数を設定します。
Sub SetFirstDoc()
Dim docFirst As Document
Set docFirst = Documents.Item(1)
End Sub
Item メソッドは、ほとんどのコレクションの既定のメソッドです。Item キーワードを省略してステートメントをより簡潔にすることができます。
Sub SetFirstDoc()
Dim docFirst As Document
Set docFirst = Documents(1)
End Sub
名前付きオブジェクト
通常は Item メソッドに整数値を指定しますが、名前を指定する方が便利な場合もあります。 次の使用例は、Sales.doc という文書に切り替えます。
Sub ActivateDocument()
Documents("Sales.doc").Activate
MsgBox ActiveDocument.Name
End Sub
次の使用例は、作業中の文書内の先頭のブックマークが付いている文字列を選択します。
Sub SelectBookmark()
ActiveDocument.Bookmarks(1).Select
MsgBox Selection.Text
End Sub
コレクションによっては、インデックスに名前を指定できないものもあります。 コレクションの有効なインデックス値を確認するには、コレクション オブジェクトのトピックを参照してください。
定義済みのインデックス値
コレクションによっては、あらかじめ定義されているインデックス値を使用してオブジェクトを取得することができます。 定義済みのインデックス値は、それぞれ定数で表されます。 たとえば、Borders プロパティを使用して WdBorderType 定数を指定すると、1 つの Border オブジェクトが返されます。
次の使用例は、選択範囲の先頭の段落の下に、300 ポイントの罫線を追加します。
Sub AddBorderToFirstParagraphInSelection()
With Selection.Paragraphs(1).Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = wdColorBlue
End With
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。