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

[שיקול דעת]

באשכול הזה העלה @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]

לא כתבת איפה להוסיף. הוספתי את זה בסוף (לפני end sub) והשגיאה מצביע לי על המילים האלו wdDoNotSaveChanges.

להוסיף את זה למודול בסופו

 

[שיקול דעת]

להוסיף את זה למודול בסופו

אתה מתכוון אחרי end sub??? איך יכול להיות, הרי המאקרו מסתיים שם. ומשם מתחיל מאקרו חדש?

 

[moishy]

אתה מתכוון אחרי end sub??? איך יכול להיות, הרי המאקרו מסתיים שם. ומשם מתחיל מאקרו חדש?

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

 

[שיקול דעת]

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

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

 

[moishy]

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

לא מבין. אתה רוצה להתווכח או למצוא פתרון?

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

 

[שיקול דעת]

לא מבין. אתה רוצה להתווכח או למצוא פתרון?

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

סליחה על ניסוח שגוי (ואולי אף מזלזל) של ההודעה.

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

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

 

[חגי פאהן]

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

 

[moishy]

סליחה על ניסוח שגוי (ואולי אף מזלזל) של ההודעה.

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

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

בא נתחיל הפוך.
מה בדיוק אתה מנסה לעשות?
תן דרישות ובע"ה תקבל קוד עובד.

 

[moishy]

אם זה לא עובד, @moishy אולי צריך את שורות אלו דוקא לפני המאקרו הגדול?

אין משמעות למיקום במודול.

 

[שיקול דעת]

בא נתחיל הפוך.
מה בדיוק אתה מנסה לעשות?
תן דרישות ובע"ה תקבל קוד עובד.

וואוו!! לא ציפיתי לזה.

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

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

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

 

[moishy]

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

מה אכפת לך איך זה קורה, מה שאתה צריך זה קבצים נפרדים, לא?

 

[שיקול דעת]

מה אכפת לך איך זה קורה, מה שאתה צריך זה קבצים נפרדים, לא?

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

 

[moishy]

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

 

[שיקול דעת]

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

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

 

[moishy]

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

תתקין את הגירסה הנ"ל, אולי יש לך גירסה לא טובה.

 

[שיקול דעת]

תתקין את הגירסה הנ"ל, אולי יש לך גירסה לא טובה.

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

 

[שיקול דעת]

הרב @moishy ירדתם מהענין?