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

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

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

מאקרו

@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 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

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

דאנציג

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

אפשר פירוט בבקשה

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