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

[Yisrael]

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

אולי זאת הבעיה, תנסה את הקוד הבא:

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
selection.Paste
selection.WholeStory
selection.RtlPara
selection.MoveRight Unit:=wdCharacter, Count:=1
selection.InsertBreak Type:=wdSectionBreakContinuous
selection.MoveLeft Unit:=wdCharacter, Count:=1
selection.TypeParagraph
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:= _
"D:\המסמכים שלי\" & a & ".pdf", ExportFormat:=wdExportFormatPDF
ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
selection.MoveLeft Unit:=wdCharacter, Count:=1
Loop
End Sub

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

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

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