כיצד קוד מקש ENTER כדי לעבור בין שדות טופס באופן מוגן ב- Word

עבור גירסת Microsoft Word 97 של מאמר זה, ראה
187985.

סיכום

מאמר זה מכיל ארבעה Microsoft Visual Basic עבור פקודות מאקרו של יישומים בהם באפשרותך להשתמש כדי לחקות את Microsoft Word 6.0 עבור הפונקציונליות של Windows מקש ENTER כדי לעבור בין שדות טופס במסמכים המוגנים.

מידע נוסף

מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת, וכולל, אך לא רק, אחריות משתמעת לגבי סחירות ו/או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות מתבצעת הפגין ואת הכלים המשמשים ליצירה ולניפוי של הליכים. מומחי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת, אך הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים.
אם ניסיונך בתכנות מוגבל, ייתכן שתרצה ליצור קשר עם שותף מורשה של Microsoft או שירותי ייעוץ של Microsoft. לקבלת מידע נוסף, בקר באתרי האינטרנט הבאים של Microsoft:

Microsoft מוסמך שותפים - https://partner.microsoft.com/global/30000104

עלון יידוע של Microsoft בנושא שירותים - http://support.microsoft.com/gp/advisoryservice

לקבלת מידע נוסף על אפשרויות התמיכה הזמינות ועל האופן שבו ניתן ליצור קשר עם Microsoft, בקר באתר האינטרנט הבא של Microsoft:http://support.microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMS
לקבלת מידע נוסף אודות הפעלת קוד לדוגמה, לחץ על מספר המאמר שלהלן כדי להציג את המאמר הרלוונטי מתוך Microsoft Knowledge Base:

212536 OFF2000: כיצד להפעיל קוד לדוגמה מתוך מאמרי Knowledge Base

הזן מפתח פונקציונליות ב- Word 6.0

ב- Word 6.0 עבור Windows, אם תקיש על מקש ENTER במסמך מוגן עבור טפסים, נקודת ההכנסה תזוז לשדה הטופס הבא. לעומת זאת, מקש ENTER ובגירסאות מאוחרות יותר של Word, תעביר לשדה הטופס הבא אך במקום זאת הוספת סימון פיסקה, בדיוק כפי שהוא מופיע במסמך מוגן. פעולה זו מאפשרת לך להזין שורות מרובות של טקסט לתוך שדה טופס מסוג טקסט.

פקודות מאקרו

להלן ארבע Visual Basic עבור פקודות מאקרו של יישומים שניתן לבצע יחד כדי לחקות את Word 6.0 עבור Windows הפונקציונליות של המקש ENTER במסמכים חדשים טופס מוגן שדה המבוסס על תבנית. תיאור קצר של הפונקציונליות של כל מאקרו הוא הבאות:

המאקרו הראשון מעביר את נקודת הכניסה לשדה הטופס הבא.
המאקרו השני מקצה את המאקרו הראשון מקש ENTER.
המאקרו השלישי מבטיח פונקציונליות מפתח ממשיך בעת פתיחת מסמך המבוסס על תבנית הטופס בעתיד.
המאקרו הרביעי מסירה את המאקרו שהוקצה מקש ENTER, שחזור פונקציונליות ברירת המחדל מקש ENTER.

חשוב: עבור קוד זה לעבוד כפי שהוא כתוב, התבנית צריכה לא יהיה מוגן. אם התבנית מוגנת, תקבל את הודעת השגיאה הבאה:

אין אפשרות לשנות את ההקשר.

כדי לבטל את ההגנה על התבנית, בצע את הפעולות הבאות:

פתח את התבנית המכילה את פקודות המאקרו המתוארות במאמר זה.
בתפריט כלים , לחץ על בטל הגנת מסמך.
בתפריט קובץ , לחץ על שמור.
בתפריט קובץ , לחץ על סגור.

המאקרו הראשון: הזזת נקודת הכניסה אל שדה הטופס הבא

מאקרו זה מעביר את נקודת הכניסה לשדה הטופס הבא. אם שדה הטופס הנוכחי הוא אחד האחרון במסמך, הוא מעביר את נקודת הכניסה אל שדה הטופס הראשון.

פקודת מאקרו זו משתמשת אוסף סימניות כדי לאחזר את שם שדה הטופס הנוכחי. שמו של כל שדה הטופס הוא גם שם סימניה הוספת עבור שדה הטופס. אם יש לך כל הסימניות במסמך שלך, ייתכן שיהיה עליך להוסיף קוד נוסף כאן כדי לטפל בשגיאות פוטנציאליים. המאקרו מניחה גם את כל שדות הטופס במסמכים לאפשר קלט משתמש. אם זה אינו המקרה במסמך, עליך להוסיף קוד נוסף במאקרו שלך.

המאקרו תבדוק אם המקטע הנוכחי מוגן או לבטל את ההגנה ולאחר מכן עובר לשדה הטופס הבא (בתוך מקטע מוגן) או הוספת סימון פיסקה (במקטע מוגן). פונקציונליות זו נחוצה עבור מסמכים המכילים את שני המקטעים המוגנים עבור הטופס קלט ו ללא הגנה מקטעים.

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

המאקרו השני: הקצאת מאקרו EnterkeyMacro מקש ENTER

מאקרו זה מצרף את המאקרו EnterKeyMacro על המקש ENTER, ובכך התכנות הפונקציה של המפתח כאשר היא בשימוש בשדות טופס מסמך מוגן. כשמשתמשים מאקרו זה תבנית מותאמת אישית, את השם AutoNew. פעולה זו משנה את הפונקציונליות של המקש 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

מאקרו השלישי: הקצאת מאקרו AutoOpen מקש ENTER

הוספת פקודת מאקרו AutoOpen עם הקוד הבאה. פעולה זו מבטיחה כי פונקציונליות מפתח ממשיך בעת פתיחת מסמך המבוסס על תבנית הטופס בעתיד.

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

הערה: הפעלת פקודות מאקרו אלה לבטל תכונות מסוימות, כגון תיקון טקסט אוטומטי, ועשוי להשפיע על תכונות אחרות תלויות מקש ENTER עבור פעולה תקינה. עליך להפעיל את המאקרו רביעית כדי לשחזר פונקציונליות ברירת המחדל מקש ENTER, או הפעל מחדש את Microsoft Word.

מאקרו הרביעי: הסרת את הפקודה המוקצית על מקש ENTER

פקודת מאקרו זו משחזרת פונקציונליות ברירת המחדל מקש ENTER. כשמשתמשים מאקרו זה תבנית מותאמת אישית, את השם AutoClose.

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

הערה: המאפיין CustomizationContext מגדיר את המיקום שבו יישמרו, במקרה זה התבנית המצורפת למסמך הפעיל התאמה אישית של לוח המקשים.

הפניות

לקבלת מידע נוסף אודות המשאבים הזמינים עבור יצירת פתרונות מותאמים אישית באמצעות Visual Basic עבור יישומים ו- Microsoft Word 2000, לחץ על מספרי המאמרים שלהלן כדי להציג את המאמרים מתוך מאגר הידע Microsoft Knowledge Base:

212623 WD2000: משאבים תיכנות מאקרו

226118 OFF2000: משאבים תיכנות עבור Visual Basic for Applications