שיתוף "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.
-
פוסט זה נמחק!
-
@pcinfogmach מאקרו לעיצוב אוטומטי של אותיות ההערות שוליים למטה כפי המקובל ברוב ספרי קודש.עיצוב הערות שוליים.dotm
יש ארבעה לחצנים 1. עיצוב אותיות הערות שוליים [מחליף לאותיות + הדגשה + אותיות לא עיליות + מכניס נקודה לאחר האות]. 2. עיצוב כניסה תלויה הערות שוליים. 3. ביטול כניסה תלויה בהערות שוליים. 4. עיצוב מפריד הערות.
נ. ב. אפשר להשתמש עם מאקרו 2 רק לאחר החלת מאקרו 1.
אם מוסיפים הערות לאחר העיצוב, יש להחיל שוב את המאקרו [1 ואח"כ 2], וזה מסדר את הכל מחדש.
נוסף מקש חדש 'ביטול כניסה תלויה בהערות שוליים'. -
-
@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
@pcinfogmach
יש מאקרו לעשיית חלון, ומחיקתו בצורה הרבה יותר טובה שכתב מיודענו @NykUser כאן חלון וכאן מחיקה (בספויילרים, בקוד לחלון חסר הפתיח). מצורף כקובץ BAS
חלון ומחיקתו.bas
והנה גם בקובץ תבנית
תבנית חלון ומחיקתו.dotm@pcinfogmach כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
@דאנציג
לגבי מאקרו להוספת חלון שימו לב - יש להשתמש בו לפני יישור שורה אחרונה לאמצע אחרת זה ישבש לכם את המסמך.איני יודע באיזה יישור שורה אחרונה המדבור, אני מצרף קוד לשורה אחרונה באמצע
cntr: With para: .Collapse: .MoveUntil cset:=Chr(13): .Select: End With Application.ScreenRefresh With Selection: .HomeKey Unit:=wdLine wdt = .PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2 With .Paragraphs.TabStops: .ClearAll: .Add Position:=(wdt), Alignment:=wdAlignTabCenter: End With If .Previous.Text <> Chr(11) And .Text <> Chr(13) Then .TypeText Text:=Chr(11) & vbTab End With End Select וזהו הקוד למחקו
MyRange.find.Execute FindText:=Chr(11) & vbTab, ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
אפשר לשלב זאת יחד עם חלון או בלי, דאנציג כבר יסדר הדבר באופן נאה
-
@mfmf
תחכה כמה ימים וכבר נסדר את זה בעז"ה
בעיקרון כל מה שצריך לעשות זה להוסיף שורה כזו
Sub מירכוז_שורה_אחרונה()
ואז מיד אחריו להזין את הקוד -
@NykUser כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
cntr:
With para: .Collapse: .MoveUntil cset:=Chr(13): .Select: End With
Application.ScreenRefresh
With Selection: .HomeKey Unit:=wdLine
wdt = .PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2
With .Paragraphs.TabStops: .ClearAll: .Add Position:=(wdt), Alignment:=wdAlignTabCenter: End With
If .Previous.Text <> Chr(11) And .Text <> Chr(13) Then .TypeText Text:=Chr(11) & vbTab
End With
End Selectהמאקרו לא עובד
end select without select case -
@pcinfogmach @mfmf
@NykUser
והנה הקוד שעובד (בהמשך בעז"ה אסדר את הקודים קצת יותר ויבוא הכול בתוך הפוסט באופן מסודרSub מרכוז_שורה_אחרונה_ניקיוזר() Set myRange = Selection.Range For i = 1 To myRange.Paragraphs.Count Set para = myRange.Paragraphs(i).Range If Not myRange.Paragraphs(i).Alignment = wdAlignParagraphCenter = False Then GoTo nxt Select Case para.ComputeStatistics(wdStatisticLines) Case 1: GoTo nxt: 'Case 2: GoTo nxt Case Else cntr: With para: .Collapse: .MoveUntil cset:=Chr(13): .Select: End With Application.ScreenRefresh With Selection: .HomeKey Unit:=wdLine wdt = .PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2 With .Paragraphs.TabStops: .ClearAll: .Add Position:=(wdt), Alignment:=wdAlignTabCenter: End With If .Previous.Text <> Chr(11) And .Text <> Chr(13) Then .TypeText Text:=Chr(11) & vbTab End With End Select nxt: Next End Sub
-
@mfmf
@NykUser
והנה הקוד המלא עבור הסרת מרכוז שורה אחרונהSub הסרת_מרכוז_שורה_אחרונה_ניקיוזר() Set MyRange = Selection.Range MyRange.SetRange Selection.Paragraphs.First.Range.Start, Selection.Paragraphs.Last.Range.End MyRange.Find.Execute FindText:=Chr(11) & vbTab, ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll End Sub
-
-
עיצוב ספרי קודש - PcInfoGmach.zip
גרסה מספר 3 עם הרבה עדכונים ושיפוריםכולל בתוכו עיצוב חלון והסרתו (שתי שיטות)
עיצוב מילה ראשונה והסרתו (שתי שיטות)
ועיצוב שורה אחרונה והסרתו (שתי שיטות) .מוגדר כקובץ התקנה למחשב, יש לפתוח את הקובץ ולפעול לפי ההוראות.
-
@pcinfogmach מאקרו שמוסיף שדה למיספור אוטומטי עד 5 סדרות, מספור אוטומטי 2.dotm
לעדכון לאחר שינויים יש ללחוץ קונטרול a לבחירת כל הטקסט, ואח"כ f9 לעדכון. [ניתן להוסיף עוד סדרות ללא הגבלה ע"י העתקת המאקרו ושינוי האות לאחר המילה SEQ, זה לא חייב להיות לפי סדר האותיות, רק כדי להחזיק ראש שלא יהיו כפילויות, כדאי שזה כן יהיה לפי סדר האותיות].שימושי מאוד לספר עם סימנים רבים, ובכל סימן יש סעיפים, לסימנים בוחרים שדה a, ובתוך כל סימן מכניסים סדרה נפרדת לסעיפים, כגון בתוך סימן א כל סעיף מסומן עם סדרה b, וכן הלאה, והתועלת הגדולה שיש בזה הוא שאם רוצים להוסיף או למחוק סימנים או סעיפים באמצע, לא צריך לתקן ידני את הכל, כגון אם יש מאה סימנים, ורוצים להוסיף או למחוק בין סימן י לסימן יא, לא צריך לתקן כל סימן וסימן, רק לוחצים על קונטרול a לבחירת כל הטקסט, ולוחצים f9, והכל מתעדכן בפעם אחת.
נ.ב. למסמך מוכן, אפשר להוסיף את השדה על ידי החלף, ראה כאן.
עדכון: נוסף מקש חדש לעדכון אוטומטי של כל השדות.יש גם אפשרות להוסיף טקסט לפני המספור, כגון סימן וכדו', ע"י הוספת פקודה זו לתוך המאקרו, בתחילת המאקרו לפני השורה הראשונה, כתוב 'סימן ' [עם רווח] ואפשר להכניס במקום זה איזה מילה שרוצים 'פרק' או 'סעיף'.Selection.TypeText Text:="סימן "
וזה כל המאקרו כולל פקודה זו
Sub פרק() ' ' פרק Macro ' ' Selection.TypeText Text:="סימן " Application.Keyboard (1033) Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ a\* hebrew1", PreserveFormatting:=True End Sub -
-
@pcinfogmach
מאקרו חיפוש והחלפה פרטניים
לפעמים נוצר צורך לעשות חיפוש והחלפה באופן פרטני עבור מספר מופעים רבים מאקרו זה נועד להקל על המלאכה
לדוגמא: אם אני רוצה לחפש י"א שהוא גם משמש כסימן י"א וגם משמש כיש אומרים. אפשר כמובן להשתמש בחיפוש והחלפה רגילים ולעבור אחד אחד ולהחליט מה להלחיף ומה לא -
המאקרו הנ"ל פשוט יחסוך לכם זמן והתעסקות יתר ומתוכנת באופן שתוכלו לעבור על כל הראשי תיבות (או כל דבר אחר שתבחרו) במהירות וביעילות - ולהחליט בקלות מה להחליף ומה לא.עריכה: גירסה 2 (עם הרבה שיפורים ושכלולים - פרטים בתוך המסמך).
עריכה: גירסה 3 (שיפורים קלים, נוסף חיפוש אחורה, קיצורי המקשים שונו למקש -cntrl)
לחזרה לתוכן העניינים לחץ כאן -
@מניין כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
@pcinfogmach מאקרו שמוסיף שדה למיספור אוטומטי עד 5 סדרות, מספור אוטומטי.dotm
לעדכון לאחר שינויים יש ללחוץ קונטרול a לבחירת כל הטקסט, ואח"כ f9 לעדכון. [ניתן להוסיף עוד סדרות ללא הגבלה ע"י העתקת המאקרו ושינוי האות לאחר המילה SEQ, זה לא חייב להיות לפי סדר האותיות, רק כדי להחזיק ראש שלא יהיו כפילויות, כדאי שזה כן יהיה לפי סדר האותיות].שימושי מאוד לספר עם סימנים רבים, ובכל סימן יש סעיפים, לסימנים בוחרים שדה a, ובתוך כל סימן מכניסים סדרה נפרדת לסעיפים, כגון בתוך סימן א כל סעיף מסומן עם סדרה b, וכן הלאה, והתועלת הגדולה שיש בזה הוא שאם רוצים להוסיף או למחוק סימנים או סעיפים באמצע, לא צריך לתקן ידני את הכל, כגון אם יש מאה סימנים, ורוצים להוסיף או למחוק בין סימן י לסימן יא, לא צריך לתקן כל סימן וסימן, רק לוחצים על קונטרול a לבחירת כל הטקסט, ולוחצים f9, והכל מתעדכן בפעם אחת.
נ.ב. למסמך מוכן, אפשר להוסיף את השדה על ידי החלף, ראה כאן.יש גם אפשרות להוסיף טקסט לפני המספור, כגון סימן וכדו', ע"י הוספת פקודה זו לתוך המאקרו, בתחילת המאקרו לפני השורה הראשונה, כתוב 'סימן ' [עם רווח] ואפשר להכניס במקום זה איזה מילה שרוצים 'פרק' או 'סעיף'.Selection.TypeText Text:="סימן "
וזה כל המאקרו כולל פקודה זו
Sub פרק() ' ' פרק Macro ' ' Selection.TypeText Text:="סימן " Application.Keyboard (1033) Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ a\* hebrew1", PreserveFormatting:=True End Sub כמדומני שהוא מוגבל בעברית קצת, לא?
[מהאות שצג הוא משתגע] -
-
@pcinfogmach גירסא חדשה למאקרו עיצוב טור אחד לפי מירכוז.dotm
מאקרו שמחזיר באופן אוטומטי פסקאות ממורכזות לטור בודד.
בעימוד של ספרי קודש מקובל לעצב את כל הספר בשני טורים, אולם הכותרת בראש כל סימן פרק וכדו' צריך שיהיה בטור בודד, והוא אחת מהמלאכות הקשות להחזיר באופן ידני לטור בודד בראש כל סימן וסימן, ועל זה נוצר המאקרו שלפנינו שמחזיר את הכל בלחיצה אחת, הפעולה היא יחסית פעולה פשוטה, אלא שכתוצאה מזה נוספים הרבה מעברי מקטע מיותרים, ובפרט אם חוזרים על הפעולה פעם נוספת, אכן בגירסה החדשה של המאקרו שלפנינו כל הבעיות באו על פתרונן, ויחד עם החלת המאקרו זה גם מנפה את כל המסמך מכל המעברים המיותרים, ואפשר לחזור על הפעולה כמה פעמים שרוצים והכל מסתדר באופן אוטומטי.
המאקרו כולל שני לחצנים, 1. מעצב טורים פיסקא אחת, 2. מעצב טורים כל המסמך.
הוראות הפעלה:- כדאי מאוד לעשות פעולה זו בשלב ראשוני של העימוד, בפרט לפני היישור טורים, ולפני עיצוב הכותרות עם מסגרות, [אם משתמשים עם המאקרו "רצף הערות", הסדר הוא קודם "רצף הערות" ורק אח"כ המאקרו דנן, היות שהמאקרו רצף הערות עובד לפי מעברי מקטע, וזה יחזיר את הכל לשני טורים].
- כדאי למחוק פסקאות מיותרות עם המאקרו שהובא כאן.
- צריך לעשות פריסת כל המסמך בשני טורים
- בשעת החלת המאקרו, צריך שכל הפסקאות שרוצים שיחזרו לטור בודד יהיו ממורכזות, וכל הפסקאות שרוצים שישארו בשני טורים לא יהיו ממורכזות, [אם כל הכותרות עובדים עם סגנונות אפשר לשנות את זה דרך הסגנונות באופן קל מאוד].
- למעבר עמוד לפני הכותרת, עיין כאן.
בהצלחה
-
@מניין אגדי! תודה רבה!!
יש מצב גם למאקרו דומה שיעשה מעבר עמוד לפי בחירת סגנון?
לדוגמא שיהיה אפשרות לבחור את סגנון 'פסקת רשימה' לדוגמה ויעבור אוטומטי בכל המסמך ויעשה לפניו מעבר עמוד.
בדרך כלל אנשים אוהבים שתחילת כל סימן יהיה בעמוד חדש, ובקובץ עם הרבה סימנים זה עבודת נמלים..
ייש"כ -
הנה למעבר עמוד
עובד כדלהלן:
עומדים על הטקסט עם הסגנון שרוצים שיהיה בראש העמוד, ולוחצים על הכפתור של המקארו הוא בודק פעם הבא שמופיע ומוסיף לפניו מעבר עמוד,
הוא לא עושה את זה אוטומטי על כל המסמך (אפשר לעשות אבל אין לי זמן לזה כרגע, אולי בעתיד בעז''ה) אבל בכל אופן תוך כמה שניות גומרים את כל המסמך, (הרי ספר אם 100 פרקים אומר שמספיק ללחוץ 100 פעמים, שכ''א חצי שניה)Sub סגנון_נוכחי_לתחילת_עמוד() ' מחפש סגנון Selection.Find.ClearFormatting SIGNON = Selection.Style With Selection.Find .Text = "" .Style = SIGNON .Forward = True .Wrap = wdFindAsk End With Selection.Find.Execute 'אחרי שמצא עובר אחוריו ועושה מעבר Selection.MoveUp Unit:=wdParagraph, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.InsertBreak Type:=wdSectionBreakNextPage Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub -
@mfmf כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
@מניין אגדי! תודה רבה!!
יש מצב גם למאקרו דומה שיעשה מעבר עמוד לפי בחירת סגנון?
לדוגמא שיהיה אפשרות לבחור את סגנון 'פסקת רשימה' לדוגמה ויעבור אוטומטי בכל המסמך ויעשה לפניו מעבר עמוד.
בדרך כלל אנשים אוהבים שתחילת כל סימן יהיה בעמוד חדש, ובקובץ עם הרבה סימנים זה עבודת נמלים..
ייש"כאת זה עושים בלחיצת מקש בהגדרות פיסקא של הסגנון המסויים, ובוחרים באפשרות מעבר עמוד לפני.
- לחיצת מקש ימין על הסגנון המבוקש, ובוחרים שינוי.
- בחלונית שנפתח בוחרים 'עיצוב' ואח"כ 'פיסקא'.
- בחר הלשונית מעברי עמוד ושורה, סמן מעבר עמוד לפני, אישור.
עכשיו ברגע אחד נוצר מעבר עמוד לאורך כל המסמך לפני הסגנון הזה שבחרת.
-
@mfmf יש שמעדיפים לא להשתמש בשיטה של ''מעבר עמוד לפני'' כי יותר קשה לטיפול אח''כ, כי לא משאירה שום רושם ב''הצג הכל'' (היינו הכפתור שמראה את כל הרווחים ומעברי שורה וכדו' CTRL+*) וזה גורם לקשיים בעתיד שפתאום יש מעברי עמוד ולא יודעים למה, אם שכחו שהגדירו את זה או שהביאו את הקובץ למישהו אחר, וכן אם רוצים להחריג חלק מהמקרים צריכים ליכנס להגדרות וכו', ואז אותו סגנון אינו שווה בכל מקום ושלל חסרונות שרק המנוסים סולדים מהם.
-
@menajemmendel כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:
@mfmf יש שמעדיפים לא להשתמש בשיטה של ''מעבר עמוד לפני'' כי יותר קשה לטיפול אח''כ, כי לא משאירה שום רושם ב''הצג הכל'' (היינו הכפתור שמראה את כל הרווחים ומעברי שורה וכדו' CTRL+*) וזה גורם לקשיים בעתיד שפתאום יש מעברי עמוד ולא יודעים למה, אם שכחו שהגדירו את זה או שהביאו את הקובץ למישהו אחר, וכן אם רוצים להחריג חלק מהמקרים צריכים ליכנס להגדרות וכו', ואז אותו סגנון אינו שווה בכל מקום ושלל חסרונות שרק המנוסים סולדים מהם.
אצלי רואים סימון במעבר עמוד לפני, שני ריבועים קטנים בשני הצדדים של תחילת הפסקא.
30/203