הבו עיצה בבקשה

[rotiroti]

בס"ד

אני בונה אתר שיציג את הש"ס עם פירוש כלשהוא הקבצים שקיבלתי לצורך כך הם 49 קבצי וורד 2003 כל קובץ =מסכת.
מה שנדרש ממני הוא להציג באתר את המסכתות מחולקות לפרקים בפורמט PDF
הדרך בה אני ניסיתי לממש נראית לי מסורבלת ולא הגיונית
אני פותח את קובץ המסכת מחפש איפה מתחיל כל פרק מעתיק למסמך אחר ושומר בפורמט PDF (וורד 2010) מה שאומר המון עבודה סיזיפית (בערך 5 פרקים X 49 מסכתות) וכל קובץ שמירה בשם לשנות ל PDF ולתת לו שם.
הקושי העיקרי הוא כאשר אני פותח חלונית חיפוש כותב את המילה "פרק" זוכר את עמ' ההתחלה של הפרק ואז הולך לתוצאה הבאה וממנה מסמן את הטקסט עד העמ' של ההתחלה

אשמח לשמוע דרך יעילה ומקצועית יותר אבל גם טיפים ייתקבלו בברכה

תודה רבה

 

[שמח לעזור]

תכתוב מאקרו.
התוכנה PDFCreator כוללת דוגמאות תכנות בVB, וגם בVB.NET.
בהצלחה.

 

[שמח לעזור]

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

 

[Yisrael]

כמו ש"שמח לעזור" אמר, אם יש לך דרך לחפש את תחילת כל פרק זה עשוי להיות לא מסובך...
איך באמת אתה מחפש את תחילת הפרק הבא בכל פעם?

 

[rotiroti]

כותב בחיפוש "פרק"

 

[שמח לעזור]

ומוצא "מנורה של פרקים"...
אין עיצוב ספציפי?

 

[rotiroti]

אני מצרף תמונה איך העיצוב של הפרק נראה

 

[Yisrael]

אני מצרף תמונה איך העיצוב של הפרק נראה

במקום תמונה יעיל יותר פשוט להעלות קובץ לדוגמה...

בכל מקרה למיטב הבנתי אם בכל קובץ ישנה מסכת מחולקת לפרקים אם תחפש את המילה פרק ראשון (וכן הלאה) תמצא את הפרק המבוקש, הלא כן?

(עדיין כדאי להעלות קובץ...)

 

[rotiroti]

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

 

[Yisrael]

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

אתה עובד עם 2003 או 2010?
ז"א הבנתי מדבריך שאתה שומר את הקבצים בפורמט PDF באופציה הקיימת ב-2010, אז איך אתה בעצם ממיר אותם מ-2003 ל-2010

 

[rotiroti]

אני לא צריך להמיר וורד 2010 יודע לקרוא 2003 הוא כותב למעלה מצב תאימות

 

[tkh]

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

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

 

[מר נחמיאס]

הייתי עושה PDF מכל החומר איך שהוא - בלחיצת כפתור.
מצרף לקובץ אחד גדול (מגבה), ואז:
פותח - שמירה בשם - פרק 1
חפש פרק הבא - מחק עמודים - ממס' 1 עד עמוד אחד קודם - שמירה בשם - פרק 2
חפש פרק הבא - מחק עמודים - ממס' 1 עד עמוד אחד קודם - שמירה בשם - פרק 3
וחוזר חלילה....

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

לדעתי הרבה פחות עבודה מהמתואר לעיל

 

[Yisrael]

אני לא צריך להמיר וורד 2010 יודע לקרוא 2003 הוא כותב למעלה מצב תאימות

על פניו - באם אין עוד פעמים את המילים "פרק ראשון" וכו' במסמך - הקוד הבא יוכל לעשות את העבודה -

Sub d()
Dim a As Range
selection.EndKey wdStory
Do
selection.Extend
With selection.Find
.Text = "פרק שלישי"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
.Text = "פרק שני"
.Forward = False
.Wrap = wdFindStop
.Execute
End If
If Not .Found Then
GoTo s
End If
End With
selection.Copy
Documents.Add
selection.Paste
s: selection.ExtendMode = False
selection.HomeKey Unit:=wdStory
selection.EndKey Unit:=wdLine, Extend:=wdExtend
selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Set a = selection.Range
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
 a & ".pdf", ExportFormat:=wdExportFormatPDF
If selection.Find.Found = True Then
ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
selection.MoveLeft Unit:=wdCharacter, Count:=1
Else
Exit Do
End If
Loop
End Sub

