@שמואל-9 יש תוסף

1. וורד תורני
2. עיצוב תורני כל אחד נמצא בפוסט נפרד ובשורה הראשונה מופיע המעודכן.
3. עזרים לוורד
4. כלי קודש
5. שולחן עורך (שהוא אמור להחליף את עיצוב תורני ואולי לשדרג עוד כמה דברים).
6. עימודית של מכון כתר תורה
7. אקורדים לוורד
8. צמצום מסמך לפני הדפסה
9. תורת אמת בוורד
10. היברובוקס לוורד
11. אוצריא לוורד
12. חיפוש רגקס
    ועוד היד נטויה, אם תפרט כיוון אשמח לחפש אבל סתם להיות מראה מקום בלי תועלת אין למה
    פירוט
    1-5 הם בחינם נועדו לעזרה בעימוד עצמאי.
    6 הוא בתשלום (חלק מהתוסף הוא בחינם) (וכן 3 בגירסה הישנה הוא חינם תמיד ובחדשה צריך לשלם אחרי חודש)
    7 הוא ג"כ בחינם נועד לעשות חוברת תווים עצמאית
    8 נועד לעבור על החומר לפני הדפסה לצורך הגהה לשונית וכדו', ולכן הוא מצמצם את הגודל שלא תדפיס סתם מלא עמודים.
    9-11 הם ג"כ חינם נועדו לשימוש עם טקסט וספרים נלווים תוך כדי כתיבה נועד לעזור עם חיפוש בספרים וכדו' וכן לפתוח קבצי PDF תוך כדי הוורד ללא צורך בתוכנה נוספת.
    12 חיפוש מיוחד עם קודים עיין כאן פירוט יותר https://mitmachim.top/post/949127

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

אשמח לדעת מה עושים דיסלייק סתם

@הרב-יעקב-ישראל
בשמחה https://mitmachim.top/post/299606

@menajemmendel יש פה את הוורד מתקדם שם יש אפשרות כזו במקור זה מפרוג סרגל וורד מתקדם.rar

@איש-שלו תעשה חיפוש והחלפה
חפש את: ^f
החלף ב: עיצוב > גופן> מוסתר (ולהשאיר ריק את התבה).
החלף הכל.
בהצלחה
תעדכן.

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

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

@pcinfogmach תודה רבה
זה פשוט לא יאמן באיזה שעות אתה יושב עבור כולנו שנהנה תודה רבה ויישר כח

Spoiler

@ע-ה-דכו-ע תודה אלוף העולם!!!!

@אלי-היל צדיק הנושא לא קשור לפה.

@לשכת-הרב

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
ותעדכן

@menajemmendel מוכר לי והוא ממש פלא אדיר!!!!
לא ח"ו שאני כפוי טובה רק באתי להציג עוד כיוון
כמו שאמרו חז"ל 'מיני ומינך יתקלס עילאה'

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

Function GetHebrewDateTime() As String
    Dim hDate As String
    hDate = Format(Date, "Long Date", vbHebrew)
    Dim hTime As String
    hTime = Format(Time, "hh_mm")
    GetHebrewDateTime = Replace(hDate, "יום ", "") & " " & hTime
End Function

Sub MultiHeadingTagReplacerWithAutoOpenLog()
    Dim searchWords() As String
    Dim headingLevels() As Integer
    Dim replacements() As Integer
    Dim i As Integer, count As Integer
    Dim wordInput As String, headingInput As String

    count = 0

    Do
        wordInput = InputBox("הזן מילה שמתחילה שורה (או השאר ריק לסיום):", "החלפה #" & count + 1)
        If wordInput = "" Then Exit Do
        
        headingInput = InputBox("הזן מספר כותרת מתאים (1-9) עבור """ & wordInput & """:", "כותרת למילה #" & count + 1)
        If Not IsNumeric(headingInput) Or Val(headingInput) < 1 Or Val(headingInput) > 9 Then
            MsgBox "מספר כותרת לא חוקי. נסה שוב."
            Exit Sub
        End If

        count = count + 1
        ReDim Preserve searchWords(1 To count)
        ReDim Preserve headingLevels(1 To count)
        ReDim Preserve replacements(1 To count)

        searchWords(count) = wordInput
        headingLevels(count) = CInt(headingInput)
        replacements(count) = 0
    Loop

    If count = 0 Then
        MsgBox "לא הוזנה אף מילה.", vbExclamation
        Exit Sub
    End If

    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        Dim lineText As String
        lineText = Trim(para.Range.Text)
        If Right(lineText, 1) = vbCr Then
            lineText = Left(lineText, Len(lineText) - 1)
        End If

        For i = 1 To count
            If Left(lineText, Len(searchWords(i))) = searchWords(i) Then
                If InStr(lineText, vbCr) = 0 Then
                    Dim tagOpen As String, tagClose As String
                    tagOpen = "<h" & headingLevels(i) & ">"
                    tagClose = "</h" & headingLevels(i) & ">"
                    para.Range.Text = tagOpen & lineText & tagClose & vbCr
                    replacements(i) = replacements(i) + 1
                Else
                    para.Range.Font.Color = wdColorRed
                End If
                Exit For
            End If
        Next i
    Next para

    Dim createLog As VbMsgBoxResult
    createLog = MsgBox("האם ברצונך ליצור ולפתוח קובץ סיכום עם תאריך עברי ושעה?", vbYesNo + vbQuestion, "קובץ סיכום")

    If createLog = vbYes Then
        Dim docName As String
        docName = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1)
        
        Dim hebDateTime As String
        hebDateTime = GetHebrewDateTime()
        hebDateTime = Replace(hebDateTime, " ", "_")
        
        Dim logFileName As String
        logFileName = "מידע קובץ " & docName & " " & hebDateTime & ".txt"
        Dim logFilePath As String
        logFilePath = ActiveDocument.Path & "\" & logFileName
        
        Dim fso As Object, logfile As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set logfile = fso.CreateTextFile(logFilePath, True)

        logfile.WriteLine "דו״ח החלפות עבור """ & docName & """"
        logfile.WriteLine "תאריך עברי: " & Replace(GetHebrewDateTime(), "_", " ")
        logfile.WriteLine String(50, "-")
        For i = 1 To count
            logfile.WriteLine "מילה: " & searchWords(i) & _
                             " → תג: <h" & headingLevels(i) & ">" & _
                             " | הוחלפה " & replacements(i) & " פעמים"
        Next i
        logfile.Close

        Shell "notepad.exe """ & logFilePath & """", vbNormalFocus
    End If
End Sub

@יום-חדש-מתחיל

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

@מאיר-מאיר-מאיר יש שיואמי F22 לא פרו והוא בלי מצלמה

אם מישהוא יוכל להסביר איך אני שולח קובץ של 300 עמודים
1 איך אני סוגר את הגודל של הכריכה וכן את הצד
2 איך אפשר לסדר שבPDF יהיה קובץ שרואים אחד ליד השני על עמוד אחד

@דאנציג עיין כאן https://drive.google.com/file/d/15-QLwtRv-RzAFAhOrq9lLg5e581SuN5K/view?usp=share_link
בתוך העזרים בגירסה החדשה יש אפשרות כזאת
מ"מ לגבי הרשיון של זה הוא כותב שצריך אחרי חודש לשלם סכום מסויים עיי"ש

@דנבו תודה רבה
ה' ישמור אותך כל הברכות

@chaimd יישר כח הצלחתי
כל הברכות תודה רבה