@מים-אחרונים עיין פה יש בקצרה על התוספים העקרוניים https://mitmachim.top/post/950964

@avivis תודה רבה ניסתי ולא עזר

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

@שמואל-9 אשמח שתסביר את כוונתך למעלה פחות או יותר הסברתי מה עושים איתם אם אתה מחפש משהוא אחר אשמח שתפרט ואשמח לכתוב אם אדע

@משהו-חדש תעשה החיפוש והחלפה
חפש ^b או ^M
החלף תשאיר ריק

@975 מה תעשה אם במסמך יש לך 500 פסקאות ו200 מהם של שורה אחת ושתי שורות מה תעשה ?
בשביל זה יש מאקרו שעובד רק על בחירה שלך....
אם אח"כ תרצה לעבוד עם סגנונות הבחירה שלך

Spoiler

@לשכת-הרב אשמח שתעדכן מה יצא בסוף

Spoiler

@ע-ה-דכו-ע תודה רבה על ההסבר שגרש' עושה את החיבור

Spoiler

@דאנציג תודה רבה
רק שאלה אחת זה עושה כל אחד מאקרו בפני עצמו?

@דאנציג אשמח להבין מה כוונת כבודו
מה להסיר את ההתחלה ואת הסוף של כל מאקרו ולצרף יחד?

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

@pcinfogmach תודה רבה וייש"ח עצום !!!!
דרך הדרייב לא הצלחתי להוריד מה עושים?

@MNM אם תתקין מכונה וירטואלית תוכל לעשות שתי התקנות

Spoiler

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

בכו"ז תודה על הטרחה ועל ההסבר המפורט

@לשכת-הרב
תיכנס

שורה 12 כתוב

@לשכת-הרב כתב בבקשת מידע | איך להכניס מעט את השורה בכל תחילת קטע?:

הגדרת כניסה לתחילת השורה הראשונה ב-10 מ"מ (שווה ל-1 ס"מ)

תשנה מה שצריך לדוגמא
הגדרת שכניסה לתחילת השורה הראשונה ב-50 מ"מ (שווה ל-5 ס"מ) וכן הלאה

אם צריך עוד הסברים תעדכן

@בנימין-כפיר כבודו לא ראה שזה מתחלק לבחירה של שורה אחת שתים ושלוש?

@לשכת-הרב

Sub כניסה_לתחילת_השורה_הראשונה()
    Dim פסקה As Paragraph
    Dim מספר_שורות As Integer

    ' בקשת בחירת מספר השורות
    מספר_שורות = InputBox("הכנס את מספר השורות הרצוי לפסקאות עליהן תוחל הכניסה (1, 2, 3, או יותר):")

    ' מעבר על כל הפסקאות במסמך
    For Each פסקה In ActiveDocument.Paragraphs
        ' בדיקה אם הפסקה מכילה את מספר השורות הנדרש
        If פסקה.Range.ComputeStatistics(wdStatisticLines) = מספר_שורות Or (מספר_שורות >= 3 And פסקה.Range.ComputeStatistics(wdStatisticLines) >= 3) Then
            ' הגדרת כניסה לתחילת השורה הראשונה ב-10 מ"מ (שווה ל-1 ס"מ)
            פסקה.Format.FirstLineIndent = CentimetersToPoints(1)
        End If
    Next פסקה
End Sub

תגדיר כמה אתה רוצה שהוא יכנס באדיבות צ'אט gpt
ותעדכן

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

@pcinfogmach שאלתי ובקשתי אם מצאתי חן רציתי לשאול איך נעשה את זה בפקודת מאקרו

תודה רבה על כל הטירחה של כל המסייעים

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

תודה רבה לכל הטורחים והמסייעים!!!!