@גיבור @דאנציג @u88
מצורף מאקרו עם השהיה של 20 שניות תבדקו האם הבעיה ממשיכה

Sub תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה()
'
' תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה Macro
'
'
On Error GoTo A

    Dim AppPid As Long
    AppPid = GetFirstPid("Responsa")
    AppActivate AppPid
GoTo B

A:
        ChDir "C:\Program Files (x86)\ResponsaCD28"
        AppPid = Shell("RESPONSA.exe", 1)
B:
    Application.OnTime When:=Now + _
      TimeValue("00:00:20"), _
      Name:="תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2"

End Sub
Sub תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2()
'
' תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2 Macro
'
'
    SendKeys "{F4}", True
    SendKeys "^V", True 'הדבק
    SendKeys "{ENTER}", True 'בצע חיפוש

End Sub
Private Function GetFirstPid(applicationName As String) As Long
'Returns the FIRST PID of an application by it's name
    Dim services As Object, processes As Object, process As Object
    Dim resultPid As Long
 
    Set services = GetObject("winmgmts:\\.\root\CIMV2")
    Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
 
    For Each process In processes
       resultPid = process.ProcessID
       Exit For ' Just the first ID please :)
    Next
    ' Garbage cleanup
    Set processes = Nothing
    Set services = Nothing
    
    GetFirstPid = resultPid
End Function

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

@דאנציג
תבדוק טוב שהגדרת בבר אילן שהכפתור F4 יפתח את חלון החיפוש, וכאשר אתה לוחץ ידנית בבר אילן על F4 הוא פותח את החלון, ותעדכן אותי האם המאקרו עובד או לא.

@u88

הסבר המאקרו שכתבתי:
שורה 15 - 1 פקודה לעבור לחלון של הבר אילן (במידה והבר אילן פתוח) או לפתוח את הבר אילן (במידה והבר אילן סגור).
שורה 16 הוראה למחשב ל'ללחוץ' בבר אילן על הכפתור F4 ובכך לפתוח את חלון החיפוש (לפני הפעלת המאקרו צריך להגדיר בהגדרות קיצורי המקשים של הבר אילן שהכפתור F4 יפתח את חלון החיפוש).
שורה 17 - הוראה למחשב ל'הדביק' בבר אילן את הטקסט שנמצא ב'לוח' (שהועתק לפני כן).
שורה 18 - הוראה למחשב ל'ללחוץ' בבר אילן על הכפתור 'אנטר' ובכך להפעיל את החיפוש.

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

@u88
בבדיקה מהירה שערכתי בגירסא 25 זה עבד.

@דאנציג
אצלי זה עובד מצוין.
אצלך זה לא עובד לפתוח את התוכנה, או לשלוח הוראות בתוך התוכנה?

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

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

Sub תוכנת_בר_אילן_פתיחה_וחיפוש()
'
' תוכנת_בר_אילן_פתיחה_וחיפוש Macro
'
'
On Error GoTo A

    Dim AppPid As Long
    AppPid = GetFirstPid("Responsa")
    AppActivate AppPid
GoTo B
A:
        ChDir "C:\Program Files (x86)\ResponsaCD28"
        AppPid = Shell("RESPONSA.exe", 1)
B:
    SendKeys "{F4}", True
    SendKeys "^V", True 'הדבק
    SendKeys "{ENTER}", True 'בצע חיפוש
End Sub

Private Function GetFirstPid(applicationName As String) As Long
'Returns the FIRST PID of an application by it's name
    Dim services As Object, processes As Object, process As Object
    Dim resultPid As Long
 
    Set services = GetObject("winmgmts:\\.\root\CIMV2")
    Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
 
    For Each process In processes
       resultPid = process.ProcessID
       Exit For ' Just the first ID please :)
    Next
    ' Garbage cleanup
    Set processes = Nothing
    Set services = Nothing
    
    GetFirstPid = resultPid
End Function

מקור: https://tchumim.com/post/153582
אפשר לשדרג את המאקרו בקלות, גם לשליחת שם ספר לחיפוש ברשימת הספרים בבר אילן, וכן לשליחת טקסט לחיפוש באוצר החכמה.

וכן אפשר ליצור על ידי מאקרו זה פקודות מאקרו נוספות שנותנות הוראות לתוכנת מוזיקה לעצור להמשיך להחליף שיר וכד' וכך יתאפשר לשמוע שיעור או שיר תוך כדי כתיבה לוורד ונתינת הוראות לתוכנת המוזיקה לעצור להמשיך וכד' בלי לעבור לתוכנת המזיקה ולחזור בחזרה לוורד.

מצורף מאקרו למעבר לתוכנת מוזיקה VLC שליחת הפקודה F4 וחזרה לוורד (התוכנה VLC יש בה קיצורי דרך רבים ואפשר בקלות ליצור הרבה פקודות מאקרו בוורד שיתנו הוראות לתוכנה).

AppActivate "נגן המדיה VLC", True
    SendKeys "{F4}", True

AppActivate "WORD"

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

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

להורדה : הפניות-מקושרות-בקלות.dotm
מקור והסבר מפורט : https://mitmachim.top/topic/80699/להורדה-הפניות-מקושרות-בקלות

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

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

הפניות באותו מסמך

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

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

הפניות ממסמך למסמך

