בעיה | עזרה בכתיבת מאקרו

[ASDF1345]

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

    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="סימניה_1"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With

מצורף המאקרו השני שמעביר את הסמן

    Selection.GoTo What:=wdGoToBookmark, Name:="סימניה_1"
    Selection.Find.ClearFormatting

מצורף התיקון שחשבתי לעשות, אמנם התיקון לא הצליח

If Err = 5101 Then
    Selection.GoTo What:=wdGoToBookmark, Name:="סימניה_1"
    Selection.Find.ClearFormatting
Exit Sub
End If

מי שיודע כיצד צריך לעשות את המאקרו השני שיכתוב זאת

באופן כללי - אפשר לשכלל את המאקרו הזה לשמירת כמה סוגי סימניות וכן לפתוח חלון שמאפשר בחירת סימניה להוספה או למעבר

[האדם החושב]

@ASDF1345
מצאתי פעם מאקרו שעושה את זה בדיוק, הוספתי אותו לתבנית ועשיתי לו כפתורים
מאקרו עוגנים.dotm

[מאקרו]

@ASDF1345 מה אתה רוצה שהמאקרו יעשה אם אין סימניה במסמך, שיעבור למסמך אחר או שלא יעשה כלום?

[ASDF1345]

@מאקרו
אני רוצה שהמאקרו לא יעשה כלום

[מאקרו]

@ASDF1345
זה הקוד שאתה צריך:

  On Error Resume Next
  Selection.GoTo What:=wdGoToBookmark, Name:="סימניה_1"

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

[ASDF1345]

@האדם-החושב
יש שגיאה בקובץ 'מאקרו עוגנים' שלאחר ההפעלה הוא מעלה שגיאה המאקרו אינו זמין ולאחר מכן הוא מסתיר את כל הסרגלי כלים שיש בוורד.

[האדם החושב]

@ASDF1345 מוזר, אצלי זה עבד מצויין [זה על אותו בסיס של התוספים לוורד "וורד תורני" ו"עיצוב תורני"]
אולי @pcinfogmach ידע מה הבעיה אצלך
בכל מקרה פשוט תיכנס לתוך העורך vba ותיקח את המאקרו משם

[דאנציג]

@האדם-החושב גם אצלי מראה את אותה שגיאה כמו @ASDF1345 , וכך זה נראה:

[דאנציג]

@ASDF1345 כתב בבעיה | עזרה בכתיבת מאקרו:

לשמור מיקום של הסמן כעת ולאחר מכן יהיה אפשר לחזור למיקום זה

אגב, וורד זוכר את שלושת המקומות האחרונים שהסמן היה.
קיצורי מקשים - קוטרול + אלט + Z / קונטרול + F6 (כמדומני).

[האדם החושב]

@דאנציג

אולי תנסה את הקובץ הזה:
עוגנים.zip

[דאנציג]

@האדם-החושב
מופיע!
אבל לא כל כך הבנתי מה בדיוק הוא עושה (אולי לא כל המאקרו מקושרים / פועלים כראוי).

[האדם החושב]

@דאנציג לא יודע, לא אני כתבתי את הקוד וגם לא כ"כ יצא לי להשתמש בו,

Spoiler

פשוט הייתי משועמם יום אחד, אז עשיתי את זה

למיטב זכרוני כל הכפתורים מקושרים

[ASDF1345]

@האדם-החושב
הקובץ 'עגונים' פגום והוא בכלל לא עולה

[דאנציג]

@ASDF1345
בקובץ ZIP שהוא העלה בהמשך השרשור זה עבד אצלי