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

[יוסף123]

שלום רב לכל החברים כאן, אני זקוק לעזרתכם בבקשה,
יש לי קובץ טקסט עם גושי טקסט מחולקים לקטעים. ואני רוצה להכניס אותו לתורת אמת, ולכן אני מוכרח ליצור כותרות עם סימנים כמו # @ ~.
מצאתי כאן באשכולות קוד להכניס בתחילת כל פיסקה סימן @ (חפש: ^13 החלף ב: ^11^11^11@).
הבעיה היא שאני צריך לעשות אנטר בסוף הכותרת (אחרת תורת אמת מזהה את כל הקטע ככותרת), הבעיה היא שהכותרת היא באורך משתנה (בין שלוש לשמינה מילים בערך). הצד השווה לכל הכותרות הוא שהם נגמרות בנקודה.
עשיתי פקודה כזאת: חפש: @ * * * * * החלף ב: ^&^p וזה עשה אנטר שרירותי לכל כותרת אחרי ארבע מילים.
האם יש קוד שיעשה לי אנטר אחרי מספר כלשהו של תוים שאחריהם יש נקודה? או אולי, אחרי כל נקודה ראשונה בפסקה?

תודה מראש!

[pcinfogmach]

@יוסף123
חפש: ^13*.

[יוסף123]

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

@יוסף123
חפש: ^13*.

משום מה זה לא עבד אבל במקומו עשיתי @*.
וזה נתן את התוצאה,
תודה רבה!!

[יוסף123]

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

[יוסף123]

@יוסף123
מצאתי (<[א-ת]@[ְ-ׂ]*>)
תודה רבה

[צדיק וטוב לו 0]

@יוסף123 קח בחשבון שיש מילים שאות אחת מתוך המילה בלי ניקוד.

[יוסף123]

@צדיק-וטוב-לו-0 ואז מה יקרה?

[צדיק וטוב לו 0]

@יוסף123 לא בטוח, אבל יש מצב שכל המילה תשתנה לסגנון החדש מלבד האות בלי הניקוד.

[pcinfogmach]

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

@יוסף123 לא בטוח, אבל יש מצב שכל המילה תשתנה לסגנון החדש מלבד האות בלי הניקוד.

תלוי אם אתה משתמש בסגנון תו או סגנון פיסקה.

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