הקוד כעת יעבוד כאשר ישנם שלושה פרקים במסמך. באם יש יותר פרקים יש להוסיף בעבור כל פרק את הקוד הזה -

.Text = "פרק X"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then

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

שם הקובץ הנוצר יהיה כשם הפרק.

נ.ב. כמובן שאין לנסות ללא גיבוי...

 

[rotiroti]

תודה רבותיי אני אנסה כל עיצה ואדווח מה הואיל יותר

תודה על הרצון וההשתדלות

 

[rotiroti]

Yisrael היקר

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

תיקון ניסיתי ורק המאקרו של Yisrael עובד רק Yisrael היקר מעט תיקונים וזה יהיה מושלם אם לא קשה

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

אין מילים להודות על העזרה עד כה

 

[Yisrael]

Yisrael היקר

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

תיקון ניסיתי ורק המאקרו של Yisrael עובד רק Yisrael היקר מעט תיקונים וזה יהיה מושלם אם לא קשה

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

אין מילים להודות על העזרה עד כה

א. תוכל להגדיר את מקום השמירה ע"ד מה שהוספתי בקוד.
ב. תפרט בדיוק מה הבעיה.
ג. טעות שלי, יש להוסיף את פרק ראשון כמו שהוספתי בקוד הבא (אם במקום העתק היינו עושים גזור היינו יכולים בפרק ראשון לחסוך את ההעתקה למסמך וורד אחר ולייצא את הקובץ עצמו ל-PDF, זה למעשה מה שחשבתי בתחילה ולכן לא הוספתי את פרק ראשון ודילגתי בו על שלב ההעתקה למסמך אחר; אך מכיון שלבסוף הערכתי שתעדיף להעתיק ולא לגזור זה צריך להשתנות ג"כ, ושיניתי עכשיו).
ד. אם הבנתי נכון את הבעיה, הפתרון הוא בעצם להוסיף מעבר מקטע רציף בכל סוף פרק. הכנסתי גם את זה בקוד.
ה. בקשר לשגיאה שדיווחת עליה בה"פ, היא נובעת מכך שעל כל פרק שאתה מוסיף אתה צריך גם להוסיף לבסוף את הקוד End If כמו שהוספתי בקוד, עיין שם.

Sub d()
Dim a As Range
selection.EndKey wdStory
Do
selection.Extend
With selection.Find
.Text = "פרק שלישי"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
.Text = "פרק שני"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
.Text = "פרק ראשון"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
Exit Do
End If
End If
End If
End With
selection.Copy
Documents.Add
With selection
.Paste
.InsertBreak Type:=wdSectionBreakContinuous
.ExtendMode = False
.HomeKey Unit:=wdStory
.EndKey Unit:=wdLine, Extend:=wdExtend
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Set a = .Range
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\המסמכים שלי\" & a & ".pdf", ExportFormat:=wdExportFormatPDF
ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
selection.MoveLeft Unit:=wdCharacter, Count:=1
End With
Loop
End Sub

 

[rotiroti]

כך נראה המסמך לאחר המאקרו
כנראה לשנות בהגדרות direction Right To Left ימין לשמאל

וכך נראה סופו ולא מחולק לשני טורים

 

[Yisrael]

כך נראה המסמך לאחר המאקרו
כנראה לשנות בהגדרות direction Right To Left ימין לשמאל

וכך נראה סופו ולא מחולק לשני טורים

נקווה שעכשיו הבעיות תיפתרנה...

Sub d()
Dim a As Range
selection.EndKey wdStory
Do
selection.Extend
With selection.Find
.Text = "פרק שלישי"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
.Text = "פרק שני"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
.Text = "פרק ראשון"
.Forward = False
.Wrap = wdFindStop
.Execute
If Not .Found Then
Exit Do
End If
End If
End If
End With
selection.Copy
Documents.Add
With selection
.Paste
.WholeStory
.RtlPara
.MoveRight Unit:=wdCharacter, Count:=1
.InsertBreak Type:=wdSectionBreakContinuous
.MoveLeft Unit:=wdCharacter, Count:=1
.TypeParagraph
.HomeKey Unit:=wdStory
.EndKey Unit:=wdLine, Extend:=wdExtend
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Set a = .Range
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"D:\המסמכים שלי\" & a & ".pdf", ExportFormat:=wdExportFormatPDF
ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
selection.MoveLeft Unit:=wdCharacter, Count:=1
End With
Loop
End Sub

 

[rotiroti]

Yisrael היקר הבעיה בעינה עומדת הקוד האחרון יוצר רק קובץ אחד איננו מקבל עברית בשם תיקיה
והעמ' האחרון יוצא ללא חלוקה לשני טורים