יש גירסה זמינה להורדה?

@106 תודה רבה, אבל אין אצלי הגדרה כזו.

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

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

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

@menajemmendel כתב בעזרה | תוכנה לפיצול קבצי וורד גדולים:

באופן כללי יש לי בעיה gם כל המאקרוים שיש בהם חלק של הדבק, שנתקע כל פעם שמגיע לחלק ''הדבק'' כי המקרו רץ יותר מהר ממה שהלוח [כמדוני משום שהלוח הוא לא של אופיס אלא של וינדוס], ואז כשבא להדביק אומר שהלוח ריק, [אם מריצים אותו לאט לאט, אין את הבעיה הזאת]

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

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

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

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

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

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

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

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

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

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

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

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

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

@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:="תרח 1.docx", 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

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

@10110000
הפינג הוא 36, זה נסגר מיד, אני לא מצליח להספיק לצלם מסך.

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

תודה לעונים

@rep לצערי לא. רק חיבור באמצעות חשבון אחר.

@MGM-IVR אין לי חשבון עסקי.

@אליר325000 שום כלום, סים של 012 גלישה סלולרית.

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

@אליר325000 מהטלפון הנייד, אין כרגע סינון על הנייד או הקו.

@אליר325000 לא אמור להיות, הפכתי את כל ההגדרות ולא מצאתי חסימה בשום מקום.