Nasıl kod Word korumalı bir formda form alanları arasında hareket etmek için ENTER tuşuna

İlk makro: Sonraki Form alanı için ekleme noktasını taşıma

Bu makro ekleme noktasını sonraki form alanına taşır. Geçerli form alanı belge içinde sonuncu ise, ilk form alanını için ekleme noktasını taşır.

Bu makro, yer imleri koleksiyonu geçerli form alanı adı almak için kullanır. Her form alanı ayrıca form alanı için eklenmiş olan yer işareti adı adıdır. Diğer yer işaretleri belgenizde varsa, olası hataları işlemek için daha fazla kod eklemek zorunda kalabilirsiniz. Makro belgelerdeki tüm form alanları kullanıcı girişine izin kabul eder. Belgenizi durumda değilse, makro içinde ek kod eklemeniz gerekir.

Makroyu geçerli bölüm korumalı veya korumasız ve sonraki form alanı (korumalı bölümün) taşır veya bir paragraf işareti (korumasız bir bölümü) ekler olup olmadığını görmek için denetler. Bu işlev giriş ve korumasız formun korumalı her iki bölüm içeren belgeler için gerekli olan bölümler.

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

İkinci makro: için ENTER tuşuna EnterkeyMacro makro atama

Bu makro, korumalı bir belge form alanları kullanıldığında anahtarın işlevi böylece eşleştirilmelerini ENTER tuşuna EnterKeyMacro makrosu ekler. Özel bir şablon Bu makroyu kullandığınızda, otomatik yeni adı. Bu şablona dayalı tüm yeni form belgelerde ENTER tuşuna işlevselliğini değiştirir.

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

Üçüncü makro: için ENTER tuşuna AutoOpen makro atama

Bir AutoOpen makro ile aşağıdaki kodu ekleyin. Bu, gelecekte form şablonunu temel alan bir belgeyi açtığınızda önemli işlevlerini devam etmesini sağlar.

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

Not: Bu makroları çalıştırma Otomatik Düzelt ve otomatik metin, bazı özellikler, devre dışı bırakabilir ve düzgün çalışması için ENTER tuşuna bağımlı olan diğer özellikleri etkileyebilir. ENTER tuşu varsayılan işlevselliğini geri yüklemek veya Microsoft Word yeniden dördüncü makroyu çalıştırmak gerekir.

Dördüncü makro: komut için ENTER tuşuna atanmış kaldırma

Bu makro, ENTER tuşu varsayılan işlevselliği geri yükler. Özel bir şablon Bu makroyu kullandığınızda, AutoClose adı.

Sub AutoClose()
   CustomizationContext = ActiveDocument.AttachedTemplate
   FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
   ' Disables prompt to save template changes.
   Templates(1).Save
End Sub

Not: klavye özelleştirme olduğu, bu durumda, etkin belgeye iliştirilmiş şablonu kaydedilecek konumu CustomizationContext özelliğini ayarlar.