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

[דאנציג]

@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

[חוות דעת]

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

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

אכן!! וזה שיבוש לי קובץ יקר ערך מאד!!! כי לא שמרתי את עצמי לשמור את זה ולגבות את זה מקודם. חבל מאד (ב"ה זה לא היה כ"כ הרבה עבודה. ובכל זאת).

בכל אופן ייש"כ על המאקרו הנפלא. (גם אני הסתדרתי בסוף ידנית.)

הצעה לשיפור המאקרו:

1. ראשית כל, שזה יעבוד רק על המסמך הפעיל ממש.
2. שדבר ראשון יצור עותק מהמסמך עליו הולכים לפרק הטקסט, ליתר בטחון.
3. שייצא גם הטקסט הראשי למסמך חדש, והמסמך המקורי יישאר כמו שהיה.
4. שלא יצטרכו למלא כל השדות, רק מה שרלוונטי. כי אני קבלתי שגיאה באמצע התהליך, כנראה מפני שלא מלאתי פרטים בהערות בלון, כי לא היה לי במסמך. זה השגיאה שקבלתי:
   
5. שהקוד בטקסט הראשי במיקום הקישור של ההערות, יהיה זהה לקוד שהכנסו להערות (באינדיזיין אני עובד עם תוסף, שעבוד ככה).

[menajemmendel]

@ASDF1345 שלום, אני שמח שנהנת
עכשיו לגופו של דבר, התיקונים שעשית,
טוב שאמרתי לי, לגבי ההערות שוליים בעז''ה אתקן את זה שיעשה את זה אוטומתי
ולגבי הסוגריים סגורות מיותרות, בכוונה לא עשיתי כיון דמנהג המחברים הוא להשתמש המון בכאלה לסמן סעיפים וכו' א) ב) וכ', ואז הוא יזהה אותם בבעיה,

[455]

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

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

בעז"ה בהמשך אסדר

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

בעצם לשני השורות הללו התיקון היא אחד, ליצור עותק.
בעז"ה בהמשך [אולי בביה"ז], לבינתיים אפשר ליצור עותק ידני ולעבוד רק עם העותק

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

בעז"ה בהמשך

שהקוד בטקסט הראשי במיקום הקישור של ההערות, יהיה זהה לקוד שהכנסו להערות (באינדיזיין אני עובד עם תוסף, שעבוד ככה).

אני הייתי צריך בכוונה שיהיה שונה, אפשר לשנות את הקוד, בחיפוש והחלפה פשוט [יתכן שיצטרכו תווים כללים]

[חוות דעת]

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

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

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

בעצם לכל השורות הללו התיקון היא אחד, ליצור עותק.

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

[455]

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

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

צודק. ערכתי למעלה

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

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

מה הכוונה? בסוף המסמך נשאר נקי מהערות. האם אתה רוצה שיהיה טקסט שאין בו כלל הפניות להערות?

[pcinfogmach]

קבלת הקוד של התיו המסומן לצורך שימוש בחיפוש והחלפה

עריכה:
תוקן באג עם מציאת קודים בעברית וכמו"כ נוסף שהקוד מציג את כל הטקסט שסומן ולא רק אות אחת כהצעת @האדם-החושב

תבנית-מציאת-הקוד-של-התו-המסומן-עבור-חיפוש-והחלפה.dotm

[mfmf]

@pcinfogmach
לא ברור כל כך מה הקוד הזה.. מופיע רק מספרים. למשל זה מה שמופיע במעבר טור:

אשמח להסבר.

[pcinfogmach]

@mfmf
קודם כל תודה שסגרת בתבנית (פשוט שכחתי באיזה שרשור אני נמצא)

את המספר שקיבלת (14) אפשר להכניס בתוך חיפוש והחלפה (עם שימוש בתווים כלליים) בתוספת התיו הזה ^ לדוגמא: ^14 ימצא את מעבר טור.
לא יודע אם זה יעבוד על מעבר טורים אבל ברוב התווים זה יעבוד לדוגמא ^2 ימצא את ההפניה הבאה להערת שוליים

[חוות דעת]

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

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

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

צודק. ערכתי למעלה

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

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

מה הכוונה? בסוף המסמך נשאר נקי מהערות. האם אתה רוצה שיהיה טקסט שאין בו כלל הפניות להערות?

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

[חוות דעת]

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

קבלת הקוד של התיו המסומן לצורך שימוש בחיפוש והחלפה

Sub GetAsciiCode()
    Dim selectedChar As String
    Dim asciiCode As Integer
    
    ' Get the selected character
    selectedChar = Selection.text
    
    ' Check if a character is selected
    If Len(selectedChar) = 1 Then
        ' Get the ASCII code of the selected character
        asciiCode = Asc(selectedChar)
        
        ' Display the ASCII code
        MsgBox "The ASCII code of the selected character (" & selectedChar & ") is " & asciiCode
    Else
        ' No character or more than one character selected
        MsgBox "Please select a single character."
    End If
End Sub

נראה שזה שגיאה בכתיב לכתוב 'תו' עם י (תיו). לקח לי כמה דקות לקלוט למה את מתכוון.

בכל אופן ייש"כ.

[האדם החושב]

@pcinfogmach נראה לי שיהיה שימושי מאוד אם תוסיף אופציה לחפש ישירות מהמאקרו בלי צורך להעתיק את התווים
תודה רבה על כל המאקרואים המושקעים!!!

[u88]

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

[pcinfogmach]

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

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

עודכן תודה על ההצעה הנפלאה!

https://mitmachim.top/post/642616

[455]

@u88 הוא פותח שלש מסמכים ריקים, ומעתיק לראשון את הערות הבלון, לשני את הערות הסיום ולשלישי את הערות השוליים.
אם אין לך הערות במסמך שלשת המסמכים ישארו ריקים.

[u88]

@455 יש לי הערות שוליים במסמך ובכו"ז המסמכים שנפתחים אין כלום (בדקתי שאין בעיית תאימות)

[455]

@u88 מעניין.
אצלי המסמכים מתמלאים עם ההערות לסוגיהם.
צריך לדעת מה ההבדל בין הקובץ שאצלי לקובץ שאצלך

[u88]

@455 הורדתי את התבנית שהעלו פה והעתקתי לתוכה את התוכן שהיה לי אם הערות שוליים
בכו"ז תודה על ההתיחסות