[2]: בקשת עצה לצירוף טקסט של כמה קבצים של וורד לקובץ אחד

[יואל שילה - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 00:48

לפני שעושים את הצירוף קבצים - כדאי למספר כל קובץ כדי שהצירוף ילביש אותם בסדר הנכון
אם יש עשרה קבצים יש למספר בפורמט 01 02 03 וכו', כי אם לא כן הוורד עלול למקם את 10 לאחר 1 ולפני 2

------ Original Message ------
מאת: From "מעשה הכתב"
מאת: To "אליהו גרינברג"
מאת: Cc "שאלות בענייני עריכה תורנית"
Date ב' אדר תשפ"ג 00:36:33
Subject Re: [עריכה תורנית] בקשת עצה לצירוף טקסט של כמה קבצים של וורד לקובץ אחד

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

• image.png

[אליהו גרינברג - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 00:58

ייש"כ, עזרתם לי מאוד
תבורכו מן השמים.

[דוד אור - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 01:11

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

יש אפשרות לבטל פעולה קודמת מסויימת
ולא לבטל את הפעולות שאחריה?
או איך אני יעשה בקלות הפרדת קבצים בלי להסתבך?

מאת: [email protected]

[חנן - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 01:43

בלי ליטול אחריות, בדקתי אצלי את המאקרו הזה מקופיא:

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) +
1 & " sections. Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
' delimiter & filename
SplitNotes "///", "Notes "
End Sub

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

הקבצים המפוצלים ממוקמים כפי הנראה בנתיב:
[image: image.png]

ואם מסתבכים עם הנתיב הזה, אפשר פשוט לפתוח את הוורד מחדש ולראות את הקבצים
החדשים שנוצרו כאן:
[image: image.png]

כמובן לגבות הכל לפני כל שינוי.

בהצלחה.

[אריכא - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 08:18

לחילופין אפשר להקליט את כל התיקונים במאקרו ואז להפעיל אותו בכל קובץ וקובץ

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 10:45

איך ניתן לעשות בקלות החלפה על ידי עזרים?

ב-יום חמישי, 23 בפברואר 2023 בשעה 01:12:06 UTC+2, דוד אור כתב/ה:

[חנן - ארכיון]

תאריך ההודעה המקורית: 23/02/2023 19:46

כהשלמה לפעולת המאקרו שהועלה כאן:

אם רוצים לשנות את שמות הקבצים לאחר הפיצול, יש לשנות במאקרו כאן:

Sub test()
' delimiter & filename
SplitNotes "///", "Notes "
End Sub

במקום NOTES יש לרשום שם אחר (לא ניסיתי לבדוק אם זה עובד בעברית)

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

מאת: [email protected]