@רפרם-ב-ר-פפא קוד יפה מאד.
פועל אצלי מצוין.
אם תרצה לשפר, תוכל לשפר את המהירות שלו, את האפשרות להגדיר מינימום מקסימום וסטנדרט, את הרצת הפקודה על מסמך שלם, את ההיתקלות במעברי עמוד, וגם שאצלי כשהעמוד האחרון מחולק בכותרת נוצר באג.
הצלחה מרובה
ובהנאה
שמעלקא 0
-
שיתוף | יישור טורים מאקרו חדש!!! -
מדריך | כיצד לשנות את מפריד ההערות בוורד@דאנציג כתב במדריך | כיצד לשנות את מפריד ההערות בוורד:
אתה יכול לבחור סימנים מהגופן Guttman Logo1 (כשלחצן כאפס לוק דולק) יש שם סימנים רבים ויפים שיכולים להתאים להפרדת הערות
תודה על הפונט הנפלא,
ראיתי שכאשר מקש CapsLoke אינו לחוץ, אם מחליפים את המקלדת לאנגלית קטנה (אלט + שיפט), זה נותן צורות וסמלים יהודיים רבים נוספים.
שופר, ספר תורה, מגן דוד, נר נשמה, מגילות, עיטורים ועוד. -
הסבר | כמה הערות בקשר לפקודות המאקרו שמסתובבות כאן לאחרונה@נוכחות
הייתי מציע שבמקום לפרסם כל כך הרבה פקודות בודדות,
תיצור טופס אחד (userform) עם שם פשוט, שינתב לכל הפקודות.
תעשה בטופס עשרה לחצנים, וכל לחצן יפעיל פקודת מאקרו אחרת, או ישנה הגדרות של איזה מאקרו.
זה כמו סרגל נייד, ואולי זה יהיה ממש נוח.
כך יעברו לחצן אחרי לחצן ויעשו את הפעולות לפי הסדר וכמו שצריך.[ואולי אפילו זה יוכל להיות תוסף עימוד מושלם, צעד אחד צעד מוורד לדפוס, לחץ תחילה על 1, אחר כך 2, אחר כך 3 וכו', עד שהעיצוב כולו מוחל על הטסקט והספר מעומד]
-
בירור | קוד מאקרו ליישור שני טורים בוורד@מניין יש לך את תוכנת החיפוש Everytinge במחשב?
אם כן חפש את שם קובץ התבנית ההוא בכל נבכי המחשב, ומחק אותו. -
בירור | קוד מאקרו ליישור שני טורים בוורד@האדם-החושב, לגבי שגיאת ההתקנה הזו, אמתין ל @NykUser שכתב עבורנו את חלק הקוד הזה. תודות לו!
אגב, אין תפריט שאמור לעלות. זו פקודה שמותקנת, ואפשר להפעילה.לנתן מרדכי שלום,
ביטלתי את ההודעות הקופצות כדי לא להטריח. אולי אעשה הודע אחת בסיום.בכל מקרה כדאי לעבור על הקובץ אחרי הרצת המאקרו, כי עדיין יש מקום לדייק ולהגיע ליישור מושלם, יתכן פער קטן לפה או לשם (יש איזו מגבלה בהגדרת המרווחים בוורד, שטרם התגברתי עליה לגמרי...).
-
בירור | קוד מאקרו ליישור שני טורים בוורד@ששמעון הצדיק, אכן זה מרחיב רק בין פסקאות, ולא בין שורות.
באינדיזיין אפשר להגדיר טווחים למרווחים בין שורות, וגם למרווחים בין פסקאות [מרווח סטנדרט, מינימום ומקסימום].
ושמעתי שבתג אפשר עוד יותר מזה - להגדיר מה היחס בין מרווחי הפסקאות למרווחי השורות, כלומר מתי להעדיף לא לרווח רק פסקאות, אלא מעט בשורות ומעט בפיסקאות.
ככלות הכל וורד אינה תוכנה המיועדת לעימוד...אם המרווח הגדול מידי צורם לך,
היכנס שוב לטופס, הקטן את המקסימום, ואחר כך עבור על הקובץ והוסף מרווח שורות ידני.
[רק לפני כן בחר את כל המסמך, ותן לו מרווח פיסקאות של 8 נק' אחרי. בלשונית פריסה. זו הברירת מחדל בדר"כ].פקודת המאקרו שפותחת את טופס ההגדרות נקראת Open_my_userform חפש אותה ברשימת פקודות המאקרו.
בהצלחה -
בירור | קוד מאקרו ליישור שני טורים בוורד@ששמעון
לא כל כך מבין...
נסה להסיר את הקובץ הקודם [חפש LineToLine1 בכל המחשב, מומלץ באמצעות תוכנת everythins שמחפשת בכל נבכי התיקיות].
כעת פתח מסמך בעל שני טורים. לחץ Alt+0. הגדר מרווחים בטופס בספרות בלבד, ולחץ אישור. גש כעת למסמך בעל שני טורים והפעל את המאקרו עם Alt+9.
האם מה שעשית לא עבד? -
בירור | קוד מאקרו ליישור שני טורים בוורד@ששמעון זה אומר שהקובץ הותקן בהצלחה.
אין קשר לקובץ הקודם. -
בירור | קוד מאקרו ליישור שני טורים בוורד@ששמעון
החלפתי את שם הקובץ החדש ל- LineToLine4 כדי שלא תהיה התנגשות.
אולי כדאי לבדוק שקיצורי המקשים אכן מפנים לקובץ החדש ולא הישן. לא בדקתי זאת.
אם זה אכן כך, חפש את הקובץ הישן במחשב, ומחק אותו. -
בירור | קוד מאקרו ליישור שני טורים בוורדאני מעלה כאן גירסה מתוקנת של המאקרו שמיישר טורים בוורד.
עם שיפורים ניכרים בזכות החברים:
א. המאקרו מיישר את כל המסמך בלחיצה אחת, ותוך שניות בודדות!
ב. אין צורך להגדיר בכל פעם את המרווח המינימלי והמקסימלי בין פיסקאות.
אך מומלץ לעשות זאת בלחיצה על alt+0
הצלחה וברכההנה הקובץ
LineToLines4.dot -
בירור | קוד מאקרו ליישור שני טורים בוורד@NykUser
הקודים שלך מדהימים, מקסימים ונקיים. תודה רבה! אנסה לשפר בהם את הקוד של היישור טורים.@es0583292679
כל הכבוד על ההתלהבות שלך למען עם ישראל וכו'.להריץ את הקוד על כל המסמך זו כמעט לא בעיה. מכניסים את כולו לתוך לולאה שמדלגת לעמוד הבא, תוך בדיקה שלא היה באמצע מעבר מקטע (כותרת רחבה שמתפרסת על שני הטורים יחד, שאז צריך ליישר את חצי העמוד התחתון הקודם בפני עצמו).
אנסה לשמור הגדרות אישיות במקור חיצוני. מקווה שאצליח...
ויהיה עוד תיקון קטן בעמוד עם פסקאות מרובות מאד, שאז יוצא לפעמים שאני נותן לו מרווח מדוייק מידי, עם שלש ספרות אחרי נקודה עשרונית, שוורד לא יכול לקבל (למשל 9.312), ואז הוא מעגל את הסכום ויש אי דיוק. בע"ה נתגבר על זה.
-
בירור | קוד מאקרו ליישור שני טורים בוורדנראה לי שכדאי שההגדרות האישיות ל-MIN ו-MAX תשמרנה באותו קובץ בלבד לפעמים הבאות. כך שלא ישתבש העימוד של אותו הספר או העלון.
אך אולי טוב שתהיה אפשרות לשמור הגדרות לכל המסמכים.
בכל אופן איני יודע איך לעשות זאת. אנסה לשחק עם הקודים דלעיל.תודה רבה לשולחי הקודים, על הפוסטים המתעדכנים!
מגבלה נוספת יש בקוד,
שהמעמדים בוורד שעתידים להשתמש בו משתמשים גם בתוסף שמדגיש את המילה הראשונה, ועושה תחתיה "חלון" על ידי גזירת המילה לתוך תיבת טקסט.
הדבר גורם לשיבוש, כי הקוד רץ על השורות במסמך, ובודק היכן הוא נמצא (הייתי צריך לנחש אם אני בטור הראשון או השני, ולכן בדקתי שורה אחר שורה, לפי המרחק מגבול הדף התחתון).
תיבת הטקסט הנזכרת מוגדרת כשורה 1, והמילה שאחריה כשורה 2. וכשאני עובר לשורה 2 המחשב מזהה שעברו שורה אך לא ירדו למטה בדף. והוא חושב שעברתי לשורה המקבילה בעמודה השניה. -
בירור | קוד מאקרו ליישור שני טורים בוורדובכן,
אני מעלה כאן קובץ ובו פקודת מאקרו ליישור שני טורים בוורד.
עומדים בעמוד הרצוי, מפעילים את המאקרו, והטורים מתיישרים.
המאקרו בודק את מבנה העמוד, ומוסיף מרווח בין פיסקאות כדי להגיע ליישור מדוייק בין הטורים.הנה הקובץ:
[מעדכן את הפוסט: בהמשך השרשור יש גירסה מעודכנת יותר של הקובץ]
LineToLines1.dotתודה ל @NykUser שכתב את הפוסט הזה, שהועיל לי בענין ההתקנה.
לחברים המומחים ב-VBA:
הקובץ הוא גירסה ראשונית, שעובדת יפה.
אך יש כמה דברים שעשויים לתקוע את הקוד, ואבקש את עזרת המומחים בשיפורו:
א. כדי שהטופס לא יפתח בכל הפעלה, יש צורך לשמור את הגדרות המשתמש האישיות במקור חיצוני מחוץ לקוד. אינני יודע איך עושים זאת.
ב. האם יש פונקציה שבודקת האם אני בטור הראשון או השני.
ג. האם יש פונקציה פשוטה שמחזירה את מספר הפיסקה שלי.
ד. האם יש פונקציה שמובילה אותי לשורה האחרונה בעמוד.
הדברים האלו יעשו את הקוד למדוייק יותר בכל סוגי הקבצים והעמודים, וידלג גם על המכשולים שמציבים לו התוספים הפיראטיים שמניחים מילה ראשונה בתוך מסגרת כדי ליצור חלון, וכיוצא באלו.
בתודה מראש -
בירור | קוד מאקרו ליישור שני טורים בוורדהמאקרו הזה עובד כך:
באופן כללי וורד מיישר את הטקסט אוטומטית. אלא שלפעמים נותרים פערים בין הטורים.
המאקרו בודק את הדף, ומגלה היכן מסתיים כל טור.
אם יש פער ביניהם - הוא מגדיל את המרווח שבין הפסקאות.
לא התעסקתי (בינתיים) עם בקרת שורות מיותמות, ולא עם מרווחים בין שורות או תווים. רק עם מרווחים בין פסקאות [נסו זאת ידנית בלשונית "פריסה"].
ישנה אפשרות להגדיר מרווח מינימום ומקסימום בין פסקאות, על מנת שלא יווצר רווח גדול מידי.
אם יש באמצע העמוד כותרת רחבה, שחותכת את העמוד לשנים, המאקרו מיישר את שני הטורים בחצי הדף העליון, ואחר כך בנפרד את שני הטורים שבחצי הדף התחתון, מתחת לכותרת.
אם הגדלת המרווח בעמודה הקצרה לא מספיקה, המאקרו מצמצם את המרווחים בעמודה השניה.
בעמוד האחרון, אם יש רק טור ימני ואין טקסט בשמאל, הוא מיישר אותו בשני טורים כיאות.
זהו קוד כתוב, מושקע וארוך מאד, לא הקלטה של מאקרו... -
בירור | קוד מאקרו ליישור שני טורים בוורדתודה, אני מקבל את דבריך.
-
בירור | קוד מאקרו ליישור שני טורים בוורדשוב תודה לדואגים,
הנה, אם היתה לי אפשרות להעלות את הקוד למכירה באתר של חבר, ב-50 ש"ח למשתמש, כמה עותקים הייתי מוכר?
האם אחרי שנה הייתי מגיע ל-1,000 ש"ח? ספק רב.
אשמח לשמוע מאלה שהתנסו בפועל בשטח!
וכמובן שאי אפשר למכור קוד, אלא תוסף, עם יישום להתקנה, מה שמוסיף עלויות.
האם זה שווה התעסקות? -
בירור | קוד מאקרו ליישור שני טורים בוורדתודה למשיבים,
אכן, נראה כדבריכם שכסף רב לא יצא מזה, וחבל להשקיע ולפתח ציפיות...
אפרסם בהמשך גירסה חינמית. -
בירור | קוד מאקרו ליישור שני טורים בוורדכתבתי פקודת מאקרו ב- VBA שמיישרת שני טורים בוורד, שיסתיימו בשווה.
הקוד עובד נפלא, לדעתי, ואני מעוניין לפרסם אותו.
רציתי לשאול:
א. איך מפרסמים קוד כזה (מודול + UserForm של VBA).
ב. האם יש לו ערך כלכלי ששווה להגן עליו.
תודה רבה!