VBA Word: Alle labels på en form ...

En måde at gøre det på...alle label starter med lbl i navnet.

Private Sub CommandButton1_Click()
    Dim mLabel As Label

    For Each item In Me.Controls
        If Left(item.Name, 3) = "lbl" Then
            Set mLabel = item
            mLabel.BackColor = RGB(23, 154, 45)
        End If
    Next
End Sub


VH CK

Perfect. Virker som jeg ønskede.

nicolaus