Kopsavilkums
Word nav iebūvēts aizkavēt makro izpildes metodes, bet risinājumi var izmantot, lai sasniegtu to.
Papildinformācija
Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.
Lai iegūtu papildinformāciju par to, kā izmantot šajā rakstā parauga kods, noklikšķiniet uz norādītā raksta numura un lasiet Microsoft zināšanu bāzes rakstu:
212536 OFF2000: kā palaist kodu paraugi no zināšanu bāzes raksti
Lai atliktu izpildes makro, izmantojot Visual Basic for Applications, var izmantot vienu no šīm metodēm.
1. metode: Izmanto uz tukša. Nākamais cikls
Šīs metodes trūkumi ir tas, ka nav tiešā veidā, lai noteiktu precīzu laika periodu, kurā programma prasa cilpa. Laiks ir atkarīgs no ātruma datoru. Cilpa, kas nedarbojas, bet kādu laiku aizņem palaiž kodu.
Sub MyDelayMacro
For iCount = 1 to 1000
Next iCount
End Sub
2. metode: Izmantot API izsaukums apturēt Word izpildi
Izmantot API izsaukums apturēt vārda izpildes.
Funkcija, kas aptur programmu izpilde noteikta milisekundēs norādītais laiks ir Kernel32. Var izmantot funkciju, tā vispirms jāpaziņo modulis to izmantos vispārējo deklarāciju sadaļā:
Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)
Izsaukt funkciju miega režīmā , izmantojiet šo sintaksi:
Sub Sleep()
Sleep 1000 'Implements a 1 second delay
End Sub
3. metode: OnTime metodi
Izmantojiet metodi OnTime iestatīt daudz laika, lai apturētu. OnTime metodi izmanto šādu sintaksi:
vārda. OnTime (ja nosaukums, Tolerance)Nosaukuma argumenta nepieciešams makro nosaukumu, jo ir jāizveido divi makro: pirmais makro OnTime metode zvanu un citas komandas, kas saistīta ar makro un otrā makro, atvēlētais laiks ir pagājis. Otrā makro var "fiktīva" makro, kas nedarbojas.
Šis piemērs darbojas makro ar nosaukumu "MyDelayMacro" 15 sekunžu laikā piemērs darbojas.
Sub MyMainMacro()
' Pause for 15 seconds.
Application.OnTime When:=Now + TimeValue("00:00:15"), _
Name:="MyDelayMacro"
End Sub
Public Sub MyDelayMacro()
' Place your delayed macro commands here.
MsgBox "This macro runs after 15 seconds."
End Sub
Papildinformāciju par OnTime metodi, izmantojot Visual Basic redaktora izvēlnē palīdzība noklikšķiniet uz Microsoft Visual Basic palīdzība , Office palīgā vai atbilžu vednī ierakstiet OnTime metodi un pēc tam noklikšķiniet uz meklēšanu , lai skatītu tēmu.
Atsauces
Lai iegūtu papildinformāciju, kā iegūt palīdzību par Visual Basic for Applications, noklikšķiniet uz raksta numura un lasiet Microsoft zināšanu bāzes rakstu:
212623 WD2000: makro programmēšana resursi
226118 OFF2000: Visual Basic for Applications programmēšanu resursi
