Selle artikli Microsoft Word 97 kohta käiva versiooni vaatamiseks klõpsake linki
187985.
Kokkuvõte
See artikkel sisaldab nelja Microsoft Visual Basic for Applications makrodega, mida saate kasutada Microsoft Word 6.0 kaitstud dokumentide vormi väljade vahel liikumiseks klahvi ENTER Windowsi funktsiooni jäljendada.
Lisateabe saamiseks
Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita, sealhulgas, kuid mitte ainult, kaudseid garantiisid kaubastatavuse ja/või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete tuttav programmeerimiskeelega programmeerimise keel ja tööriistu kasutada loomiseks ja silumiseks protseduure. Microsofti tugitöötajad võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure vastavalt oma vajadustele.
Kui teil on piiratud programmeerimise kogemus, võite võtta ühendust Microsofti sertifitseeritud partnerite või Microsofti nõustamisteenused. Lisateabe saamiseks külastage järgmisi Microsofti veebisaite:
Microsoft Certified partnerite - https://partner.microsoft.com/global/30000104
Microsofti Advisory Services - http://support.microsoft.com/gp/advisoryservice
Tugiteenuseid, mis on saadaval ja kuidas võtta ühendust Microsofti kohta lisateabe saamiseks külastage järgmist Microsofti veebisaiti:http://support.microsoft.com/default.aspx?scid=fh; EN-US. CNTACTMS
Proovi koodi käivitamist kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks artiklinumbrit:
212536 OFF2000: näidiskoodi käitamine teabebaasi artiklitest
Sisestage võti funktsionaalsuse Word 6.0
Word 6.0 for Windows, kui vajutate klahvi ENTER dokumenti, mis on kaitstud vormid, liigub järjepunkt järgmisele vormiväljale. Seevastu Wordi uuemates versioonides klahvi ENTER ei liigu järgmisele vormiväljale, kuid selle asemel lisab lõigumärgi, nagu ka kaitsmata dokumendis. See võimaldab teil sisestada mitu rida teksti teksti vormi väljale.
Makrod
Järgnevad neli Visual Basic for Applications makrodega, mida saate kasutada koos jäljendada Word 6.0 for Windowsi funktsioone ka uutes kaitstud vormi väljale malli klahvi ENTER. Järgnevalt on iga makro funktsiooni Lühikirjeldus:
-
Esimese makro liigub järjepunkt järgmisele vormiväljale.
-
Teine makro määrab esimese makro klahvi ENTER.
-
Kolmas makro tagab Peamised funktsioonid ei kao, kui avate dokumendi, mis põhineb vormimalli tulevikus.
-
Neljas makro eemaldab määratud makro taastamine vaikimisi funktsionaalsust klahvi ENTER klahvi ENTER.
NB!: selle koodi töötada nii kirjutada, ei saa malli kaitsta. Kui mall on kaitstud, kuvatakse järgmine tõrketeade:
Seoses ei saa muuta.
Võta Mall, toimige järgmiselt.
-
Avage mall, mida selles artiklis kirjeldatud makrod.
-
Klõpsake menüü Tööriistad käsku Eemalda dokumendi.
-
Klõpsake menüü fail käsku Salvesta.
-
Klõpsake menüü fail käsku Sule.
Esimese makro: Järjepunkti teisaldamine järgmise vormi välja
See makro liigub järjepunkt järgmisele vormiväljale. Kui vormi väli on Viimane dokumendis, see liigub järjepunkt esimese välja.
See makro kasutab järjehoidjate kogu praeguse vormi välja nimi. Kõikide vormiväljade nimi on lisatud vormi väljale Järjehoidja nimi. Kui teil on muud järjehoidjad dokumendis, peate lisada rohkem koodi siin võimalike vigade. Makro eeldab ka kõik vormiväljad dokumentides lubada Kasutaja sisendi. Kui see ei ole teie dokumendis, peate lisama täiendav kood makro.
Makro kontrollib, kas praeguse jaotise kaitstud või kaitsmata ja seejärel liigub järgmisele vormiväljale (kaitstud jaotises) või lisandid lõigumärki (kaitsmata osas). See funktsioon on vajalikud dokumendid, mis sisaldavad nii jaotisi vormi sisend ja kaitsmata kaitstud jaotised.
Sub EnterKeyMacro()
' Check whether the document is protected for forms
' and whether the protection is active.
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _
Selection.Sections(1).ProtectedForForms = True Then
' Retrieve the bookmark of the current selection.
' This is equivalent to the name of the form field.
myformfield = Selection.Bookmarks(1).Name
' Go to the next form field if the current form field
' is not the last one in the document.
If ActiveDocument.FormFields(myformfield).Name <> _
ActiveDocument.FormFields(ActiveDocument.FormFields.Count) _
.Name Then
ActiveDocument.FormFields(myformfield).Next.Select
Else
' If the current form field is the last one,
' go to the first form field in the document.
ActiveDocument.FormFields(1).Select
End If
Else
' If the document is not protected for forms,
' insert a tab stop character.
Selection.TypeText Chr(13)
End If
End Sub
Teine makro: Määramine EnterkeyMacro makro ning sisestage
See makro peab EnterKeyMacro makro seeläbi ümberplaneerimine klahvi funktsioon kaitstud dokumendi vormiväljade kasutamisel klahvi ENTER. See makro kasutamisel kohandatud malli nimeks AutoNew. See muudab funktsiooni dokumentides uue vormi mall klahvi ENTER.
Sub AutoNew()
' Do Not protect the template containing these macros.
CustomizationContext = ActiveDocument.AttachedTemplate
' Bind the ENTER key to the EnterKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
' Reprotect the document with Forms protection.
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub
Kolmas makro: Määramine AutoOpen makro ning sisestage
Lisage AutoOpen makro järgmine kood. See tagab Peamised funktsioonid ei kao, kui avate dokumendi, mis põhineb vormimalli tulevikus.
Sub AutoOpen()
' This macro will reassign the ENTER key when you open an existing
' Word form fields document.
CustomizationContext = ActiveDocument.AttachedTemplate
' Bind the Enter key to the EnterKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
End Sub
Märkus: need makrod keelata mõned funktsioonid, nagu automaatkorrektuuri ja automaatteksti, ja võib esineda muid funktsioone, mis sõltuvad selleks toiminguks klahvi ENTER. Peate käivitama neljas makro klahvi ENTER vaikimisi funktsioonide taastamiseks või Microsoft Wordi uuesti.
Neljas makro: Eemaldamine määratud käsu ning sisestage
See makro taastab vaikimisi funktsionaalsust klahvi ENTER. See makro kasutamisel kohandatud malli nimi AutoClose.
Sub AutoClose()
CustomizationContext = ActiveDocument.AttachedTemplate
FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
' Disables prompt to save template changes.
Templates(1).Save
End Sub
Märkus: asukohta, kus klaviatuuri kohandamine on salvestatud malli, mis on seotud aktiivse dokumendi juhul määrab CustomizationContext atribuut.
Viited
Võimaluste loomine programmi Visual Basic for Applications ja Microsoft Word 2000 kohandatud lahenduste kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artiklite kuvamiseks artiklinumbreid:
212623 WD2000: makro programmeerimine ressursid
226118 OFF2000: programmeerimise vahendeid Visual Basic for Applications