שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

[מקלדת]

מאקרו שימושי מאוד לקלדנים שרוצים במהלך ההקלדה לסמן בסימון ברור ויעיל על מקרה שלא הובן כתב היד וכדו'
סימון באמצעות:
...?
בהצלחה
סימון-שגיאה-בטקסט.dotm

[מקלדת]

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

[בַּמְבַּלִיק]

פוסט זה נמחק!

[מקלדת]

פוסט זה נמחק!

[דאנציג]

פוסט זה נמחק!

[מקלדת]

פוסט זה נמחק!

[דאנציג]

פוסט זה נמחק!

[pcinfogmach]

פוסט זה נמחק!

[pcinfogmach]

פוסט זה נמחק!

[דאנציג]

@pcinfogmach
יש מאקרו לעשיית חלון, ומחיקתו בצורה הרבה יותר טובה שכתב מיודענו @NykUser כאן חלון וכאן מחיקה (בספויילרים, בקוד לחלון חסר הפתיח). מצורף כקובץ BAS
חלון ומחיקתו.bas
והנה גם בקובץ תבנית
תבנית חלון ומחיקתו.dotm

[pcinfogmach]

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

[mfmf]

פוסט זה נמחק!

[pcinfogmach]

פוסט זה נמחק!

[מניין]

@pcinfogmach מאקרו לעיצוב אוטומטי של אותיות ההערות שוליים למטה כפי המקובל ברוב ספרי קודש.‏‏עיצוב הערות שוליים.dotm
יש ארבעה לחצנים 1. עיצוב אותיות הערות שוליים [מחליף לאותיות + הדגשה + אותיות לא עיליות + מכניס נקודה לאחר האות]. 2. עיצוב כניסה תלויה הערות שוליים. 3. ביטול כניסה תלויה בהערות שוליים. 4. עיצוב מפריד הערות.
נ. ב. אפשר להשתמש עם מאקרו 2 רק לאחר החלת מאקרו 1.
אם מוסיפים הערות לאחר העיצוב, יש להחיל שוב את המאקרו [1 ואח"כ 2], וזה מסדר את הכל מחדש.
נוסף מקש חדש 'ביטול כניסה תלויה בהערות שוליים'.

[NykUser]

@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

@pcinfogmach
יש מאקרו לעשיית חלון, ומחיקתו בצורה הרבה יותר טובה שכתב מיודענו @NykUser כאן חלון וכאן מחיקה (בספויילרים, בקוד לחלון חסר הפתיח). מצורף כקובץ BAS
חלון ומחיקתו.bas
והנה גם בקובץ תבנית
תבנית חלון ומחיקתו.dotm

@pcinfogmach כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

איני יודע באיזה יישור שורה אחרונה המדבור, אני מצרף קוד לשורה אחרונה באמצע

Spoiler

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

וזהו הקוד למחקו

Spoiler

MyRange.find.Execute FindText:=Chr(11) & vbTab, ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll

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

[mfmf]

@NykUser תודה רבה!
איך מוסיפים את זה לפקודות המאקרו? אני לא רואה את שם המאקרו למשל וכדו', מוסיפים את זה בצורה הרגילה?
לחכות ל @דאנציג ?

[pcinfogmach]

@mfmf
תחכה כמה ימים וכבר נסדר את זה בעז"ה
בעיקרון כל מה שצריך לעשות זה להוסיף שורה כזו
Sub מירכוז_שורה_אחרונה()
ואז מיד אחריו להזין את הקוד

[pcinfogmach]

@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]

@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

[pcinfogmach]

@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