אני מנסה לעשות מנוי של 17$

אבל לא מצליח להבין כמה יגבו לו
מופיעה הודעה סותרת
Your subscription will auto-renew on 8/2/2027. You will be charged ‏200.00 ‏USD/year.Your subscription will auto-renew on 9/2/2026. You will be charged ‏20.00 ‏USD/month.Your subscription will auto-renew on 8/2/2027. You will be charged ‏200.00 ‏USD/year.Your subscription will auto-renew on 9/2/2026. You will be charged ‏20.00 ‏USD (approx ₪59.00)/month.

@א.מ.ד. ואחרים
איזה חברה הכי טובה בתחבירים, כללי דקדוק וכו' בעברית / לשה"ק ?

@יא-יא כתב:

ואגב הגרסה היא אותו דבר

לא רואה בו אפשרות להעתיק הקלטות מהטלפון לכרטיס.

@חינמי כתב:

בהחלט מבאס לראות איך אנשים מוציאים את המיץ לאדם שתרם כ"כ הרבה לציבור כמו @לא-מתייאש .
מאוד מקווה שרעשי הרקע לא יפריעו לו להמשיך במפעלים המדהימים שלו.

@מנהלים
אפשר לנעוץ?

@לא-מתייאש כתב:

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

משפט עמוק!
צריך לקרוא אותו כמה פעמים בשביל להפנים.

הצבעתי.

זה בגלל שמוגדר הדגשה לטינית ולא בעברית.

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

גם חפש החלף באמצעות מקרו מזהה הדגשות לא קיימות!

מצורף הקובץ והמקרו
תודה גדולה לעוזרים!
הדגשה נסתרת.docx

Sub DeCodeBold5()
    Dim rng As Range
    Dim objUndo As UndoRecord

    ' --- שלב 1: טיפול במעברי קטע מודגשים ---
    Set rng = ActiveDocument.Range
    With rng.Find
        .ClearFormatting
        .Font.Bold = True
        .Text = "^p"
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = False
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False ' תווים כלליים
        .Execute Replace:=wdReplaceAll
    End With

    ' --- שלב 2: הוספת תגיות סביב טקסט מודגש ---
    Set rng = ActiveDocument.Range
    With rng.Find
        .ClearFormatting
        .Font.Bold = True
        .Text = ""
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .Replacement.Text = "@1^&$1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll
    End With
    
End Sub

@נפתלי-צבי-יהודה
אני שואל על מה שקיים כרגע.

@pcinfogmach
איך אני מגיע לממשק של זה ?
https://mitmachim.top/assets/uploads/files/1687645144076-הערות-שוליים-יותר-משצב.dotm

@שלמה11 או מישהו
האם יש מקרו מוכן שמאפשר להכניס הערת שוליים עם סימון מותאם אישית?
אם יש, האם קיים גם עם מספור בנוסף?

תודה מראש!

@975 תודה רבה!
היתה רק שאלה אחת
אני מסיק שעדיף להשתמש בהערות שוליים עם סימנים מבחינים.

יש פה משהו מוכן לזה?

@106
לא, לטקסט רגיל
שלא יהיה שדה בכלל.

יש מקרו מוכן להמרת שדה לטקסט?
וכן עוד מקרואים שמתקנים טקסט

תודה

אני מנסה להכניס מספר לרשימה השחורה והוא מבקש סיסמה
איפה אני מוצא אותה?

האם 2 הסימים שלו דור 4?

זה די חדש

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