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

[pcinfogmach]

המרה עריכה והוספה לשדה מספור אוטומטי.dotm

[ASDF1345]

@pcinfogmach
מצורף מספר רעיונות לשכלול המאקרו של 'מאקרו מספור'.
רעיון ראשון:
הוספת התחלה ממספר מסוים, מאקרו זה חשוב כאשר רוצים להתחיל את המספור שוב מ1 למשל במספור סעיפים כאשר רוצים בפרק השני להתחיל את המספור שוב מאחד.
בשביל להגדיר את השדה שיתחיל שוב ממספר 1 יש להוסיף את הכיתוב \r 1 בתוך השדה (גם כאשר המספור מיוצג במספור עברי מ"מ הפקודה להתחיל ממספר מסוים צריכה להיות במספרים)
דוגמא לכיתוב בתוך השדה
SEQ אותיות * hebrew1 * MERGEFORMAT \r 1 * MERGEFORMAT
וכן אפשר להוסיף שיהיה אפשרות בחירה מאיזה מספר להתחיל למשל כאשר רוצים שהמספור יתחיל כהמשך למספור של מסמך אחר וכד' (למשל התחלה ממספר 300 צריך להוסיף את הכיתוב \r 300 בתוך השדה)
רעיון שני: המאקרו מעדכן את כל השדות במסמך וכדאי לשנות זאת שהמאקרו יעדכן רק את השדות של המספור (במידה ויש שדות אחרים במסמך כגון הפניות שאותם לא רוצים לעדכן).
רעיון שלישי: הוספת מספור ברמה השניה הוא מוסיף גם את המספור של הרמה הראשונה.

1. כחכחכחכח
   '1. 1 כחכח
   '1. 2 כחכחכחכח
   '1. 3 חכחככח
2. כחכחכחכח
   '2. 1 כחכחכחכח
   '2. 2 כחכחכחכ
   '2. 3

[pcinfogmach]

@ASDF1345
תודה על המשוב הטוב

אם תוכל לכתוב לי בקצרה כיצד עושים פעולות אלו זה מאוד יקל עלי

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

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

[ASDF1345]

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

[pcinfogmach]

@ASDF1345
תודה

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

תודה מראש

ועוד שאלה מתי זה נצרך המיספור רמות הזו?

[pcinfogmach]

מספור עברי מעל שצב

https://mitmachim.top/post/648511

[ASDF1345]

@pcinfogmach
במחשבה שניה מספור של רמות הוא לא מצוי ולא שווה להשקיע בו.

[ZVULON]

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

[פייתוניסט]

@ZVULON תשובת GPT 4:
נראה שאתה מחפש קוד מאקרו עבור Microsoft Word שיחפש זוגות של גרשיים המכילים טקסט עם רווחים או בלי רווחים, ויכול לתקן אותם זוג זוג. אפשר לעשות זאת בעזרת השפה Visual Basic for Applications (VBA).

כאן קוד VBA שיעשה את העבודה:

Sub FindAndFixQuotationMarks()
    Dim oDoc As Document
    Dim oRange As Range
    Dim oFind As Find
    Dim strFindPattern As String

    Set oDoc = ActiveDocument
    strFindPattern = """[^""]*"""

    Set oRange = oDoc.Range
    Set oFind = oRange.Find

    With oFind
        .ClearFormatting
        .Text = strFindPattern
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    While oFind.Execute
        ' כאן אפשר להוסיף קוד לתיקון של הגרשיים עבור הטקסט הנמצא בין הגרשיים
        ' לדוגמה, ניתן להוסיף פה קוד שיסיר רווחים לפני ואחרי הטקסט בין הגרשיים
        ' או לשנות את הגרשיים לגרשונים
        Debug.Print oRange.Text ' הדפס לחלון המעקב כדי לראות את התוצאות
        oRange.Collapse wdCollapseEnd
    Wend
End Sub

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

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

אחרי שיצרת את המאקרו, אתה יכול להריץ אותו במסמך שלך כדי לבדוק את התוצאות.

[ZVULON]

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

[מאקרו]

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

" <*> "

אתה יכול לעשות ככה " <*[! ]> " כדי למצא את הצירוף הנ"ל ללא רווחים נוספים באמצע.

[ZVULON]

תודה רבה לך אני ינסה

[menajemmendel]

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

[יוסף123]

מצרף מאקרו לתיקון כתיב חסר,
הוא מחולק לשתי פקודות בגלל שהוא ארוך מידי
‏‏מאקרו לתיקון כתיב חסר סיוון תשפג.docm

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

[pcinfogmach]

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

המאקרו גם מחליף כל גרשיים כפולים לגרש

למה?

[pcinfogmach]

@menajemmendel
הוא לא אמור למחוק את שאר הטאבים כי הוא מוחק רק טאב שמגיע מיד אחרי מעבר שורה ידני.
בדקת את זה בגירסה האחרונה של התוסף?
אם אתה לא אוהב את הרעיון של מעבר שורה ידני אתה יכול להסויף לפניו רווח של אפס ChrW(8203) כסימן

[menajemmendel]

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

@menajemmendel
הוא לא אמור למחוק את שאר הטאבים כי הוא מוחק רק טאב שמגיע מיד אחרי מעבר שורה ידני.
בדקת את זה בגירסה האחרונה של התוסף?
אם אתה לא אוהב את הרעיון של מעבר שורה ידני אתה יכול להסויף לפניו רווח של אפס ChrW(8203) כסימן

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

  With para
        .ParagraphFormat.TabStops.ClearAll
            .ParagraphFormat.TabStops.Add Position:=middlePosition, Alignment:=wdAlignTabCenter
'                If .Previous.Text = vbVerticalTab & vbTab Then .Previous.Delete Count:=2
                     If .Previous.Text = vbVerticalTab Then .Previous.Delete
                .InsertBefore vbVerticalTab & vbTab
        End With

אתה רואה בשורה 2 CLEARALL

[pcinfogmach]

@menajemmendel
אה..
לא אין לי פתרון

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

[יוסף123]

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

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

המאקרו גם מחליף כל גרשיים כפולים לגרש

למה?

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

[menajemmendel]

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

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

מה זה, לא הבנתי איך זה עוזר, אפשר פירוט בבקשה?