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

[מניין]

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

קוד VBA להמיר בוורד ממספרים לאותיות, רגיל ובלשון נקייה.
ממיר מספרים לאותיות רגיל ובלשון נקיה.dotm
מקור:
@מגדלים
https://mitmachim.top/post/353249

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

[menajemmendel]

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

אז הנה הגירסה החדשה
וסליחה שלא עשיתי את זה כתבנית, מי שיוכל שיעשה, לבקשת חברינו @pcinfogmach

ואגב הנה מעביר תשומת לב הציבור להשלמה חשובה לאשכול זה: https://mitmachim.top/topic/55141/שיתוף-אוסף-תבניות-לעימוד?_=1683792648707

Sub sograim_with_troubles()
SELECTION.EndKey Unit:=wdStory
Dim fake_bracket As Range
SELECTION.TypeText Text:="("
SELECTION.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Set fake_bracket = SELECTION.Range

SELECTION.HomeKey Unit:=wdStory
'מחפש סוגריים בעיתיים וצובע אותם באדום
Do
    SELECTION.Find.ClearFormatting
    With SELECTION.Find
        .Text = "\([!\)]@\("
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
    End With
    SELECTION.Find.Execute
    SELECTION.Font.Color = wdColorRed
Loop Until SELECTION.Find.Found = False

fake_bracket.Delete
SELECTION.HomeKey Unit:=wdStory
'מכין חיפוש לאדומים
   SELECTION.Find.ClearFormatting
   SELECTION.Find.Font.Color = wdColorRed
    With SELECTION.Find
        .Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    SELECTION.Find.Execute


MsgBox ("זהו; הסוגריים הבעייתים סומנו, כדי למצוא אותם תלחץ על") & vbNewLine & ("CTRL PgDn")
End Sub

[דאנציג]

@menajemmendel
בבקשה
‏‏סוגריים לא סגורים.dotm

[mfmf]

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

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

קוד VBA להמיר בוורד ממספרים לאותיות, רגיל ובלשון נקייה.
ממיר מספרים לאותיות רגיל ובלשון נקיה.dotm
מקור:
@מגדלים
https://mitmachim.top/post/353249

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

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

[ישראליק]

מאקרו חשוב, כדאי להוסיף לתוסף.
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

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

[121244]

@ישראליק משהו יכול לתת לי קוד של חיפוש שחוץ משהשאלה איזה טקסט לחפש שואל גם כמה מילים יוכלו להיות בין כל מילה

[ישראליק]

@מעלה-ומוריד כתב בשיתוף | מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית:

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

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

[455]

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

[צדיק וטוב לו 0]

@ישראליק יש מצב לקבל את הקוד כתבנית מוכנה?

אגב, למה הקישור של הפוסט מביא לשרשור שלא קשור בכלל?

[ישראליק]

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

אגב, למה הקישור של הפוסט מביא לשרשור שלא קשור בכלל?

עכשיו מפנה למקור...
בקצרה - ציטוט מאתר תחומים. בציטוט המערכת מכניסה קישור פנימי, במקרה הזה היה זה, במילים: /post/153122. ערכתי ושמתי קישור רגיל.

[דאנציג]

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

ש מצב לקבל את הקוד כתבנית מוכנה?

בבקשה
‏‏מציג מקשי קיצור.dotm

[צדיק וטוב לו 0]

@דאנציג

[ישראליק]

@צדיק-וטוב-לו-0 אצלי הקוד עובד. יש לך מקשי קיצור שהגדרת למאקרואים וכו'?

[צדיק וטוב לו 0]

@ישראליק כן.

[דאנציג]

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

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