שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.
-
@pcinfogmach
דאבל מאקרו של ידידינו @NykUser .
שילוב של כו"כ מאקרוים:- הקטנת והגדלת סוגריים על כל המסמך.
- עריכת הפניות מקושרות.
- עדכון הפניות מקושרות.
- מעבר בין מקטעים.
- המרת הפניות לתג.
מומלץ בחום!
או כפי שהעיד הנחתום על עיסתו...
@NykUser כתב בלהורדה | תוספים לוורד, הקטנת סוגריים, הכנסת הפניות בקלות, ובין שני קבצים, ועוד:הכלי להפניות שימושי במיוחד אלו שהתרגלו להשתמש בו אינם מבינים איך אפשר בלעדיו
-
מאקרו שימושי מאוד לקלדנים שרוצים במהלך ההקלדה לסמן בסימון ברור ויעיל על מקרה שלא הובן כתב היד וכדו'
סימון באמצעות:
...?
בהצלחה
סימון-שגיאה-בטקסט.dotm -
ועוד אחד שאני משתמש בו הרבה לתיקון שגיאות שלא נכנס בתיקון שגיאות אוטומטי הרגיל
טעויות הכוללים אותיות סופיות ועוד כמה שנפוצות הרבה מאוד בשעת הקלדה מהירה
תיקון-שגיאות-מנצפך-ועוד-שיבושים-נפוצים.dotm
בהצלחה
נ.ב. תודה רבה לדאנציג על העזרה בהכנת הפקודות -
פוסט זה נמחק!
-
פוסט זה נמחק!
-
@pcinfogmach
יש מאקרו לעשיית חלון, ומחיקתו בצורה הרבה יותר טובה שכתב מיודענו @NykUser כאן חלון וכאן מחיקה (בספויילרים, בקוד לחלון חסר הפתיח). מצורף כקובץ BAS
חלון ומחיקתו.bas
והנה גם בקובץ תבנית
תבנית חלון ומחיקתו.dotm -
פוסט זה נמחק!
-
@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
אפשר לשלב זאת יחד עם חלון או בלי, דאנציג כבר יסדר הדבר באופן נאה
-
@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