USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Word
Alessandro
SÃO GONÇALO
RJ - BRASIL
ENUNCIADA !
Postada em 10/09/2004 09:58 hs         
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.
TÓPICO EDITADO
 
THECRAZY
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 10/09/2004 10:09 hs            
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

  Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8)
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página