@שלמה11 כתב בעזרה בחיפוש ובחירה בוורד:

רק הערה קטנה:
הקובץ הזה לא מסודר בעליל הוא מלא במעברי שורה ומקטע שלא במקומם

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

@שלמה11 כתב בעזרה בחיפוש ובחירה בוורד:

השקעתי בך...

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

מייצר לי בלחיצת כפתור קובץ לכל אחד עם כל מה שכתב:

Sub ExportSectionsByAuthor()
    Dim para As Paragraph
    Dim paraText As String
    Dim currentAuthor As Variant
    Dim authors As Variant
    Dim docDict As Object
    Dim newDoc As Document
    Dim pendingText As String
    Dim i As Long

    ' רשימת כל שמות הכותבים במסמך
    authors = Array( _
        "הרב משה כהן", _
        "הרב ישראל הירשמן", _
        "הרב ברוך גודלבסקי", _
        "הרב שלום מרדכי ובר", _
        "הרב אהרן יעקובוביץ", _
        "הרב דוד ישראלי", _
        "הרב שמעון לוי", _
        "הרב צבי וינגורט", _
        "הרב אברהם ישעיהו לוין", _
        "הרב נחמן פישר", _
        "מורנו ראש הכולל שליט""א" _
    )

    ' יצירת מילון לאגירת טקסטים לכל כותב
    Set docDict = CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(authors)
        docDict.Add authors(i), ""
    Next i

    pendingText = ""

    ' מעבר על כל פסקה במסמך
    For Each para In ActiveDocument.Paragraphs
        paraText = para.Range.Text
        Dim foundAuthor As String
        foundAuthor = ""

        ' בדיקה האם הפסקה מכילה את שם אחד הכותבים
        For i = 0 To UBound(authors)
            If InStr(paraText, authors(i)) > 0 Then
                foundAuthor = authors(i)
                Exit For
            End If
        Next i

        If foundAuthor <> "" Then
            ' הפסקה היא של חתימה – יש לשייך את הטקסט שנצבר למי שהופיע בה
            docDict(foundAuthor) = docDict(foundAuthor) & pendingText & paraText
            pendingText = "" ' אפס את הצבירה
        Else
            pendingText = pendingText & paraText
        End If
    Next para

    ' שמירה של כל המסמכים
    For Each currentAuthor In docDict.Keys
        If Trim(docDict(currentAuthor)) <> "" Then
            Set newDoc = Documents.Add
            newDoc.Range.Text = docDict(currentAuthor)

            ' ניקוי שם קובץ
            Dim safeName As String
            safeName = currentAuthor
            safeName = Replace(safeName, ":", "-")
            safeName = Replace(safeName, "\", "-")
            safeName = Replace(safeName, "/", "-")
            safeName = Replace(safeName, "*", "-")
            safeName = Replace(safeName, "?", "")
            safeName = Replace(safeName, Chr(34), "")
            safeName = Replace(safeName, "<", "")
            safeName = Replace(safeName, ">", "")
            safeName = Replace(safeName, "|", "")

            newDoc.SaveAs2 FileName:=safeName & ".docx"
            newDoc.Close
        End If
    Next

    MsgBox "המסמכים נוצרו בהצלחה!"
End Sub

@מניין אבל השם וההערה של אחרי זה הם שתי מקטעים לא קשורים.
הכותרת מחברת את המקטע שאחריה?

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

מצורף קובץ לדוג' מתוך הקונטרס.
______פרק ראשון ערוך.docx

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

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

תודה ענקית

@שאול-208 כתב בעזרה | sms לפתיחת גימייל:

פשוט להאציל גישה לחשבון אחר,

ניסיתי גם בזה גוגל דרש ממני sms

@שאול-208 כתב בעזרה | sms לפתיחת גימייל:

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

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

@פלמנמוני כתב בעזרה | sms לפתיחת גימייל:

דרך הקישור הזה,

מה יש בקישור הזה???

@פלמנמוני כתב בעזרה | sms לפתיחת גימייל:

אני ממליץ לחכות ולנסות שוב מחר,

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

@פלמנמוני כתב בעזרה | sms לפתיחת גימייל:

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

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

@פלמנמוני
נשאר אותו בעיה.

יש אולי למישהו מספר טלפון לתת לי לנסות לשלוח אליו sms

@צדיק-תמים כתב בבעיה | לא נותן לי להיכנס למייל...:

אפשר להגיע לנציג אנושי מחשבון שמשלם על הרחבת אחסון (Google One)

לא עוזר!

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

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

אני מנסה כבר כמה ימים לפתוח גימייל ולא מצליח כי דורשים ממני sms לאימות.
ניסתי כבר עם מספר מספרי טלפון.
באחד הופיע לי שניסו מידי הרבה פעמים, ובאחד הופיע לי שלא ניתן להשתמש עם מספר הטלפון לאימות וכו'
יש למישהו אולי פתרון?
אציין שניסיתי גם מספרים אמיתים וגם וירטואלים

@אלי-b https://mitmachim.top/topic/77843/בקשת-מידע-צירבת-גירסה-לנוקיה235-2024?_=1735473269809

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

מישהו יודע על בן אדם שצורב גירסה לנוקיה 235 2024 + שינוי imei במודיעין עילית או בשליטה מרחוק?

@זונדל-גרנד כתב בהמלצה | גרסה חדשה לפלאפון תומך כשר שואו SHOW F2 4G - מתעדכן:

שאלה:
מישהו קיבל במכשיר הזה הודעות מפיקוד העורף???

אני

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

@סוף-הרחוב כתב בבקשה | המלצות לטלפון ללא מסך מגע ודפדפן אבל עם מצלמה, הודעות ונגן?:

והמחיר שלו ממש זול בעלי אקספרס.

אפשר למצוא ב120-150 ₪