שיתוף | שרשור חיפוש והחלפה בוורד - אילתורים מקצועיים בוורד

[u88]

פוסט זה נמחק!

[דאנציג]

@u88
תוסיף לפני ואחרי ה^& את הקוד שאתה רוצה.

[yaniv134]

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

קודSub highlightdup()
    Dim I, J As Long
    Dim xRngFind, xRng As Range
    Dim xStrFind, xStr As String
    Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = 1 To .Paragraphs.Count - 1
            Set xRngFind = .Paragraphs(I).Range
            If xRngFind.HighlightColorIndex <> wdYellow Then
                For J = I + 1 To .Paragraphs.Count
                    Set xRng = .Paragraphs(J).Range
                    If xRngFind.Text = xRng.Text Then
                        xRngFind.HighlightColorIndex = wdBrightGreen
                        xRng.HighlightColorIndex = wdYellow
                    End If
                Next
            End If
        Next
    End With
End Sub

תודה לעוזרים

[מאקרו]

@yaniv134
תנסה את זה, לא בדקתי.

Sub highlightdup()
    Dim I, J As Long
    Dim xRngFind, xRng As Range
    Dim xStrFind, xStr As String
    Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = 1 To .Words.Count - 1
            Set xRngFind = .Words(I).Range
            If xRngFind.HighlightColorIndex <> wdYellow Then
                For J = I + 1 To .Words.Count
                    Set xRng = .Words(J).Range
                    If xRngFind.Text = xRng.Text Then
                        xRngFind.HighlightColorIndex = wdBrightGreen
                        xRng.HighlightColorIndex = wdYellow
                    End If
                Next
            End If
        Next
    End With
End Sub

[ישראל כהן]

יש לי קובץ שיש בו הרבה הערות שוליים, אבל הן מפיעות אחרי הפסיק או הנקודה.
יש איזה קוד שאוכל להחליף אותם, בכדי שהפסיק או הנקודה יהיו אחרי הסימון של ההערת שוליים, ולא לפניו?

[pcinfogmach]

@ישראל-כהן

כך תוכל למצוא את כל ההערות שוליים.

הוסף איזשהו סימן על ידי חיפוש והחלפה אחרי כל סימון הערה ולפניה

ואז תוכל לעשות חיפוש והחלפה על ידי תווים כלליים

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

[u88]

@pcinfogmach אפשר את זה בתור מאקרו?

[ישראל כהן]

@pcinfogmach
יישר כח גדול!
בקצרה, אתה גאון! (וגם בעל לב טוב...)

[pcinfogmach]

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

@pcinfogmach אפשר את זה בתור מאקרו?

תקליט את השלבים הנ"ל ויהיה לך מאקרו.

[u88]

@pcinfogmach זה קצת מסובך אשמח למשהוא מובנה

[דאנציג]

@u88

מחליף פסיק או נקודה שלפני סימון הערה, לאחרי.
קרדיט ל @pcinfogmach

Sub Macro2()
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^f"
        .Replacement.Text = "%^&%"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(?)([,.])%(*)%"
        .Replacement.Text = "\1\3\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[pcinfogmach]

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

איך עושים לפסיק או לנקודה?

בחיפוש והחלפה כשרוצים למצוא אחד מתוך כמה תוים מכניסים את כל התוים אל תוך סוגריים מרובעות ככה [,.]
ובמקרה שלנו הקוד יהיה [,.]%(*)%(?)
שים לב! איפה שמתי את הסימן שאלה שים אותו היכן שהפסיק או הנקודה יהיו בסוף ההחלפה כדי למנוע בעיות בעיצוב כנ"ל

[דאנציג]

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

שים לב! איפה שמתי את הסימן שאלה שים אותו היכן שהפסיק או הנקודה יהיו בסוף ההחלפה

אבל כך הוא מעביר את הרווח במקום שיהיה לאחר ה,/. לפני וה,/. צמוד למילה הבאה.
לעומת זאת כאשר אני עושה כך (?)[,.]%(*)%:

הרווח ממוקם במקום הנכון.

[pcinfogmach]

@דאנציג

%([,.])(*)%(?)

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

[דאנציג]

@pcinfogmach
משום מה כאשר ה(?) בסוף מילה, הוא לא מחליף כלל.

וכאשר אני מחליף כך (?)([,.])%(*)% זה כן מחליף.

[pcinfogmach]

@דאנציג
אצלי עבד מצויין תשלח לי קובץ דוגמא איפה שלא עבד

[דאנציג]

@pcinfogmach
אין קובץ, כתבתי בקובץ חדש:
123, 456
123, 456
123, 456
123. 456
עם הערה אחרי הפסיק / נקודה.
תראה כעת את המאקרו שעדכנתי למעלה.

[pcinfogmach]

@דאנציג
זה שאלה של יישור בגלל שמדובר במספרים

[דאנציג]

@pcinfogmach
עכשיו ראיתי מה הבעיה, אני עשיתי את ה% צמוד לסימון הערה, ואתה בהחלפה כתבת %([,.])()%(?)
שהפסיק/נקודה בין ה%, ולכן זה לא עבד לי.
כעת החלפתי כך ([,.])%()%(?) וזה עובד מצויין, רק לא הבנתי כל כך את הענין של העיצוב, האם להחליף במאקרו את המיקום של ה(?), הרי אם זה בסוף, זה תופס את הרווח שאחרי, ואם זה לפני זה תופס את האות האחרונה שלפני הפסיק / נקודה.

[pcinfogmach]

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

אגב עדיף לא להתשמש עם * זה מסוכן. אלא עדיף להשתמש בהגדרה בשלילה כמו [! ^13]@ דהיינו כל תו שאינו רווח או סוף שורה