Word: Een Routine van de Macro of functie aanroepen vanuit een andere Macro

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 81414 - Bekijk de producten waarop dit artikel van toepassing is.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

In Microsoft Word voor Windows, kunt u macro subroutines en functies aanroepen die zijn gedefinieerd in een macro vanuit een andere macro. U kunt deze techniek maken van bibliotheken met algemene routines en hoeft niet te kopiëren of herschrijven procedures die u vaak gebruikt.

Meer informatie

Word97

Voor meer informatie over het aanroepen van subroutines van de macro en functies, terwijl Klik op de Office-assistent in de Visual Basic for Applications-Editor Typ "Bellen", klik op zoeken en klik vervolgens op 'Call-instructie'.

Andere versies van Word bovenstaande

De subroutine:

Een macrosubroutine vanuit een andere macro aanroepen, gebruikt u de volgende Syntaxis:
MacroName.RoutineName
Macronaam is de naam van de macro met de routine en RoutineName is de naam van de routine die u wilt gebruiken. De sjabloon die de bibliotheekroutine of een document waarin de sjabloon is gekoppeld, moet openen wanneer de routine is aangeroepen. Opgeslagen in de normale routines.DOT-sjabloon zijn altijd beschikbaar. Als u een macro met de naam Lib1, waarbij bevat de subroutine MyBeep, kunt u MyBeep aanroepen vanuit een andere macro's. De Dit is de subroutine MyBeep:
   Sub MyBeep
      Beep : Beep : Beep
      For t = 1 to 100 : Next          'Pause
      Beep : Beep : Beep
   End Sub
				
In het volgende voorbeeld wordt geïllustreerd hoe u kunt de subroutine MyBeep in een macro met de naam SwitchToDotPath:
   Sub MAIN
      MsgBox "This is a test"
      Lib1.MyBeep
   End Sub
				
Functie:

De syntaxis voor een functie die u hebt gedefinieerd in een andere macro is vergelijkbaar met die voor een subroutine aanroepen gebruikt. Als u bijvoorbeeld een functie genaamd MyDateTime$(time$) in de bibliotheek Lib1 macro, kunt u Deze functie aanroepen vanuit een andere macro met de naam CheckDateTime. De volgende is de functie MyDateTime$(time$):
   Function MyDateTime$(time$)
      mDate$ = Date$()
      mTime$ = Time$()
      MyDateTime$ = mDate$ + " " + mTime$
   End Function
				
U kunt de functie MyDateTime$(time$) aanroepen vanuit de volgende macro CheckDateTime aangeroepen:
   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
				

Referenties

'Using WordBasic,' door WexTech-systemen en Microsoft's 58 59

Eigenschappen

Artikel ID: 81414 - Laatste beoordeling: zaterdag 9 juni 2012 - Wijziging: 4.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Word 2.0 Standard Edition
  • Microsoft Word 95a
  • Microsoft Word 97 Standard Edition
  • Microsoft Word 6.0 for Macintosh
  • Microsoft Word 6.01 voor Macintosh
Trefwoorden: 
kbmacro kbmt KB81414 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende: 81414
Vrijwaring inhoud KB-artikelen over niet langer ondersteunde producten
Dit artikel heeft betrekking op producten waarvoor Microsoft geen ondersteuning meer biedt. Daarom wordt dit artikel alleen in de huidige vorm aangeboden en wordt het niet meer bijgewerkt.

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com