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

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

פוסט זה נמחק!

[מקלדת]

פוסט זה נמחק!

[דאנציג]

פוסט זה נמחק!

[מקלדת]

פוסט זה נמחק!

[דאנציג]

פוסט זה נמחק!

[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

[pcinfogmach]

@pcinfogmach

עיצוב ספרי קודש - PcInfoGmach.zip
גרסה מספר 3 עם הרבה עדכונים ושיפורים

כולל בתוכו עיצוב חלון והסרתו (שתי שיטות)
עיצוב מילה ראשונה והסרתו (שתי שיטות)
ועיצוב שורה אחרונה והסרתו (שתי שיטות) .

מוגדר כקובץ התקנה למחשב, יש לפתוח את הקובץ ולפעול לפי ההוראות.

לחזרה לתוכן העניינים לחץ כאן

[מניין]

@pcinfogmach מאקרו שמוסיף שדה למיספור אוטומטי עד 5 סדרות, ‏‏מספור אוטומטי 2.dotm
לעדכון לאחר שינויים יש ללחוץ קונטרול a לבחירת כל הטקסט, ואח"כ f9 לעדכון. [ניתן להוסיף עוד סדרות ללא הגבלה ע"י העתקת המאקרו ושינוי האות לאחר המילה SEQ, זה לא חייב להיות לפי סדר האותיות, רק כדי להחזיק ראש שלא יהיו כפילויות, כדאי שזה כן יהיה לפי סדר האותיות].

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

Spoiler

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

 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