Word'deki korumalı bir formda forma alanlar arasında hareket etmek için ENTER tuşuna nasıl

Makale çevirileri Makale çevirileri
Makale numarası: 211219 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makalenin Microsoft Word 97 sürümü için bkz: 187985.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, Microsoft Visual Basic for Applications makroları, form alanlarını korumalı belgeler arasında taşıma için ENTER tuşuna işlevselliğini Windows için Microsoft Word 6.0 öykünmek için kullanabileceğiniz dört içerir.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; satılabilirlik ve/veya belirli bir amaca uygunluk da dahil, ancak bununla sınırlı olmamak kaydıyla, örtülü veya açık garanti vermez. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek uzmanları, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.
Programlama deneyiminiz kısıtlıysa, bir Microsoft Sertifikalı İş Ortağı'na veya Microsoft Danışmanlık Hizmetleri'ne başvurabilirsiniz. Daha fazla bilgi için şu Microsoft Web sitelerini ziyaret edin:

Microsoft Partner - https://partner.microsoft.com/global/30000104 Onaylandı

Microsoft danışma belgesi Hizmetleri - http://support.microsoft.com/gp/advisoryservice

Kullanılabilir destek seçenekleri ve Microsoft'a başvurma konusunda daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
Örnek kodu çalıştırma hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
212536OFF2000: Nasıl Knowledge Base makalelerini örnek kod Çalıştır

Word 6. 0'daki anahtar işlevsellik ENTER

Korunan bir belgede formlar için ENTER tuşuna basın, Windows için Word 6.0 içinde ekleme noktasını sonraki form alanına taşır. Buna ek olarak, Word'ün sonraki sürümlerinde, ENTER tuşuna formunu bir sonraki alana gider ancak korunmasız bir belgede yalnızca gibi bunun yerine bir paragraf işareti ekler. Böylece metin form alanı birkaç satırlık metin girin.

Makrolar

Aşağıda, dört Visual Basic for Applications makroları Word 6.0 Windows işlevselliğini ENTER tuşu için yeni'na öykünme birlikte kullanabileceğiniz bir şablonu temel alan bir form alanı belge korumalı verilmiştir. Her makro işlevselliğini kısa bir açıklaması aşağıda verilmektedir:
  • Ilk makroyu, ekleme noktasını sonraki form alanına taşır.
  • Ikinci makronun ilk makro için ENTER atadığı anahtar.
  • Üçüncü makro, daha sonra form şablonunu temel alan bir belgeyi açtığınızda, anahtar işlevini devam etmesini sağlar.
  • Dördüncü makro atanmış makro ENTER kaldırır anahtarı, ENTER tuşuna varsayılan işlevselliğini geri yükleniyor.
ÖNEMLI: yazılmış gibi çalışması bu kodu için şablon değil korunması. Şablon korumaya alınmışsa, aşağıdaki hata iletisini alırsınız:
Içerik değiştirilemez.
Şablon korumasını kaldırmak için aşağıdaki adımları izleyin:
  1. Bu makalede açıklanan makro içeren şablonu açın.
  2. Araçlar menüsünden Korumayı Kaldır'ı tıklatın.
  3. Dosya menüsünde Kaydet ' i tıklatın.
  4. Dosya menüsünden Kapat ' ı tıklatın.

Ilk 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ı son bir belge içinde ekleme noktasını ilk form alanına taşır.

Bu makro, yer işaretleri kullanan geçerli form alanı adı almak için koleksiyonu. Her <a0>form</a0> alanının da form alanı için eklenen bir yer işaretinin adını addır. Belgenizdeki başka bir yer işareti varsa, olası hataları işlemek için daha fazla kodu buraya ekleyin gerekebilir. Makroyu, belgelerdeki tüm form alanları, kullanıcı girişini izin de varsayar. Belgenizdeki durum bu değilse, ek kod, bir makroda eklemem gerekiyor.

Makronun geçerli bölüm korunan veya korunmayan ve sonraki form alanı (korumalı bir bölüm) taşır veya bir paragraf işareti (korunmasız bir bölümü) ekler olup olmadığını denetler. Korunan girin ve korunmamış form için her iki bölümde içeren belgeler için bu işlevi gereklidir bölümleri.
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
				

Ikinci bir makro: için <a2>ENTER</a2> tuşuna EnterkeyMacro makro atama

Bu makro EnterKeyMacro makro ENTER tuşuna, korumalı bir belge form alanlarını kullanıldığında, böylece anahtarının işlevini reprogramming ekler. Bu makroyu, özel bir şablon kullandığınızda, bu otomatik yeni ad. Bu şablona dayalı tüm yeni form belgelerde <a2>ENTER</a2> 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 <a2>ENTER</a2> tuşuna AutoOpen makro atama

Bir AutoOpen makrosu yerine aşağıdaki kodu ekleyin. Bu, daha sonra form şablonunu temel alan bir belgeyi açtığınızda, anahtar işlevini 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 makro çalışıyor gibi Otomatik Düzelt ve otomatik metin, bazı özellikleri devre dışı bırakabilir ve düzgün çalışması için <a2>ENTER</a2> tuşuna bağımlı olan diğer özellikleri etkileyebilir. ENTER tuşuna varsayılan işlevselliğini geri yükleyin veya Microsoft Word'Ü yeniden dördüncü bir makroyu çalıştırmak gerekir.

Dördüncü makro: için <a2>ENTER</a2> tuşuna atanan komutu kaldırılıyor

Bu makro, ENTER tuşuna varsayılan işlevselliğini geri yükler. Bu makroyu, özel bir şablon kullandığınızda, bu AutoClose adlandırın.
Sub AutoClose()
   CustomizationContext = ActiveDocument.AttachedTemplate
   FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
   ' Disables prompt to save template changes.
   Templates(1).Save
End Sub
				
Not: CustomizationContext özelliği klavye özelleştirme olduğu için bu durumda, şablonun etkin belgeye iliştirilmiş kaydedilecek konumu ayarlar.

Referanslar

Visual Basic for Applications ve Microsoft Word 2000 kullanarak bir özel çözümler oluşturmak için kullanılabilir kaynaklar hakkında ek bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
212623WD2000: Makro programlama kaynakları
226118OFF2000: Kaynaklar Visual Basic for Applications programlama

Özellikler

Makale numarası: 211219 - Last Review: 23 Kasım 2006 Perşembe - Gözden geçirme: 2.7
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
Anahtar Kelimeler: 
kbmt kbautomation kbmacro kbprogramming kbhowto kbinfo kbinterop KB211219 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:211219

Geri Bildirim Ver

 

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