בקשר למאקרו לפיצול מסמך

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
באשכול הזה העלה @moishy מאקרו לפיצול מסמך.
א. המאקרו לא עובד לי. השגיאה שאני מקבל מצביע על המילים הבאות של המאקרו "GetFileExt".
ב. ובכלל נראה לי מוזר שלפני השורה של sub (שכידוע זה תחילת המאקרו) מופיע עוד שתי מילים, שזה לא נכנס לאותו מאקרו.
ג. ובכלל לא הבנתי איך הוא מפצל המסמך, הרי אני לא נותן לי שום הוראה איך לפצלו.

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

moishy

משתמש סופר מקצוען
מנוי פרימיום
הוסף את הפונקציה הבאה למודול, ותראה נחת בע"ה.
קוד:
Function GetFileExt(strFilePath)
    GetFileExt = Right$(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "."))
End Function
 

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
הוסף את הפונקציה הבאה למודול, ותראה נחת בע"ה.
קוד:
Function GetFileExt(strFilePath)
    GetFileExt = Right$(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "."))
End Function
לא כתבת איפה להוסיף. הוספתי את זה בסוף (לפני end sub) והשגיאה מצביע לי על המילים האלו wdDoNotSaveChanges.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים

moishy

משתמש סופר מקצוען
מנוי פרימיום
אתה מתכוון אחרי end sub??? איך יכול להיות, הרי המאקרו מסתיים שם. ומשם מתחיל מאקרו חדש?
בדיוק לזה אני מתכוון :)
זה לא חלק מהמאקרו, זה פונקציה המחזירה את הסיומת של הקובץ.
 

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
בדיוק לזה אני מתכוון :)
זה לא חלק מהמאקרו, זה פונקציה המחזירה את הסיומת של הקובץ.
אבל כשאני יפעיל את המאקרו מדוע אתה חושב שהוא יפעיל לי גם את זה. הרי המאקרו כבר הסתיים לפני אותם שורות. והוא לא קורה הלאה...?!?!?
 

moishy

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

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

שיקול דעת

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

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

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

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

חגי פאהן

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

moishy

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

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

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

moishy

משתמש סופר מקצוען
מנוי פרימיום

שיקול דעת

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

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

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

מקווה שאני לא מקשה עליך מידי.
 

moishy

משתמש סופר מקצוען
מנוי פרימיום

שיקול דעת

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

moishy

משתמש סופר מקצוען
מנוי פרימיום
אני יכול לכתוב לך קוד, אבל חבל שלא לנצל תוסף קיים (של חברה סינית) שנותן כ"כ הרבה אפשרויות, ביניהם פיצול מסמך.
מצורף צילום מסך של אפשרויות הפיצול השונות (לפי סגנון, מעבר עמוד, מעבר מקטע, עמוד, כל X עמודים, מותאם אישית).
upload_2019-11-27_9-21-10.png
 

קבצים מצורפים

  • Kutools for Word 9.0.0.rar
    35.8 MB · צפיות: 10

שיקול דעת

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

moishy

משתמש סופר מקצוען
מנוי פרימיום

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
תתקין את הגירסה הנ"ל, אולי יש לך גירסה לא טובה.
יש לי גירסה זו. וליתר ביטחון הסרתי הקודם והתקנתי מחדש, ואין שום שינוי.
זה באמת חבל. אולי יש איזה מתכנת פה, שיודע לתקן הבעיה? אולי @Rרחמים ?
 
נערך לאחרונה ב:

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
הרב @moishy ירדתם מהענין?
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט א'

א אַשְׁרֵי תְמִימֵי דָרֶךְ הַהֹלְכִים בְּתוֹרַת יְהוָה:ב אַשְׁרֵי נֹצְרֵי עֵדֹתָיו בְּכָל לֵב יִדְרְשׁוּהוּ:ג אַף לֹא פָעֲלוּ עַוְלָה בִּדְרָכָיו הָלָכוּ:ד אַתָּה צִוִּיתָה פִקֻּדֶיךָ לִשְׁמֹר מְאֹד:ה אַחֲלַי יִכֹּנוּ דְרָכָי לִשְׁמֹר חֻקֶּיךָ:ו אָז לֹא אֵבוֹשׁ בְּהַבִּיטִי אֶל כָּל מִצְוֹתֶיךָ:ז אוֹדְךָ בְּיֹשֶׁר לֵבָב בְּלָמְדִי מִשְׁפְּטֵי צִדְקֶךָ:ח אֶת חֻקֶּיךָ אֶשְׁמֹר אַל תַּעַזְבֵנִי עַד מְאֹד:
נקרא  39  פעמים

לוח מודעות

למעלה