В Word'e накидал элементы управления Label (надпись).
Подскажите, мне пожалуйста, как с помощью VB обойти все элементы управления, найти label'ы и установыить им определенные заголовоки (caption)

wladgreeniv, спасибо за подсказку. Но можно же за один проход пройти все лайбелы. Например, так

Private Sub Document_Open()
Dim laControl As Control

For Each laControl In Controls
If TypeOf laControl Is Label Then
'что-то делаем
End If
Next laControl
End Sub

Но при таком коде вылетает ошибка run-time error '424': Object required. Вот на эту строчку
For Each laControl In Controls.
Подскажи, пожалуйста, как за один проход проставить значения у лайбелов. Во вложении Word'овский файл, с которым я шаманю

EmilRegis, я конечно за тебя рад, что у тебя работает, но ты мне лучше подскажи, что мне сделать, чтобы капшены у лабелов все проставились у меня. И к стати, глянь мой файл в архиве, проставятся у тебя даты в лабелах

EmilRegis, у меня тоже так работает когда на UserForm накидал лабелы. Но суть в другом. Я взял открыл Word, вызвал панель Элементов управления, накидал на листе элементы управления Label. Вот теперь их и надо обойти все)). Как это сделать?

EmilRegis, вот код

Private Sub Document_Open()

Dim la As Label
Dim laControl As Control

For Each laControl In Controls
If TypeOf laControl Is Label Then

Set la = laControl
la.Caption = Format(Date, "dd mmmm yyyy")
End If
Next laControl
End Sub

У меня в проекте нет форм. Есть только Label'ы накиданые на листе документа

Krasnaja Shapka, скажи тогда как? Какой метод тогда заюзать в ThisDocument, чтобы обойти все элементы управления (или контролы).

SoftParanoik, О, большое спасибо тебе, теперь счастье на свете есть :)
Подскажи, где можно почитать, на каком сайте про VBA для Word'а или Excel'я. А то смотрел на некоторых, но не находил необходимой инфы. Заранее благодарен!