עזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה

[menajemmendel]

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

@menajemmendel כמו המילה הראשונה בקובץ (ברירת מחדל)

איזה קובץ, החדש?

[אדיר]

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

[מאקרו]

@אדיר תנסה את זה

Sub פיצול_מסמך()
'
' פיצול_מסמך Macro
'
'
    Selection.MoveDown Unit:=wdScreen, Count:=49, Extend:=wdExtend
    Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
    Selection.Cut
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
    ActiveDocument.SaveAs2 FileName:=ActiveDocument.Words(1), FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=15
    ActiveDocument.Save
    Windows("הכל").Activate
End Sub

[menajemmendel]

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

[אדיר]

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

תמיד ירד באופן קבוע 49 פעמים את הגודל של הסמך, ועוד 2 שורות.
חוץ מזה צריך גם להוסיף את המיקום שאתה רוצה שישמור את הקובץ החדש

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

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

[menajemmendel]

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

 Selection.EndKey Unit:=wdStory, Extend:=wdExtend

[menajemmendel]

@אדיר אתה רוצה מאקרו שיחלק קובץ להרבה מסמכים לפי סגנונות
, יש לי, פרסמתי בעבר
https://mitmachim.top/topic/67018/עזרה-תוכנה-לפיצול-קבצי-וורד-גדולים

תיקון, התבלבלי שמה מפצל לפי סכום עמודים

[אדיר]

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

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

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

[menajemmendel]

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

רק ששים לב שדבר זה סותר, מה שכתבת קודם שאתה רוצה שיקרה לו בשם המילה הראושנה, כי אם כן, כל המסמכים יקראו באותו שם

[אדיר]

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

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

רק ששים לב שדבר זה סותר, מה שכתבת קודם שאתה רוצה שיקרה לו בשם המילה הראושנה, כי אם כן, כל המסמכים יקראו באותו שם

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

אודה לקוד, ושכרך כפול מן השמים.

[אדיר]

למעיישה עשיתי כך בעזרתכם (יש קצת עבודה ידנית אבל בקליינע):

Sub פיצול_מסמך()
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Cut
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
    ActiveDocument.Save
    Windows("הכל").Activate
End Sub