@יוסי-מחשבים מצאתי כבר, צריך לסמן את זה.

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

@975 לא בוחרים A3, משנים רק את הרוחב שיהיה כפול מהרוחב הקודם, אם הרוחב היה 210 מ"מ, משנים ל420, והגובה נשאר אותו דבר, ואז לא צריך לשנות את הפריסה לרוחב.
ואתה צודק שאם יש בחירה על עמוד מסויים, נוספה אפשרות של לפי בחירה, וזה משנה ר את העמוד האמצעי בלבד.

@אמר-מר כתב בשאלה | כרזה בעמודים הפנימיים של העלון:

ניסיתי ולא מצאתי, אם אתה מדבר מידיעה, אשמח שתביא צילו"מ.

בבקשה

@אמר-מר כתב בשאלה | כרזה בעמודים הפנימיים של העלון:

@מניין זה משנה את הגודל של כל העמודים

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

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

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

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

ר' @שלמה11

עבודה יפה עם היישור עמודים מסתמא כדאי להסתיר את הפעולה שמרחיבה את ה-slection על ידי screenupdating = false ואז true

שים לב בקובץ בדיקה זה לא מיישר הכל. השאלה כעת היא למה?

קובץ בדיקה ליישור טורים.docx

עלה והצלח

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

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

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

 ' קבלת מספר העמוד של ההערה הראשונה
    pgStart = ActiveDocument.Footnotes(1).Reference.Information(wdActiveEndPageNumber)

   ' בדיקה אם ההערה בעמוד המקורי
            If ft.Reference.Information(wdActiveEndPageNumber) <> pgStart Then Exit For

@שלמה11 כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

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

כמו לכל דבר יהיה פיתרון גם על זה

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

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

@menajemmendel כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

@מניין כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

@menajemmendel לרחמים יש כזה תוסף לוורד.

האם הוא תוסף לוורד או מייצר את הבתוכנה נפרדת? לפי הסרטון נתרשמתי שהוא תוכנה בנפרד, ושיש לו אפשרויות מאד מצומצמות

@שלמה11 רעיון לשיפור, במאקרו של ההוראה לפתיחת הטופס עדיף לעשות כך:

EnterData.Show vbModeless

במקום כך:

EnterData.Show

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

@menajemmendel לרחמים יש כזה תוסף לוורד.

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

^13([!^13 ]{1,})^13

החלף ב

^p\1 

ופלאי פלאות הכל הסתדר ברגע כמימריה
אבל כדאי לבחפוש שיחפש רק לא מודגש, כדי שידלג על כותרות של תיבה אחת.

@beny אם רוצים את שניהם, ככה זה הכי פשוט: \ ( * \ ( * \ ) * \ )

\(*\(*\)*\)

כהמשך למה שנכתב כאן, יש בעיה דומה ביציאה באמצע מאקרו במקרה של תנאי, ואני יסביר בצירוף דוגמאות.
כשכותבים מאקרו ב־Word ומשתמשים באפשרות של הקלטת פעולה אחת בלבד ל־Undo (כלומר, Application.UndoRecord.StartCustomRecord), כדי לתת אפשרות לבטל דרך קונטרול Z, ישנה בעיה שאם מתרחשת שגיאה במהלך המאקרו, עלול להיווצר מצב שבו ה־Undo נשאר "פתוח" – בגלל שלא מבצע את הסיום שנקרא EndCustomRecord, והפעולה לא נשמרת בכלל וזה יכול לשבש את הכל.
הפתרון שנתנו שם במצב של שגיאה, כדי להבטיח שה־Undo תמיד ייסגר גם אם תתרחש שגיאה, שעוטפים את סיום המאקרו בקטע קוד ייעודי עם תווית [לדוגמא] CleanExit, ומפנים אליו את השגיאה', uבכך מבטיחים שה־Undo תמיד נסגר – בין אם המאקרו הסתיים כראוי, ובין אם לא. ראה דוגמא:

Spoiler

On Error GoTo ErrHandler
Application.UndoRecord.StartCustomRecord "שם פעולה"
' פעולות שונות...

CleanExit:
    If undoStarted Then Application.UndoRecord.EndCustomRecord
    Exit Sub

ErrHandler:
    MsgBox "שגיאה: " & Err.Description
    Resume CleanExit

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

Spoiler

If Selection.Type <> wdSelectionShape Then
    MsgBox "לא נבחרה תמונה"
    Exit Sub
End If

אם ה־Undo התחיל כבר לפני התנאי הזה, והשורה Exit Sub מופעלת – ה־Undo לא ייסגר! והתוצאה זהה לזו של שגיאה – הקלטה לא שלמה של הפעולה.

ועל זה יש פתרון פשוט אבל מוגבל, כי אפשר פשוט להתחיל את ה־Undo רק לאחר התנאי, לדוגמא:

Spoiler

If Selection.Type <> wdSelectionShape Then
    MsgBox "לא נבחרה תמונה"
    Exit Sub
End If

Application.UndoRecord.StartCustomRecord "שם פעולה"
' פעולות...

אבל פיתרון זה לא פותר את כל המצבים, כי אם חלק מהמאקרו ביצע שינויים במסמך לפני התנאי, הם לא ייכללו בתוך ה־Undo, כלומר הפעולה לא תהיה שלמה מבחינת המשתמש.

ולכן הפתרון המומלץ הוא לעשות כמו בשגיאה – קפיצה ל־CleanExit
במקום להשתמש ב־Exit Sub, פשוט מקפיצים ל־CleanExit, בדיוק כפי שמבוצע במצב של שגיאה, לדוגמא:

Spoiler

If Selection.Type <> wdSelectionShape Then
    MsgBox "לא נבחרה תמונה"
    GoTo CleanExit
End If

כך ה־Undo ייסגר בצורה תקינה, העדכון יחזור לפעול, והמאקרו יסיים את עצמו בצורה מסודרת – גם אם יצא באמצע.
לסיכום הסדר של המאקרו כדי שיהיה באופן תקין הוא כך:

On Error GoTo ErrHandler
Application.UndoRecord.StartCustomRecord "שם פעולה"

' פעולות שונות של המאקרו...

' תנאי
If Selection.Type <> wdSelectionShape Then
    MsgBox "לא נבחרה תמונה"
    GoTo CleanExit
End If

' עוד פעולות שונות של המאקרו

CleanExit:
    If undoStarted Then Application.UndoRecord.EndCustomRecord
    Exit Sub

ErrHandler:
        MsgBox "אירעה שגיאה במהלך פעולת המאקרו:" & vbCrLf & Err.Description, vbCritical, "שגיאת מאקרו"
    Resume CleanExit

@ע-ה-דכו-ע הפלא ופלא, תודה רבה.
אבל מה זה IDMSO?