מדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד
-
תגובה: בקשה | שליטה על הגופנים בוורד
@מניין העלה קוד לעיצוב פיסקאות ממורכזות כטור בודד בוורד,
הקוד הזה בנוי על בסיס מה שהוא עשה שם,Sub טור_אחד_שאר_המסמך() Dim Alerts Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True End Subאמנם כאשר יש כמה כותרות רצופות יהיה מעבר מקטע ביניהם ודו"ק.
@מאקרו בגלל בעיה זו עשיתי את המאקרו כמו שעשיתי, ובזה אפשר לשנות לכמה כותרות שרוצים, לדוגמא במאקרו הבא זה לשני כותרות רצופות, 58b15fbc-d101-479b-aba9-9a00633b46bf-שני כותרות.txt ובדרך כלל אין יותר משתיים, ובכל אופן אם צריך אפשר לשנות את המספר בשורה זו [כאן כתוב שתיים לשני כותרות] לכמה כותרות שרוצים שיכללו בטור אחד Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
עריכה: המאקרו הסופי נמצא כאן.
-
תגובה: בקשה | שליטה על הגופנים בוורד
@מניין העלה קוד לעיצוב פיסקאות ממורכזות כטור בודד בוורד,
הקוד הזה בנוי על בסיס מה שהוא עשה שם,Sub טור_אחד_שאר_המסמך() Dim Alerts Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True End Subאמנם כאשר יש כמה כותרות רצופות יהיה מעבר מקטע ביניהם ודו"ק.
-
@מניין מה הבעיה בזה? אצלי עובד מצוין.
אפשר לנסות האם זה פותר את הבעיה שלךDim Alerts Alerts = Application.DisplayAlerts -
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין מה הבעיה בזה? אצלי עובד מצוין.
אפשר לנסות האם זה פותר את הבעיה שלךDim Alerts Alerts = Application.DisplayAlertsניהיה לי עכשיו הבעיה הזאת
-
@מניין כבר כתבתי לעיל שזה בנוי על שלך, סה"כ מחקתי כמה דברים מיותרים שהשתרבבו במהלך הקלטת המאקרו, וכן עשיתי לולאה שתחזור על כל המסמך וללא הודעה של וורד על החיפוש.
לגבי העניין של שתי פסקאות ברצף אפשר ג"כ להוסיף את הקוד שהבאת לעילSelection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
לתוך הקוד הנוכחי.
-
מ מאקרו התייחס לנושא זה ב
-
מ מניין התייחס לנושא זה ב
-
@מניין כבר כתבתי לעיל שזה בנוי על שלך, סה"כ מחקתי כמה דברים מיותרים שהשתרבבו במהלך הקלטת המאקרו, וכן עשיתי לולאה שתחזור על כל המסמך וללא הודעה של וורד על החיפוש.
לגבי העניין של שתי פסקאות ברצף אפשר ג"כ להוסיף את הקוד שהבאת לעילSelection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
לתוך הקוד הנוכחי.
-
תגובה: בקשה | שליטה על הגופנים בוורד
@מניין העלה קוד לעיצוב פיסקאות ממורכזות כטור בודד בוורד,
הקוד הזה בנוי על בסיס מה שהוא עשה שם,Sub טור_אחד_שאר_המסמך() Dim Alerts Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True End Subאמנם כאשר יש כמה כותרות רצופות יהיה מעבר מקטע ביניהם ודו"ק.
-
ה האדם החושב התייחס לנושא זה ב
-
מ מניין התייחס לנושא זה ב
-
ש ששמעון התייחס לנושא זה ב
-
מ מניין התייחס לנושא זה ב
-
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
.SpaceBeforeAuto = False .SpaceAfterAuto = Falseאני לא מבין מדוע זה השתרבב לך לתוך הקוד, לכאורה אתה לא רוצה להגביל את החיפוש רק לפיסקאות שלא הוגדרו עם מרווח אוטומטי לפני ואחרי הפיסקה, אלא לכל פיסקה שממורכזת.
-
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
.SpaceBeforeAuto = False .SpaceAfterAuto = Falseאני לא מבין מדוע זה השתרבב לך לתוך הקוד, לכאורה אתה לא רוצה להגביל את החיפוש רק לפיסקאות שלא הוגדרו עם מרווח אוטומטי לפני ואחרי הפיסקה, אלא לכל פיסקה שממורכזת.
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
.SpaceBeforeAuto = False .SpaceAfterAuto = Falseאני לא מבין מדוע זה השתרבב לך לתוך הקוד, לכאורה אתה לא רוצה להגביל את החיפוש רק לפיסקאות שלא הוגדרו עם מרווח אוטומטי לפני ואחרי הפיסקה, אלא לכל פיסקה שממורכזת.
עשיתי את זה דרך הקלטה אני לא יודע איך זה נכנס, בכל אופן לא ראיתי שזה עשה לי בעיות וזה עובד מצויין, ותודה רבה לך הכל בזכותך, ודרך אגב רציתי לשאול אותך איך עושים את הקוד שלך שלא יחזור על כל המסמך רק על הפסקא הראשונה, כי לפעמים רוצים שזה יעשה רק על פסקא אחת וזה יכול לשבש את שאר המסמך, וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.
-
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
.SpaceBeforeAuto = False .SpaceAfterAuto = Falseאני לא מבין מדוע זה השתרבב לך לתוך הקוד, לכאורה אתה לא רוצה להגביל את החיפוש רק לפיסקאות שלא הוגדרו עם מרווח אוטומטי לפני ואחרי הפיסקה, אלא לכל פיסקה שממורכזת.
עשיתי את זה דרך הקלטה אני לא יודע איך זה נכנס, בכל אופן לא ראיתי שזה עשה לי בעיות וזה עובד מצויין, ותודה רבה לך הכל בזכותך, ודרך אגב רציתי לשאול אותך איך עושים את הקוד שלך שלא יחזור על כל המסמך רק על הפסקא הראשונה, כי לפעמים רוצים שזה יעשה רק על פסקא אחת וזה יכול לשבש את שאר המסמך, וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.
-
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
.SpaceBeforeAuto = False .SpaceAfterAuto = Falseאני לא מבין מדוע זה השתרבב לך לתוך הקוד, לכאורה אתה לא רוצה להגביל את החיפוש רק לפיסקאות שלא הוגדרו עם מרווח אוטומטי לפני ואחרי הפיסקה, אלא לכל פיסקה שממורכזת.
עשיתי את זה דרך הקלטה אני לא יודע איך זה נכנס, בכל אופן לא ראיתי שזה עשה לי בעיות וזה עובד מצויין, ותודה רבה לך הכל בזכותך, ודרך אגב רציתי לשאול אותך איך עושים את הקוד שלך שלא יחזור על כל המסמך רק על הפסקא הראשונה, כי לפעמים רוצים שזה יעשה רק על פסקא אחת וזה יכול לשבש את שאר המסמך, וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.
-
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.
כל הרעיון של הקוד הזה התחיל בגלל שחיפשת דרך שלא ישאל כלום...
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.
כל הרעיון של הקוד הזה התחיל בגלל שחיפשת דרך שלא ישאל כלום...
בעיקר רציתי שיעבור על כל המסמך בפעם אחת, ולא ללחוץ הרבה פעמים על כל הסימנים של המסמך.
וגם שמתוך ניסיון היום שעבדתי על מסמך שכבר היה מעוצב עד הסוף, ורציתי להכניס עוד סימן, ובגלל שהמאקרו עבר שוב על הכל, לכן בסימן הראשון זה זז טיפה למטה ושיבש אותו עמוד, ולכן למדתי שצריך גם אפשרות בחירה לפיסקא אחת לאפשרות שעושים את זה אחרי העיצוב שלא ישבש כלום, ולכן גם מחקתי את הקפיצה לראש המסמך, כי בדרך כלל העמוד הראשון הוא שער, ויש שם מרכוזים, וזה מכניס שם מעברים מיותרים ומשבש את זה. -
@מניין כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
וגם עם אפשרות לשלב יחד על ידי שאלה אם להמשיך לכל המסמך או רק על פסקא אחת.
כל הרעיון של הקוד הזה התחיל בגלל שחיפשת דרך שלא ישאל כלום...
-
@מניין עובד מעולה חוץ מהבעיה שהזכרת לגבי פסקה ראשונה, בעז"ה אעלה קוד עם תיקון לזה.
לגבי פיסקאות בעמוד השער וכו' אפשר לעשות שהמאקרו יחפש פיסקה לפי סגנון מסויים (אולי כל הסגנונות שמתחילים ב- כותרת...)@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין עובד מעולה חוץ מהבעיה שהזכרת לגבי פסקה ראשונה, בעז"ה אעלה קוד עם תיקון לזה.
לגבי פיסקאות בעמוד השער וכו' אפשר לעשות שהמאקרו יחפש פיסקה לפי סגנון מסויים (אולי כל הסגנונות שמתחילים ב- כותרת...)לפי סגנון מסויים לא כדאי, אבל אם יש אפשרות כל מה שמתחיל ב- כותרת זה יהיה מושלם מאוד, כי מי שירצה להוציא מהכלל כותרת מסויימת [כגון כותרות משניות באמצע הפרק], יוכל לשנות את השם שלא יתחיל ב-כותרת וזה יצא אוטומטית מהכלל.
-
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
@מניין עובד מעולה חוץ מהבעיה שהזכרת לגבי פסקה ראשונה, בעז"ה אעלה קוד עם תיקון לזה.
לגבי פיסקאות בעמוד השער וכו' אפשר לעשות שהמאקרו יחפש פיסקה לפי סגנון מסויים (אולי כל הסגנונות שמתחילים ב- כותרת...)לפי סגנון מסויים לא כדאי, אבל אם יש אפשרות כל מה שמתחיל ב- כותרת זה יהיה מושלם מאוד, כי מי שירצה להוציא מהכלל כותרת מסויימת [כגון כותרות משניות באמצע הפרק], יוכל לשנות את השם שלא יתחיל ב-כותרת וזה יצא אוטומטית מהכלל.
@מאקרו כתב במדריך | עיצוב כל הפיסקאות הממורכזות לבעלות טור בודד:
אפשר לעשות שהמאקרו יחפש פיסקה לפי סגנון מסויים (אולי כל הסגנונות שמתחילים ב- כותרת...)
לאחר מחשבה ראיתי שלאופציה זו צריך לשנות את כל הקוד לצורה אחרת, ולכן אם רוצים להחריג כותרות משנה באמצע פרק צריך לעצב אותם עם יישור לימין לפני הפעלת המאקרו.
-
ד דאנציג התייחס לנושא זה ב
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}