שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.
-
מאקרו חשוב, כדאי להוסיף לתוסף.
https://tchumim.com/topic/15060/שיתוף-מאקרו-לגיבוי-תבנית-normal@מעלה-ומוריד כתב בשיתוף | מאקרו לגיבוי תבנית Normal:
אצלי לפחות, ונראה לי שאצל כל המשתמשים הכבדים בוורד, קורה לעיתים שתבנית הNormal נפגמת פתאום, והוורד מייצר אחת חדשה כזו.
ואז מאבדים דברים חשובים מאד וצריך להתחיל מאפס.- מאקרואים מותאמים אישית, עמל של שעות לאורך שנים.
- מקשי קיצור להפעלת פקודות ופקודות מאקרו, מעייף לשחזר הכל.
הנה דוגמה: https://tchumim.com/post/147744
בחסות GPT מצ"ב מאקרו לגיבוי של תבנית הנורמל, אצלי הכנסתי אותו בסרגל גישה מהירה ובכל פעם שאכניס מאקרו חדש לא נותר לי אלא ללחוץ על גיבוי...
Sub BackupNormalDotm() Dim fso As Object Dim sourcePath As String Dim destPath As String Dim fileName As String Dim dateTimeStamp As String Set fso = CreateObject("Scripting.FileSystemObject") sourcePath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\" destPath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\NormalBackup\" dateTimeStamp = Format(Now, "dd_mm_yy_hh_mm_ss") fileName = "Normal.dotm" If Not fso.FolderExists(destPath) Then fso.CreateFolder destPath End If If fso.FileExists(sourcePath & fileName) Then fso.CopyFile sourcePath & fileName, destPath & Left(fileName, Len(fileName) - 5) & "_" & dateTimeStamp & ".dotm" MsgBox "הקובץ הועתק בהצלחה ונוסף לתיקיית הגיבוי." Else MsgBox "הקובץ המקורי אינו קיים." End If Set fso = Nothing End Subכל מי שמתעסק עם מאקרואים חייב להיתקל בתקלה הזו...
-
@מעלה-ומוריד כתב בשיתוף | מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית:
למקרה ששכחת מה הגדרת, או אולי כבר הגדרת את קיצור המקשים הספציפי ואתה עכשיו עלול לדרוס אותו
מצ"ב קוד פשוט להצגת חלונית דו שיח עם רשימת הקיצורים שאתה הגדרת.Sub PrintCustomKeyBindingsShort() Dim kb As KeyBinding Dim msg As String For Each kb In Application.KeyBindings If kb.KeyCategory = wdKeyCategoryMacro Then Dim keyDetails As String keyDetails = kb.KeyString & " — " & Replace(kb.Command, "Normal.NewMacros.", "") msg = msg & keyDetails & vbCrLf End If Next kb MsgBox msg, vbInformation + vbRightToLeft, "מקשי קיצור מותאמים אישית" End Sub
-
חילוץ טקסט
חילוץ טקסט סרטון.rar
סיסמה 1234
תיאור: מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, סוג סוגריים לבחירת המשתמש.
נבנה בעזרת chetGPT, יתכן שיש מלא טעויות. אצלי עובד חלק.
אם יש יותר ממסמך אחד פעיל, המאקרו עושה חצי מהפעולות במסמך זה, וחצי במסמך השני. כך שיש להשאיר רק את המסמך שרוצים לבצע בו פועל.
מבחינת שיפורים - יש הרבה מה לשפר ואין לי כרגע זמן לזה -
@מעלה-ומוריד כתב בשיתוף | מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית:
למקרה ששכחת מה הגדרת, או אולי כבר הגדרת את קיצור המקשים הספציפי ואתה עכשיו עלול לדרוס אותו
מצ"ב קוד פשוט להצגת חלונית דו שיח עם רשימת הקיצורים שאתה הגדרת.Sub PrintCustomKeyBindingsShort() Dim kb As KeyBinding Dim msg As String For Each kb In Application.KeyBindings If kb.KeyCategory = wdKeyCategoryMacro Then Dim keyDetails As String keyDetails = kb.KeyString & " — " & Replace(kb.Command, "Normal.NewMacros.", "") msg = msg & keyDetails & vbCrLf End If Next kb MsgBox msg, vbInformation + vbRightToLeft, "מקשי קיצור מותאמים אישית" End Sub@ישראליק יש מצב לקבל את הקוד כתבנית מוכנה?
אגב, למה הקישור של הפוסט מביא לשרשור שלא קשור בכלל?
-
@ישראליק יש מצב לקבל את הקוד כתבנית מוכנה?
אגב, למה הקישור של הפוסט מביא לשרשור שלא קשור בכלל?
@צדיק-וטוב-לו-0 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
אגב, למה הקישור של הפוסט מביא לשרשור שלא קשור בכלל?
עכשיו מפנה למקור...
בקצרה - ציטוט מאתר תחומים. בציטוט המערכת מכניסה קישור פנימי, במקרה הזה היה זה, במילים: /post/153122. ערכתי ושמתי קישור רגיל. -
@ישראליק יש מצב לקבל את הקוד כתבנית מוכנה?
אגב, למה הקישור של הפוסט מביא לשרשור שלא קשור בכלל?
@צדיק-וטוב-לו-0 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
ש מצב לקבל את הקוד כתבנית מוכנה?
בבקשה
מציג מקשי קיצור.dotm -
@צדיק-וטוב-לו-0 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
ש מצב לקבל את הקוד כתבנית מוכנה?
בבקשה
מציג מקשי קיצור.dotm -
@צדיק-וטוב-לו-0 אצלי הקוד עובד. יש לך מקשי קיצור שהגדרת למאקרואים וכו'?
@ישראליק כן.
-
@ישראליק כן.
@צדיק-וטוב-לו-0
הוא עובד רק על קיצורי מקשים שהגדרת בNormal.NewMacros. אם יש לך Modulel 1 וכדומה, תצטרך לשנות את הקוד שלו, ואם קיצורי המקשים לא על התבנית NORMAL, זה לא יתן לך.
אולי אחד המבינים בVBA יביא לנו מאקרו שיתן את כל קיצורי המקשים שהגדרת.
אגב, בכל מקרה כאשר אתה בוחר קיצור מקשים חדש בהקלטת מאקרו, נכתב לך האם זה משמש למשהו או לא.
כמו כן, יש פקודה בוורד להציג את כל קיצורי המקשים של וורד, אך לא זוכר כעת את שמה. -
@צדיק-וטוב-לו-0
הוא עובד רק על קיצורי מקשים שהגדרת בNormal.NewMacros. אם יש לך Modulel 1 וכדומה, תצטרך לשנות את הקוד שלו, ואם קיצורי המקשים לא על התבנית NORMAL, זה לא יתן לך.
אולי אחד המבינים בVBA יביא לנו מאקרו שיתן את כל קיצורי המקשים שהגדרת.
אגב, בכל מקרה כאשר אתה בוחר קיצור מקשים חדש בהקלטת מאקרו, נכתב לך האם זה משמש למשהו או לא.
כמו כן, יש פקודה בוורד להציג את כל קיצורי המקשים של וורד, אך לא זוכר כעת את שמה.@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
הוא עובד רק על קיצורי מקשים שהגדרת בNormal.NewMacros. אם יש לך Modulel 1 וכדומה, תצטרך לשנות את הקוד שלו,
בתמונה ניתן לראות מאקרואים גם ממודול3 https://tchumim.com/assets/uploads/files/1684238986761-b9321777-634e-4ec1-a517-361271865414-image.png
-
@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
הוא עובד רק על קיצורי מקשים שהגדרת בNormal.NewMacros. אם יש לך Modulel 1 וכדומה, תצטרך לשנות את הקוד שלו,
בתמונה ניתן לראות מאקרואים גם ממודול3 https://tchumim.com/assets/uploads/files/1684238986761-b9321777-634e-4ec1-a517-361271865414-image.png
-
@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
מענין, כי אצלי הוא גם כן לא מראה את קיצורי המקשים, ולכן חשבתי שזה קשור לכך.
הקוד בטהרתו לא עובד אצלך?
-
חילוץ טקסט
חילוץ טקסט סרטון.rar
סיסמה 1234
תיאור: מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, סוג סוגריים לבחירת המשתמש.
נבנה בעזרת chetGPT, יתכן שיש מלא טעויות. אצלי עובד חלק.
אם יש יותר ממסמך אחד פעיל, המאקרו עושה חצי מהפעולות במסמך זה, וחצי במסמך השני. כך שיש להשאיר רק את המסמך שרוצים לבצע בו פועל.
מבחינת שיפורים - יש הרבה מה לשפר ואין לי כרגע זמן לזה@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
חילוץ טקסט.exe
סיסמה 1234
תיאור: מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, עיצוב לבחירת המשתמש.
נבנה בעזרת chetGPT, יתכן שיש מלא טעויות. אצלי עובד חלק.
מבחינת שיפורים - יש הרבה מה לשפר ואין לי כרגע זמן לזהזה מחלץ שתי קבצים עם סיומת לא מוכר כ"כ. לא כתבתי איך להתקין את זה. זה לא קובץ תבנית רגיל.
-
חילוץ טקסט
חילוץ טקסט סרטון.rar
סיסמה 1234
תיאור: מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, סוג סוגריים לבחירת המשתמש.
נבנה בעזרת chetGPT, יתכן שיש מלא טעויות. אצלי עובד חלק.
אם יש יותר ממסמך אחד פעיל, המאקרו עושה חצי מהפעולות במסמך זה, וחצי במסמך השני. כך שיש להשאיר רק את המסמך שרוצים לבצע בו פועל.
מבחינת שיפורים - יש הרבה מה לשפר ואין לי כרגע זמן לזה -
@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
חילוץ טקסט.exe
סיסמה 1234
תיאור: מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, עיצוב לבחירת המשתמש.
נבנה בעזרת chetGPT, יתכן שיש מלא טעויות. אצלי עובד חלק.
מבחינת שיפורים - יש הרבה מה לשפר ואין לי כרגע זמן לזהזה מחלץ שתי קבצים עם סיומת לא מוכר כ"כ. לא כתבתי איך להתקין את זה. זה לא קובץ תבנית רגיל.
-
חילוץ טקסט סרטון.rar סיסמת חילוץ 1234
-
חילוץ טקסט סרטון.rar סיסמת חילוץ 1234
@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
מצורף סרטוןחילוץ טקסט סרטון.mp4
תעלה לדרייב אחרת כל מי שיש לו נטפרי לא יוכל לצפות בזה
-
@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
מצורף סרטוןחילוץ טקסט סרטון.mp4
תעלה לדרייב אחרת כל מי שיש לו נטפרי לא יוכל לצפות בזה
@pcinfogmach בשביל זה ערכתי, והנחתי את זה בארכיון
![חיפוש גוגל בפורום](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}