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

[975]

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

[יאיר דניאל]

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

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

אפשר בצורה יותר פשוטה על ידי Ctrl + enter

(אגב, "אוטומטית" ולא "אוטומאטית"...)

[יאיר דניאל]

@איש-גמזו כמו כן יש מעבר מקטע, בשביל להחיל בעמוד הבא - כותרת עליונה וכותרת תחתונה שונה

[איש גמזו]

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

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

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

[יאיר דניאל]

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

אז אפשר לעשות זאת בצורה "טיפשה" ע"י הרבה אנטרים

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

[איש גמזו]

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

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

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

אפשר בצורה יותר פשוטה על ידי Ctrl + enter

(אגב, "אוטומטית" ולא "אוטומאטית"...)

פעולה זו של של קונטרול אנטר, היא קיצור מקשים למעבר עמוד...

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

[יאיר דניאל]

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

פעולה זו של של קונטרול אנטר, היא קיצור מקשים למעבר עמוד...

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

[יאיר דניאל]

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

[איש גמזו]

@יאיר-דניאל אין בתוסף עיצוב תורני?

[יאיר דניאל]

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

[לשכת הרב]

אז אם אני רוצה לעשות לדוגמא שבעמוד אחד
החלק העליון יהיה טור אחד
ומהאמצע ומטה יהיה 2 טורים
איך אני עושה את זה?

[יאיר הבהיר]

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

[רק שאז תצטרך לקשר את הכותרות העליונות שבמקטע החדש למקטע הקודם: ]

[לשכת הרב]

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

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

[רק שאז תצטרך לקשר את הכותרות העליונות שבמקטע החדש למקטע הקודם: ]

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

[יאיר הבהיר]

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

[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 "יישור טורים"