יצירת הפניה מקושרת להערה במסמך אחר - העמדת הסמן במיקום בו רוצים לכתוב את ההפניה >> כתיבה מספר הערה במספרים או באותיות אליו רוצים להפנות במסמך אחר >>> הפעלת המאקרו 'הפניה להערה במסמך אחר' >> יפתח חלון שבו צריך לכתוב את שם המסמך המבוקש שאליו רוצים להפנות (המסמך צריך להיות פתוח) >> וזהו ....
תוספת - המאקרו עובד גם כאשר מספר הערה נבחר לפני הפעלת המאקרו.
תוספת 2 - אפשר להשתמש במאקרו זה גם ליצירת הערה באותו מסמך על ידי השארת חלון של שם המסמך ריק (נוח לשימוש למעונין ליצור קיצור דרך אחד לשני האפשרויות).
יצירת הפניה מקושרת לסימניה במסמך אחר:
יצירת סימניה - העמדת הסמן במיקום אליו רוצים להפנות >> הפעלת המאקרו 'הפניה לסימניה'.
יצירת הפניה - העמדת הסמן במיקום בו רוצים לכתוב את ההפניה >> לחיצה על 'הדבק' >> וזהו ....

עדכון הפניות ממסמך למסמך

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

מעבר למיקום הפניה באותו מסמך ובמסמך אחר

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

תהנו !

נ.ב. חלק מפקודות המאקרו הם על בסיס רעיונות שפורסמו בפורום, ונעשה בהם עיבוד קל.
רעיונות לשדרוג (למומחים) - בחירת מסמך על ידי פתיחת חלון שמראה את המסמכים הפתוחים, אפשרות לעדכון הפניות מכמה מסמכים יחד, אפשרות לעדכן הפניות שלא מתחילות ב"_", מעבר למיקום ההפניה בכל המסמכים הפתוחים.

@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

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

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

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

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

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

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

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

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

Sub AutoOpen()
'פקודות שמופעלות אוטמטי בפתיחת הוורד
    WordSaver
End Sub
Sub WordSaver()
'פקודת שמירה חלק ראשון
    Application.OnTime When:=Now + _
      TimeValue("00:05:00"), _
      Name:="Saver"
End Sub
Sub Saver()
'פקודת שמירה חלק שני
'חלק הראשון במקרה שאין שגיאה כלומר מסמך שנשמר בעבר
  On Error Resume Next
    ActiveDocument.Save
    WordSaver
End Sub

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

Sub הערות_שולים_חלון_מתחת_להפניה()
'
' הערות_שולים_חלון_מתחת_להפניה Macro
'
'
'שאלת פתיחה
Dim interaction As VbMsgBoxResult
interaction = MsgBox("האם להפעיל את המאקרו?, לפני ההפעלה יש להעמיד את הסמן בהערת שולים לפני ההפניה להערות שולים", vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "הערות שולים - חלון מתחת להפניה")
 
Select Case interaction
    Case vbCancel
Exit Sub
    Case vbNo
Exit Sub
    Case vbYes
'הגדרת ביטול פעולה אחרונה פתיחה
Dim my_undo As Object
Set my_undo = Application.UndoRecord
my_undo.StartCustomRecord ("הערות שולים חלון מתחת ההפניה")
On Error GoTo ending

'קביעת מספר הערות שהמאקרו יעצב על ידי שאלה
Dim iterations As Integer
    
On Error Resume Next
iterations = InputBox("כתבו במספרים כמה הפניות להערת שולים המאקרו יעצב")
On Error GoTo 0
 
For i = 1 To iterations
    With para

'המאקרו עצמו
'חיפוש סימון הערת שולים
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^f"
        .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
'מעבר לאחר הסימון והרווח
    Selection.MoveRight Unit:=wdWord, Count:=1
'מחיקת הרווח
    Selection.TypeBackspace
'כתיבת הסימן שווה
    Selection.TypeText Text:="="
'בחירת תו אחורה
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
'הסתרת הטקסט - צביעה בצבע לבן
    With Selection.Font
        .Color = -603914241
    End With
'הרחבת הבחירה מילה אחורה
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
'העתקה
    Selection.Copy
'הזזת הסמן לפני ההפניה להערת שולים
    Selection.MoveLeft Unit:=wdWord, Count:=1
 'מעבר לסוף השורה
     Selection.EndKey Unit:=wdLine
 'הזזת החץ תו קדימה לא צריך כיון שהמעבר שורה אוטמטי נוסף בסוף השורה ומזיז את החץ קדימה
'     Selection.MoveRight Unit:=wdCharacter, Count:=1
'הוספת מעבר שורה ידני
    Selection.TypeText Text:=Chr(11)
'הדבקה
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
'הסתרת הטקסט - צביעה בצבע לבן
    With Selection.Font
        .Color = -603914241
    End With
'הזזת הסמן
    Selection.MoveRight Unit:=wdWord, Count:=1
    End With
'חזרה על המאקרו כפי מספר הפעמים שנקבע
Next i

'סיום הגדרת ביטול פעולה אחרונה
ending:
my_undo.EndCustomRecord

'סיום שאלה פתיחה האם להפעיל את המאקרו
End Select

End Sub

תודה מראש

@האדם-החושב
הקובץ 'עגונים' פגום והוא בכלל לא עולה