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

[יוסף123]

מצרף מאקרו לתיקון כתיב חסר,
הוא מחולק לשתי פקודות בגלל שהוא ארוך מידי
‏‏מאקרו לתיקון כתיב חסר סיוון תשפג.docm

המאקרו גם מחליף כל גרשיים כפולים לגרש בודד מלבד באמצע מילה.

[pcinfogmach]

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

המאקרו גם מחליף כל גרשיים כפולים לגרש

למה?

[pcinfogmach]

@menajemmendel
הוא לא אמור למחוק את שאר הטאבים כי הוא מוחק רק טאב שמגיע מיד אחרי מעבר שורה ידני.
בדקת את זה בגירסה האחרונה של התוסף?
אם אתה לא אוהב את הרעיון של מעבר שורה ידני אתה יכול להסויף לפניו רווח של אפס ChrW(8203) כסימן

[menajemmendel]

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

@menajemmendel
הוא לא אמור למחוק את שאר הטאבים כי הוא מוחק רק טאב שמגיע מיד אחרי מעבר שורה ידני.
בדקת את זה בגירסה האחרונה של התוסף?
אם אתה לא אוהב את הרעיון של מעבר שורה ידני אתה יכול להסויף לפניו רווח של אפס ChrW(8203) כסימן

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

  With para
        .ParagraphFormat.TabStops.ClearAll
            .ParagraphFormat.TabStops.Add Position:=middlePosition, Alignment:=wdAlignTabCenter
'                If .Previous.Text = vbVerticalTab & vbTab Then .Previous.Delete Count:=2
                     If .Previous.Text = vbVerticalTab Then .Previous.Delete
                .InsertBefore vbVerticalTab & vbTab
        End With

אתה רואה בשורה 2 CLEARALL

[pcinfogmach]

@menajemmendel
אה..
לא אין לי פתרון

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

[יוסף123]

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

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

המאקרו גם מחליף כל גרשיים כפולים לגרש

למה?

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

[menajemmendel]

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

ובשיטה השנייה של שלמה מימות צריך לשנות את הטאב ברירת המחדל לאפס

מה זה, לא הבנתי איך זה עוזר, אפשר פירוט בבקשה?

[דאנציג]

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

אפשר פירוט בבקשה

באופיס 2016 ומעלה, שכאשר בוחרים 'בזר שורות' השורה האחרונה נמתחת על פני כל השורה (כאשר יש שני מילים ומעלה), וכאשר עושים טאב בסוף השורה, יש באג בוורד שפשוט ממרכז את השורה אחרונה, אך היות והטאב חלק מהשורה, המילים אינם בדיוק באמצע, אלא מוזחים מעט ימינה, וכדי שהם יהיו כמה שיותר מדויק באמצע, משנים את גודל ה'טאב' שיהיה מוגדר על הגודל הקטן ביותר, כך שהמילים יהיו כמה שיותר באמצע.
יש לציין ששיטה זו עובדת נפלא גם בהערות שוליים. (יש לציין שגם התוסף של @pcinfogmach עושה זאת בהערות שוליים).

[pcinfogmach]

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

(יש לציין שגם התוסף של @pcinfogmach עושה זאת בהערות שוליים).

בגירסה הנוכחית כבר לא השתמשתי בשיטה זו גם בהערות שוליים

[דאנציג]

@pcinfogmach
ראיתי, אבל ראיתי שזה עובד (וגם חלון) בהערות שוליים (בשונה מהגירסה של ניקיוזר), אתה פשוט אלוף!!!
אבל, בתיבת טקסט שניהם לא עובדים...

[pcinfogmach]

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

(וגם חלון) בהערות שוליים (בשונה מהגירסה של ניקיוזר), אתה פשוט אלוף!!!

את החלק הזה של הקוד גם קיבלתי מניק יוזר

[pcinfogmach]

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

אבל, בתיבת טקסט שניהם לא עובדים...

ושל שלמה מימות כן?

[דאנציג]

@pcinfogmach כן

[pcinfogmach]

חיפוש והחלפה באבני בניין
חיפוש והחלפה עם אבני בניין.dotm

[mfmf]

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

[שלל]

@דאנציג יכלת גם להגדיר לזה קיצור מקשים מותאם אישית... לשם הידע..

[ASDF1345]

מצורף מסמך שמכיל מספר פקודות מאקרו: א. הפניה מקושרת ב. אינדקס ג. פקודות שקשורות לתצוגת טויטה
עריכה: מצורף קובץ יותר מעודכן מאקרו הפניה מקושרת אינדקס תצוגת טויטה.dotm

[pcinfogmach]

@ASDF1345
מומלץ לציין מה בדיוק השתנה בעדכון

[ASDF1345]

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

[ASDF1345]

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

Sub הוספת_מעבר_עמוד_לפי_סגנון_כל_המסמך()
'
' הוספת_מעבר_עמוד_לפי_סגנון_כל_המסמך Macro
'
'

Application.ScreenUpdating = False

Selection.Find.ClearFormatting
SIGNON = Selection.Style

Dim my_undo As Object
Set my_undo = Application.UndoRecord
my_undo.StartCustomRecord ("הוספת מעבר עמוד לפי סגנון")
On Error GoTo ending

Dim rng, oRange As Range
Set rng = Selection.Range

Selection.WholeStory
Set oRange = Selection.Range
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "#^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
start:
With Selection.Find
    .ClearFormatting
        .Text = "#"
        .Style = SIGNON
        .Forward = True
        .Wrap = wdFindContinue
        Selection.Find.Execute
    
    If Not Selection.Range.InRange(oRange) Then GoTo ext
    If .Found = True Then
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.InsertBreak Type:=0
    
GoTo start
    End If
End With


ext:
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With


rng.Select

ending:
my_undo.EndCustomRecord

Application.ScreenUpdating = True

End Sub