@תלת-פאזי
אין לי אפשרות לתת לייקים מתנצל

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

אשמח.....

מצורף!
תשנה את הנתיב למה שתבחר ותיצור שם קובץ עם סיומת 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 כתב בעזרה | העכבר לא גולל:

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

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

@יאנג-בוי כתב בשיתוף | להכשיר (כמעט) כל אנדרואיד לוויז ומייל בלבד – קיידרואיד 0.7.4 גרסת בטא ציבורית!:

WPS

WPS Office (BETA) .apk
WPS Office עם וידאו.apk

@ברווז-הסגול תוריד את הקובץ ושם ההדרכה מאד ברורה
אגב אתה יכול לקרוא רק את הפוסט הראשון בנושא

@מגנוס-קרלסן כתב בשיתוף | נגן חדש באליקספרס M500:

וברוט אפשר לעשות רקוברי

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

@230903
https://drive.google.com****/file/d/10jiD6HzMMfaLAr6ves9bJmGsF-ezPkBW****/view?usp=sharing
תעתיק את כל השורה לחיפוש ותמחוק את הכוכביות

@אלף-שין קרה גם לי בגולן ובחברה סידרו לי
כך שכל מי שנתקל בבעיה שיתקשר לחברה שלו

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

@אליהו-הלל כתב בבקשת מידע | למומחים האלופים - האם הבנתי נכון את התהליך להכנת מכשיר וויז לבד.:

לא חייבים נטפרי

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

@yos כתב בהמלצה | סקירה I אוזניות בלוטוס דגם ליברטי NC4 של חברת soundcore ANKER סאונדקור – אנקר:

זה יוצא 169 שקל אחרי שאתה מוסיף את הקופונים שהביאו שם, נראה לי קצת יותר זול מהקישור המקורי...

מטורף!!!!!!!!!!!!!!!
זה כמובן באותו קישור רק עם קופונים מתאימים ספציפית לחנות הזו

@MAKRO כתב במדריך | מדריך להוזלת מחירים באלי אקספרס:

תקשרתי איתם כמה פעמים בעברית, עבד מצוין. תן להם להעתיק ולהדביק לתרגום גוגל....

גם אני

@תלת-פאזי התכווני כמובן להסכמה ביניכם שהיתה בהעדרי ע"כ שישנם גנרטורים קטנים

@לאצי בשמחה כמובן!!!
פשוט הנגן לא אצלי ואני לא בדיוק זוכר
הרעיון הוא להכנס לתיקיה VENDR (משהו דומה) למצוא בפנים קובץ XML שחלק מהשם שלו זה google_video ושם להוסיף משני צידי השורה שכתוב בה google.H264 כך שבמקום שתתחיל < תתחיל <-- < ובסף במקום > תגמר > -!>

@ישיבישער
תחזור לקובץ ותפעיל את מאקרו 1

@Sitbon אין עניין תמחוק את המג'יסק ותתקין חדש ואז יחזור לך הרוט (החסרון היחיד שזה יהפוך להיות אפלקצייה מותקנת שניתן להסיר ובמקרה של הסרה עד שתתקין שוב לא יהיה רוט מה שאומר שאתה צריך לשמור את הקובץ APK שמתקין את האפלקציה)

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

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