אופיס 365 המרת מעברי שורה למעבר שורה ידני בכל הפיסקה

[פרידמן]

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

 

[פרידמן]

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

 

[צורת הדף]

אין קוד למעבר שורה.
אי אפשר לחפש בוורד מעבר שורה.

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

 

[פרידמן]

אין קוד למעבר שורה.
אי אפשר לחפש בוורד מעבר שורה.

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

תודה
אבל איך ירוץ על כל המסמך

 

[פרידמן]

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

 

[פרידמן]

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

 

[צורת הדף]

מאקרו פשוט.

Sub Macro32()
strt:
Do While Selection.End < ActiveDocument.Range.End - 1
    Selection.EndKey Unit:=wdLine
        If Selection.Text = chr(13) Then Selection.MoveDown Unit:=wdLine, Count:=1: GoTo strt
    Selection.TypeText Text:=chr(11)
Loop
End Sub

 

[פרידמן]

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

 

[פרידמן]

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

 

[צורת הדף]

עדכנתי המאקרו כבקשתך.

אצלי אין ריוח בתחילת שורה.

 

[פרידמן]

יישרכחך ושכמ"ה

 

[sek]

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

 

[פרידמן]

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

 

[צורת הדף]

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

Sub sek()
Set myRange = Selection.Range: myRange.SetRange Selection.Paragraphs.First.Range.start, Selection.Paragraphs.Last.Range.End
Selection.MoveUp unit:=wdParagraph
strt:
Do While i < myRange.Paragraphs.Count
    Selection.EndKey unit:=wdLine
        If Not Selection.Text = chr(13) Then Selection.TypeText Text:=chr(11): i = i + 1: Selection.MoveDown unit:=wdParagraph, Count:=1: GoTo strt
    Selection.TypeText Text:=chr(11)
Loop
End Sub

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

Sub Friedman()
Set myRange = Selection.Range: myRange.SetRange Selection.Paragraphs.First.Range.start, Selection.Paragraphs.Last.Range.End
Selection.MoveUp unit:=wdParagraph
strt:
Do While i < myRange.Paragraphs.Count
    Selection.EndKey unit:=wdLine
        If Selection.Text = chr(13) Then i = i + 1: Selection.MoveDown unit:=wdLine, Count:=1: GoTo strt
    Selection.TypeText Text:=chr(11)
Loop
End Sub

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

 

[פרידמן]

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

 

[sek]

תודה רבה. האם אפשר גם בשורה אחת לפני האחרונה לחוד