Programma code de ENTER-toets om te schakelen tussen de formulier velden in een beveiligd formulier in Word

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 211219 - Bekijk de producten waarop dit artikel van toepassing is.
Zie voor een Microsoft Word 97-versie van dit artikel:187985.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Dit artikel bevat vier Microsoft Visual Basic Macro's voor toepassingen die u gebruiken kunt om Microsoft Word 6. 0 voor emuleren Windows-functionaliteit van de ENTER-toets voor het navigeren tussen velden in formulier beveiligde documenten.

Meer informatie

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder garantie of impliciete, met inbegrip van maar niet beperkt tot, de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeer taal worden opgespoord en de hulp programma's en procedures voor fout opsporing. Microsoft support professionals kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar ze zal niet deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke behoeften aanpassen.
Als u zoveel program meer ervaring hebt, kunt u contact opnemen met een Microsoft Certified Partner of Microsoft Advisory Services. Meer informatie vindt u op deze Microsoft-websites:

Microsoft Certified Partners-https://partner.Microsoft.com/Global/30000104

Microsoft Advisory Services-http://support.Microsoft.com/gp/advisoryservice

Ga naar de volgende Microsoft-website voor meer informatie over de ondersteuningsopties die beschikbaar zijn en hoe u contact kunt opnemen met Microsoft:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
Voor meer informatie over voorbeeldcode uitvoert, klikt u op het volgende artikelnummer om het artikel in de Microsoft Knowledge Base:
212536Office 2000: Hoe u voorbeeldcode uit Knowledge Base-artikelen uitvoeren

Voer sleutel functionaliteit in Word 6. 0

In in Word 6. 0 voor Windows, als u op ENTER drukt in een document dat is beveiligd voor formulieren, de invoegpositie verplaatst naar het volgende formulierveld. Daarentegen, in latere versies van Word de ENTER-toets niet naar de volgende formulier veld, maar in plaats daarvan voegt een alineamarkering, zoals deze wordt een niet-beschermde document. Hiermee kunt u meerdere regels tekst in een tekst formulierveld.

Macro's

Hier volgen vier in Visual Basic for Applications-macro's die u samen kunt gebruiken om te emuleren het Word 6. 0 voor Windows-functionaliteit van de ENTER sleutel in het nieuwe beveiligde formulier veld documenten gebaseerd op een sjabloon. Het volgende is een korte beschrijving van de functionaliteit van elke macro:
  • De eerste macro wordt de invoegpositie verplaatst naar het volgende formulier veld.
  • De tweede macro wordt de eerste macro toegewezen aan de ENTER sleutel.
  • De derde macro zorgt ervoor dat de belangrijkste functies blijft bij het openen van een document dat is gebaseerd op de formuliersjabloon in de toekomstige.
  • De vierde macro verwijdert de toegewezen macro Geef sleutel terugzetten de standaardfunctionaliteit van de ENTER-toets.
BELANGRIJK: Voor deze code zoals geschreven werken moet de sjabloon worden beschermd. Als de sjabloon is beveiligd, ontvangt u de volgende fout bericht:
De context kan niet worden gewijzigd.
Naar opheffen van de sjabloon, als volgt:
  1. Open de sjabloon met de macro's die zijn beschreven in in dit artikel.
  2. Op deHulp programma'smenu, klikt u opDocument beveiliging opheffen.
  3. Op deBestandmenu, klikt u opOpslaan.
  4. Op deBestandmenu, klikt u opSluiten.

Eerste Macro: De invoegpositie verplaatsen naar het volgende formulierveld

Deze macro wordt de invoegpositie verplaatst naar het volgende formulierveld. Als het huidige formulierveld is de laatste in het document, wordt de invoegpositie verplaatst Wijs het eerste formulierveld.

Deze macro wordt de bladwijzers de collectie ophalen de naam van het huidige formulierveld. De naam van elke formulierveld is ook de naam van een bladwijzer ingevoegd voor het formulierveld. Als u andere bladwijzers hebt in uw document hebt u kan hier meer code toevoegen voor het afhandelen van mogelijke fouten. De macro wordt ook aangenomen dat alle formulier velden in de documenten kunnen gebruikers invoer. Als dit niet het geval is in uw document, moet u extra code in uw macro toevoegen.

De macro wordt gecontroleerd of de huidige sectie beveiligd of onbeveiligd en vervolgens ofwel verplaatst naar de volgende formulierveld (in een beveiligde sectie) of voegt een alinea markering (in een onbeveiligde sectie). Deze functionaliteit is vereist voor documenten die beide secties die zijn beveiligd voor formulier invoer en onbeveiligd bevatten secties.
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
				

Tweede Macro: De Macro EnterkeyMacro toewijzen aan de ENTER-toets

Deze macro wordt de macro EnterKeyMacro gekoppeld aan de ENTER-toets geprogrammeerd waardoor de functie van de sleutel wanneer het wordt gebruikt in beveiligde document formulier velden. Wanneer u deze macro in een aangepaste sjabloon gebruiken, de naam AutoNew. Hiermee wijzigt u de functionaliteit van de ENTER-toets in alle nieuwe formulier op de sjabloon gebaseerde documenten.
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
				

Derde Macro: De AutoOpen-Macro toewijzen aan de ENTER-toets

Een AutoOpen-macro met de volgende code toevoegen. Dit zorgt ervoor dat de belangrijkste functionaliteit blijft bij het openen van een document dat is gebaseerd op het formulier sjabloon in de toekomst.
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
				
OPMERKING: Deze macro's uitgevoerd mogelijk uitgeschakeld sommige functies, zoals Auto Correctie en Auto tekst, en mogelijk andere functies die afhankelijk zijn van invloed op de Voer de code voor een juiste werking. U moet de vierde macro te herstellen de standaard functies van de toets ENTER of Microsoft Word opnieuw start.

Vierde Macro: Verwijderen van de opdracht die is toegewezen aan de ENTER-toets

Deze macro herstelt de standaardfunctionaliteit van de ENTER-toets. Wanneer u deze macro in een aangepaste sjabloon gebruikt, naam AutoClose.
Sub AutoClose()
   CustomizationContext = ActiveDocument.AttachedTemplate
   FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
   ' Disables prompt to save template changes.
   Templates(1).Save
End Sub
				
OPMERKING: DeCustomizationContexteigenschap stelt u de locatie waar het toetsen bord aanpassen worden opgeslagen, in dit geval de sjabloon die is gekoppeld aan het actieve document.

Referenties

Voor meer informatie over beschikbare bronnen voor maken van aangepaste oplossingen met Visual Basic for Applications en Microsoft Word 2000, klikt u op de volgende artikel nummers om de artikelen in de Microsoft Knowledge Base:
212623Word 2000: Macro program meer bronnen
226118Office 2000: Programmeren bronnen voor Visual Basic for Applications

Eigenschappen

Artikel ID: 211219 - Laatste beoordeling: zondag 18 september 2011 - Wijziging: 3.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
Trefwoorden: 
kbautomation kbmacro kbprogramming kbhowto kbinfo kbinterop kbmt KB211219 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:211219

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