בעיה | עזרה בכתיבת מאקרו
-
הכנתי מאקרו של סימניות
מטרת המאקרו הוא לשמור מיקום של הסמן כעת ולאחר מכן יהיה אפשר לחזור למיקום זה
לצורך כך הכנתי שני מאקרו האחד יוצר סימניה במיקום של הסמן והשני מעביר את הסמן למיקום של הסימניה
אמנם יש בעיה במאקרו השני שבמידה והפעילו אותו במסמך שאין בו את הסימניה הוא מחזיר הודעת שגיאה 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 מוזר, אצלי זה עבד מצויין [זה על אותו בסיס של התוספים לוורד "וורד תורני" ו"עיצוב תורני"]
אולי @pcinfogmach ידע מה הבעיה אצלך
בכל מקרה פשוט תיכנס לתוך העורך vba ותיקח את המאקרו משם -
@ASDF1345 מוזר, אצלי זה עבד מצויין [זה על אותו בסיס של התוספים לוורד "וורד תורני" ו"עיצוב תורני"]
אולי @pcinfogmach ידע מה הבעיה אצלך
בכל מקרה פשוט תיכנס לתוך העורך vba ותיקח את המאקרו משם -
הכנתי מאקרו של סימניות
מטרת המאקרו הוא לשמור מיקום של הסמן כעת ולאחר מכן יהיה אפשר לחזור למיקום זה
לצורך כך הכנתי שני מאקרו האחד יוצר סימניה במיקום של הסמן והשני מעביר את הסמן למיקום של הסימניה
אמנם יש בעיה במאקרו השני שבמידה והפעילו אותו במסמך שאין בו את הסימניה הוא מחזיר הודעת שגיאה 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 , וכך זה נראה:
@דאנציג
אולי תנסה את הקובץ הזה:
עוגנים.zip -
@דאנציג
אולי תנסה את הקובץ הזה:
עוגנים.zip -
@האדם-החושב
מופיע!
אבל לא כל כך הבנתי מה בדיוק הוא עושה (אולי לא כל המאקרו מקושרים / פועלים כראוי). -
@דאנציג
אולי תנסה את הקובץ הזה:
עוגנים.zip@האדם-החושב
הקובץ 'עגונים' פגום והוא בכלל לא עולה -
@האדם-החושב
הקובץ 'עגונים' פגום והוא בכלל לא עולה
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}