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

[hartkhartk]

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

לא מחפש אתרים [בתשלום?] מחפש בוורד.....

בחינם!

[אלף שין]

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

למה שלא תעשה מאקרו פשוט ותמיד בלחיצה עליו הכל יתחלף?

Spoiler

0

אדרבה!
מה המאקרו?

[דאנציג]

@אלף-שין

https://mitmachim.top/post/368473

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

[shishko]

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

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

[ע"ה דכו"ע]

@shishko יש בהמשך השרשור שציינו מאקרו שמיועד להטמעה של המילים להחלפה

[shishko]

@ע-ה-דכו-ע צודק, לא קלטתי שהכוונה להמשך הקישור
ברמת העיקרון בניתי פתרון טוב יותר (שצריך להתאים למקרה המדובר), שהמילים נשמרות בקובץ txt ואם capsloock דלוק בהפעלת המאקרו הוא שומר מילים חדשות לקובץ אבל כנראה באמת הוא לא צריך משהו כזה מורכב

[אלימיר]

פתרון אחר - תבקש מai שישתמש ברשימה שלך. אתה יכול גם לבקש ממנו לתקן קובץ קיים כמובן.

[אלף שין]

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

אני מקווה שיהיה לי זמן ליצור דבר כזה

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

ברמת העיקרון בניתי פתרון טוב יותר

אשמח.....

@אלימיר
הבעיה היא שאין לי גישה.... [התמלול דרך אלף בוט, ואני לא רוצה להכביד על הפרומפט שלו העמוס גם כך]

[shishko]

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

אשמח.....

מצורף!
תשנה את הנתיב למה שתבחר ותיצור שם קובץ עם סיומת TXT

Sub החלפות_מרובות_מקובץ_טקסט()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim fileContent As String
    Dim lines() As String
    Dim line As Variant
    Dim words As String
    Dim replac() As String
    Dim awords() As String
    'כתוב כאן את הנתיב ושם הקובץ שבחרת
    filePath = "Z:\נתוני תוכנות\Word\תבניות לתוספת\החלפות.txt"

    fileNumber = FreeFile
    Open filePath For Input As fileNumber
    fileContent = Input$(LOF(fileNumber), fileNumber)
    Close fileNumber

    lines = Split(fileContent, vbCrLf)
    
    
    If Application.CapsLock = True Then
    words = InputBox("כתוב את המילים להחלפה הפרד בין המקור למחליף באמצעות ""-"" ללא רווח אם ברצונך להוסיף כמה ערכים הפסק באמצעות ""."" ביניהם", "הוספת ערכים להחלפה")
        If words <> "" Then
        Dim wordExists As Boolean
        wordExists = False
        awords = Split(words, ".")
        For i = 0 To UBound(awords)
        For Each line In lines
            If InStr(1, line, awords(i), vbTextCompare) > 0 Then
                wordExists = True
                Exit For
            End If
        Next line
        ' בדוק אם המילים נמצאו
        If wordExists Then
            MsgBox "המילים '" & awords(i) & "' כבר קיימות בקובץ.", vbInformation
        Else
            ' אם המילים אינם קיימות, הוסף אותם לקובץ
           Open filePath For Append As fileNumber
           Print #fileNumber, awords(i)
           Close fileNumber
           MsgBox "המילים '" & awords(i) & "' נוספו לקובץ.", vbInformation
        End If
        End If
        Exit Sub
    Else
        Dim rng As Range
        For Each line In lines
        If Trim(line) <> "" Then
        replac = Split(line, "-")
            ' החלפת המילים שבקובץ
            Set rng = ActiveDocument.Content
            With rng.Find
            .Text = replac(0)
            .Replacement.Text = replac(1)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .Execute Replace:=wdReplaceAll
            .MatchWildcards = True
            End With
        End If
        Next line
    End If
End Sub

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

[יאיר י.]

@shishko @אלף-שין
יש אפשרות בלחיצה על חיפוש והחלפה להגדיר את כל המילים 'על ידי' שיוחלפו ב'ע"י' וכן הלאה, יש אפשרות לשנות עם נתוני גופן(גודל, מודגש, גופן וכו')

מצרף סרטון שערכתי בנושא:
מדריך יאיר - שינוי כותרת מרובה בפעם אחת.mp4

אם לא תסתדר אשמח לעזור

[יאיר דניאל]

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

מצרף סרטון שערכתי בנושא:
מדריך יאיר - שינוי כותרת מרובה בפעם אחת.mp4

אפשר בזיפ?

[shishko]

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

[יאיר י.]

@shishko
יש אפשרות להחליף את הכל ביחד, ואם תרצה אשלח לך למייל את הסרטון

Spoiler

המייל שלי הוא 4100934@gmail.com