Dentro de um arquivo Word, eu tenho alguns objetos (label's e textbox). Como eu faço para pegar o nome de todas as label's que existe no meu documento.

Eu já tentei o código abaixo, mas ele só funciona no VB.

 

Dim AtualLabel As Control

   For Each AtualLabel In ActiveDocument.Controls
      If UCase(AtualLabel.Name) = ucase("label1") Then
         AtualLabel.Caption = "aaaaaaaaaaaaaaaaaalessandro"
      End If
   Next

 

O ActiveDocument é o nome do formulário do word. O problema é que o Word não entende o comando "Controls", e com isso ele não pega os objetos que estão no document.

For Each AtualLabel In Form1.Controls
      If UCase(AtualLabel.Name) = "LABEL1" Then
         AtualLabel.Caption = "aaaaaaaaaaaaaaaaaalessandro"
      End If
   Next
ou então tire o Ucase

 

For Each AtualLabel In Form1.Controls
      If (AtualLabel.Name) = "label1" Then
         AtualLabel.Caption = "aaaaaaaaaaaaaaaaaalessandro"
      End If
   Next

A função UCase retorna toda a string passada como parametro em Maiusculo