בירור | קוד מאקרו ליישור שני טורים בוורד

[שמעלקא 0]

@NykUser
הקודים שלך מדהימים, מקסימים ונקיים. תודה רבה! אנסה לשפר בהם את הקוד של היישור טורים.

@es0583292679
כל הכבוד על ההתלהבות שלך למען עם ישראל וכו'.

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

אנסה לשמור הגדרות אישיות במקור חיצוני. מקווה שאצליח...

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

[NykUser]

@es0583292679

כעת לאחר ניסוי המאקרו שלך יש לומר שהוא ממש טוב, אך לא מתאים לקובץ הניתן לשינוי, כי כל שינוי משבש את כל המסמך...

כן , כך זה בכל עימוד בוורד
יש לך מהלך שאינו משתנה עם הוספה? אדרבה!

למשל שיהיה מאקרו שיחפש את התוספת וישמיט אותה...

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

Spoiler

Sub delete_Holon()
If Selection.Type = wdSelectionNormal Then
    Set MyRange = Selection.Range
        MyRange.SetRange Selection.Paragraphs.First.Range.START, Selection.Paragraphs.Last.Range.End
    Else
    Set MyRange = ActiveDocument.StoryRanges(Selection.StoryType)
End If
MyRange.find.Execute FindText:=Chr(11) & ChrW(8197), ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
End Sub

[es0583292679]

@NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

כן , כך זה בכל עימוד בוורד
יש לך מהלך שאינו משתנה עם הוספה? אדרבה!

מה שיש בתוכנה שלנו למשל (כתר תורה).

(ומה שיש ליעקובוב, אע"פ שאינו עומד בזה אך הוא מתתקן בעה"י ע"י הרצה חוזרת, נראה לי לא ניסיתי אך זה כך לפי החשבון).

[NykUser]

@es0583292679

מה שיש בתוכנה שלנו למשל (כתר תורה).

הוספתי א

[es0583292679]

@NykUser
אנ ו מדברים כעת על מילת הפתיח.
טענו בחטים והודה לו בשעורים.

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

[אבי 0]

@שמעלקא-0 האם בבקשה אתה יכול לתת לי רק את פקודות המאקרו, שיודעות לקרוא את הרווח שיש אחרי הפיסקה שבה הסמן, ולהגדיל אותו בנק' אחת או שתי נק' לפי מה שאני אגדיר במאקרו.
תודה!

[מאקרו]

@אבי-0

Selection.ParagraphFormat.SpaceAfter = Selection.ParagraphFormat.SpaceAfter + 1

[אבי 0]

@מאקרו ממש ישר כח!

[שמעלקא 0]

אני מעלה כאן גירסה מתוקנת של המאקרו שמיישר טורים בוורד.
עם שיפורים ניכרים בזכות החברים:
א. המאקרו מיישר את כל המסמך בלחיצה אחת, ותוך שניות בודדות!
ב. אין צורך להגדיר בכל פעם את המרווח המינימלי והמקסימלי בין פיסקאות.
אך מומלץ לעשות זאת בלחיצה על alt+0
הצלחה וברכה

הנה הקובץ
‏‏‏‏LineToLines4.dot

[ששמעון]

@שמעלקא-0 האם כשאני מתקין את התבנית הזאת אני בעצם מחליף ומוחק את התבנית הקיימת שלי עם כל המאקרואים שבו?

[es0583292679]

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

[es0583292679]

@ששמעון כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@שמעלקא-0 האם כשאני מתקין את התבנית הזאת אני בעצם מחליף ומוחק את התבנית הקיימת שלי עם כל המאקרואים שבו?

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

[ששמעון]

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

[es0583292679]

@ששמעון כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@es0583292679 אבל הקובץ שאני עובד עליו יכול לעבוד על כמה מאקרואים שבכמה תבניות?

ברור!

[שמעלקא 0]

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

[ששמעון]

@שמעלקא-0 @es0583292679
זה מה שמופיע לי בלחיצה על אלט + 8:

מה זה אומר?

[שמעלקא 0]

@ששמעון זה אומר שהקובץ הותקן בהצלחה.
אין קשר לקובץ הקודם.

[ששמעון]

@שמעלקא-0 הפעלתי ועבד יפה אלא שזה נתקע לי בעמוד השני עם הודעת שגיאה כזאת:

ובלחיצה על אלט + 0 יוצא כזה:

אולי הרב @es0583292679 יודע למה לא עובד המינ - מקס?

[ששמעון]

@ששמעון וכעת בלחיצה על אלט + 9 יוצא ככה:

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

[שמעלקא 0]

@ששמעון
לא כל כך מבין...
נסה להסיר את הקובץ הקודם [חפש LineToLine1 בכל המחשב, מומלץ באמצעות תוכנת everythins שמחפשת בכל נבכי התיקיות].
כעת פתח מסמך בעל שני טורים. לחץ Alt+0. הגדר מרווחים בטופס בספרות בלבד, ולחץ אישור. גש כעת למסמך בעל שני טורים והפעל את המאקרו עם Alt+9.
האם מה שעשית לא עבד?