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

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

דאנציג

@יוסף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 אפשר את זה בתור מאקרו?

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