WD: Chamar uma rotina de macro ou função de outra macro

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 81414
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
No Microsoft Word para Windows, você pode chamar macro sub-rotinas e funções que são definidas em uma macro de dentro de outra macro. Você pode usar essa técnica para criar bibliotecas de rotinas comuns e evitar ter que copiar ou reescrever procedimentos que você usa com freqüência.
Mais Informações

Word97

Para obter mais informações sobre chamada macro sub-rotinas e funções, enquanto no Visual Basic para aplicativos Editor, clique no Assistente do Office, digite "Ligação", clique em Pesquisar e clique para exibir "Chamada geral".

Todas as outras versões do Word listadas acima

Sub-rotina:

Para chamar uma subrotina de macro de dentro de outra macro, use a seguinte sintaxe:
MacroName.RoutineName
Nomedamacro é o nome da macro que contém a rotina e RoutineName é o nome da rotina de que deseja usar. O modelo que contém a rotina de biblioteca ou um documento ao qual o modelo é anexado, deve ser aberto quando a rotina é chamada. Rotinas armazenadas no modelo Normal.dot estão sempre disponíveis. Por exemplo, se você criar uma macro chamada Lib1, que contém a sub-rotina MyBeep, você pode chamar MyBeep de outras macros. A seguir está a sub-rotina MyBeep:
   Sub MyBeep      Beep : Beep : Beep      For t = 1 to 100 : Next          'Pause      Beep : Beep : Beep   End Sub				
o seguinte exemplo ilustra como você pode usar a sub-rotina MyBeep em uma macro chamada SwitchToDotPath:
   Sub MAIN      MsgBox "This is a test"      Lib1.MyBeep   End Sub				
função:

A sintaxe para usar uma função que você definiu em outra macro é semelhante ao usado para chamar uma sub-rotina. Por exemplo, se você definir uma função chamada MyDateTime$(time$) na biblioteca Lib1 macro, você poderia chamar essa função a partir de outra macro, intitulada CheckDateTime. A seguir está a função MyDateTime$(time$):
   Function MyDateTime$(time$)      mDate$ = Date$()      mTime$ = Time$()      MyDateTime$ = mDate$ + " " + mTime$   End Function				
você pode chamar a função MyDateTime$(time$) da macro seguinte, chamada CheckDateTime:
   Sub Main                          'CheckDateTime macro      CheckDateTime$ = "91.09.30 11:50 AM"      ThisDateTime = Lib1.MyDateTime$(ThisDateTime$)      Print ThisDateTime$      If ThisDateTime$ = CheckDateTime$ Then         Lib1.MyBeep         MsgBox "It's time for lunch!"      Else         MsgBox "It's not time for lunch yet!"      EndIf   End Sub				
Referências
"Using WordBasic," WexTech Systems e Microsoft, páginas 58 59
1.x 1.0 1.1 1.1a 2.0 7.0 word95 winword macword 6.0.1 word7 word6 winword2 word8 6.0 word97 8.0

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 81414 - Última Revisão: 12/04/2015 09:12:28 - Revisão: 2.3

Microsoft Word 2.0 Standard Edition, Microsoft Word 2.0a, Microsoft Word for Windows 2.0b, Microsoft Word 2.0c, Microsoft Word 6.0 Standard Edition, Microsoft Word 6.0a, Microsoft Word 6.0c, Microsoft Word 95 Standard Edition, Microsoft Word 95a, Microsoft Word 97 Standard Edition, Microsoft Word 6.0 para Macintosh, Microsoft Word 6.01 para Macintosh, Microsoft Word 6.01 para Macintosh

  • kbnosurvey kbarchive kbmt kbmacro KB81414 KbMtpt
Comentários