להורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!

[pcinfogmach]

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

[ע"ה דכו"ע]

@שלמה11 אולי כדאי להוסיף לפני כל פעולה מורכבת לדוגמא יישור טורים שמירה אוטומטית של עותק מהמסמך, לטובת מי שישכח או יתעצל, וגם להקל על מי שעושה את זה ידנית.
למשל כך (שגרה באחד המודולים הראשיים):

Sub GibuyLifneyPeula(Peula As String)
    Dim filePath As String
    Dim fileName As String
    Dim fileName1, fileName2 As String
    Dim timestamp As String
    Dim newFileName As String
    Dim userResponse As VbMsgBoxResult
    Dim originalDoc As Document
    
    filePath = ActiveDocument.Path

    If filePath = "" Then
    userResponse = MsgBox("שים לב! הקובץ עדיין לא נשמר" & vbLf _
    & "מומלץ לשמור את הקובץ על מנת שלא לאבד את העבודה במקרה של קריסת התוכנה" & vbLf _
    & "לאחר שמירת הקובץ תתאפשר גם שמירת גיבוי לביטול השינויים במסמך." & vbLf _
    & "לשמירה וגיבוי לחץ כן להמשך ללא שמירה לחץ לא", vbYesNo + vbQuestion, "שמירה")
        If userResponse = vbYes Then
            ActiveDocument.Save
        Else
            Exit Sub
        End If
    ElseIf ActiveDocument.Saved = False Then
    userResponse = MsgBox("שים לב! ישנם שינויים שלא נשמרו" & vbLf _
    & "מומלץ לשמור את הקובץ על מנת שלא לאבד את העבודה במקרה של קריסת התוכנה" & vbLf _
    & "לאחר שמירת הקובץ תתאפשר גם שמירת גיבוי לביטול השינויים במסמך." & vbLf _
    & "לשמירה וגיבוי לחץ כן להמשך ללא שמירה לחץ לא", vbYesNo + vbQuestion, "שמירה")
        If userResponse = vbYes Then
            ActiveDocument.Save
        Else
            Exit Sub
        End If
    End If

    timestamp = Format(Now, "yyyy-mm-dd hh.mm.ss")

    fileName = ActiveDocument.Name
    fileName1 = Left(fileName, InStrRev(fileName, ".") - 1)
    fileName2 = Mid(fileName, InStrRev(fileName, "."))
    newFileName = fileName1 & "_" & "גיבוי לפני " & Peula & timestamp & fileName2
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile ActiveDocument.FullName, filePath & "\" & newFileName
    Set fso = Nothing
End Sub

ולפני כל פונקציה שיכולה לגרום לתקלות לקרוא לשגרה הזו כך:

    GibuyLifneyPeula "יישור טורים"

[לשכת הרב]

@שלמה11 כמה תיקונים חשובים שיש לעשות בעיטורים לכותרות [פרגונים כבר כתבתי! ממש תוסף עוזר ומועיל!!! רק שצריך כמה תיקונים נחוצים לזה]

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

יישר כח.

[u88]

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

[לשכת הרב]

פוסט זה נמחק!

[לשכת הרב]

@לשכת-הרב כתב בלהורדה | "שולחן העורך" - תוסף עימוד חדש לוורד!!!:

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

יישר כח.

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

[לשכת הרב]

@שלמה11 אם תוכל, נשאר כאמור רק לתקן את הדבר הנחוץ הזה:
א. בעיטור לפני ואחרי, צריך שיהיה אופציה ל'ממורכז', בעבר כתבת לי ש 0 זה ממורכז. אבל ניסתי וזה ממש לא ממורכז. מצורף צילומסך. [שיחקתי עם זה עד שעשיתי 2 וזה היה ממורכז]. וזה קשה כל פעם לשחק עם זה, לכן כדאי לעשות אופציה ממורכז - שבזה רובם משתמשים.

[לשכת הרב]

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

[u88]

@שלמה11 יש בעיה אם התוסף שמוסיף עיטור לפני ואחרי כותרת מכיון שהוא מוסיף את התמונה עם הוספת מעבר שורה ידני וזה משבש את הכותרת העליונה (למשל כותרת 1 משתנה למעלה אז זה מוריד אותה שורה למעלה)
אשמח לרעיון מה לעשות

ובכו"ז תודה רבה זה מממש עזרה עצומה על הענין הזה יישר כח!!!!!!

[איש גמזו]

סליחה על הבורות
מישהו יודע האם אפשר להתקין את התוספים גם במקבוק?

[דאנציג]

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

[איש גמזו]

@דאנציג מה הכוונה רק התוספים שהם קבצי תבנית?

[pcinfogmach]

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