שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

[דאנציג]

@צדיק-וטוב-לו-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

[דאנציג]

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

[ישראליק]

@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

הקוד בטהרתו לא עובד אצלך?

[דאנציג]

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

[חוות דעת]

@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

חילוץ טקסט.exe
סיסמה 1234
תיאור: מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, עיצוב לבחירת המשתמש.
נבנה בעזרת chetGPT, יתכן שיש מלא טעויות. אצלי עובד חלק.
מבחינת שיפורים - יש הרבה מה לשפר ואין לי כרגע זמן לזה

זה מחלץ שתי קבצים עם סיומת לא מוכר כ"כ. לא כתבתי איך להתקין את זה. זה לא קובץ תבנית רגיל.

[דאנציג]

@455 וכיצד משתמשים בזה?

[455]

@חוות-דעת הקובץ לא קודד נכון.
כעת תוכל לחלץ את זה והוא לבד יעתיק לך את זה למקום הנכון.

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

[455]

חילוץ טקסט סרטון.rar סיסמת חילוץ 1234

[pcinfogmach]

@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

מצורף סרטוןחילוץ טקסט סרטון.mp4

תעלה לדרייב אחרת כל מי שיש לו נטפרי לא יוכל לצפות בזה

[455]

@pcinfogmach בשביל זה ערכתי, והנחתי את זה בארכיון

[דאנציג]

@455
מביא לי את השגיאה הנ"ל:

[דאנציג]

@ישראליק כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

כתב בשיתוף | מאקרו לגיבוי תבנית Normal:

נותן לי שגיאה:

[חוות דעת]

@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

@חוות-דעת הקובץ לא קודד נכון.
כעת תוכל לחלץ את זה והוא לבד יעתיק לך את זה למקום הנכון.

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

אבל אתה לא כותב מה אני עושה עם כל הקבצים האלו, הם לא קבצי תבנית, אז איך אני משתמש עם המאקרו הנפלא הזה?
מה אני עושה אחרי שזה מחולץ לתיקיית ה-startup???

[ישראליק]

@דאנציג
הגדרת את המשתמש שלך בנתיב הגיבוי?

[455]

@דאנציג
בויזואל בצד שמאל יש לך חלונית עם רשימה של כל המודולים והטפסים וכו'.
לפי התמונה שהבאת זה נראה שאין לך טופס בשם hearot.
ככל הנראה, הטפסים מחולצים לתיקייה אחרת ואינני יודע להיכן.
צירפתי כאן רק את הקבצים של הטופס, ותעתיק אותם ידנית בצורה הזו.
פתח את ויזואל
בצד שמאל יש רשימה של כל הטפסים
בתקייה forms הקש על המקש הימני בעכבר, ובחר באפשרות impotr file...

תוסיף את הקבצים שמובאים בארכיון חילוץ טקסט - טופס.rar.
זה אמור לסדר את זה לענ"ד.

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

[455]

@חוות-דעת אחרי שהתקנת את זה אפשר ללחוץ על אלט+F8, ולבחור את המאקרו 'פירוק_הערות_טקסט', וזה צריך לעשות את העבודה כמו שמתואר בסרטון.
אבל תצטרך כנראה להעתיק גם את הטפסים ידנית כמו שמוסבר כאן או לחילופין להשתמש בתבנית שמובאת שם, בגלל מה ש @דאנציג טוען כאן

[דאנציג]

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

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

[ASDF1345]

@menajemmendel
נהנתי מהתבנית, והחלטתי לשדרג אותה, ולכן הכנתי תבנית חדשה תיקון שגיאות - סוגריים 2.dotm
התבנית החדשה מגלה סוגריים פתוחים כפולים, וכן סוגריים סגורים כפולים, בין בסוגריים עגולים ובין בסוגרים מרובעים ובין בסוגריים מסולסלים.
התבנית מדגישה רק את הסוגריים עצמם ולא את הטקסט שבתוך הסוגריים (כמובן שהתבנית לא יודעת לבחור איזה מהסוגריים הכפולים הוא שגוי ואיזה נכון, ולכן היא מדגישה את שניהם).
נוסף מאקרו להחזרת הסוגריים לצבע המקורי.
לשימוש בתבנית בהערות שולים, יש לעבור למצב טויטה, לפתוח את הערות השולים, ולהעמיד שם את הסמן, ואח"כ להפעיל את המאקרו.

[מניין]

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

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

Sub החלפת_מילה()
    Dim rng As Range
    Set rng = Selection.Range
      Application.UndoRecord.StartCustomRecord ("החלפת מילה")   
    Do While rng.Start > 0 And IsPartOfWord(Left(ActiveDocument.Range(rng.Start - 1, rng.Start).Text, 1))
        rng.Start = rng.Start - 1
    Loop
         Do While rng.End < ActiveDocument.Content.End And IsPartOfWord(Right(ActiveDocument.Range(rng.End, rng.End + 1).Text, 1))
        rng.End = rng.End + 1
    Loop
    rng.Select
    Selection.Cut
    Do
        Selection.MoveRight Unit:=wdCharacter, count:=1
    Loop While Not IsPartOfWord(Selection.Text) And Selection.Start < ActiveDocument.Content.End
       Do
        Selection.MoveRight Unit:=wdCharacter, count:=1
    Loop While IsPartOfWord(Selection.Text) And Selection.Start < ActiveDocument.Content.End
     Selection.PasteAndFormat (wdFormatOriginalFormatting)
      Application.UndoRecord.EndCustomRecord
End Sub
Function IsPartOfWord(ch As String) As Boolean
     IsPartOfWord = (ch Like "[א-ת0-9""'-]")
End Function