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

[יוסף123]

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

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

[דאנציג]

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

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

צריך לעשות סגנון תו, ולא סגנון פסקה.

[u88]

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

[pcinfogmach]

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

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

[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]

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