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

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

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

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

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

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

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

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

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

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

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

תהנו !

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

@ASDF1345
לצערי שלחת קובץ מאקרו עם 'באג' אני שולח שוב קובץ ללא ה'באג'
הערות שולים - מספור עד 1200 - חדש.dotm

@האדם-החושב
הכנתי גירסא חדשה לקובץ 'הערות-שולים-מספור-עד-1200' על בסיס הקובץ 'קוד VBA להמיר בוורד ממספרים לאותיות'
‏‏הערות שולים - מספור עברי_3.dotm
בגירסא החדשה אפשר להחליף מספור הערות שולים יותר מ1200 וכן אפשר לבחור האם רוצים לשון נקיה והאם רוצים להוסיף מרכאות.
כיון שמאקרו זו מבוסס על החלפת מספרים באותיות הוא מחליף את כל המספרים שיש במסמך, אם יש למישהו רעיון לשדרג את המאקרו שיחליף רק מספרים שהם בסגנון 'הפניה להערת שולים' שיעדכן אותי

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

@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

מצאתי מאקרו ששולח טקסט לחיפוש בתוכנת בר אילן, המאקרו מדביק את הטקסט האחרון שהועתק ללוח בחלון החיפוש של בר אילן ומפעיל את החיפוש.
לפני הפעלת המאקרו יש ליצור בבר אילן בהגדרות קיצורי הדרך שהכפתור 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"

המאקרו שלך מדהימים ! מקצועים ! אין מילים !!!!
יש לי קובץ מאקרו שנועד לפתור את הבעיה של מספור עברי בהערות שולים, כידוע יש באג בוורד שאינו יכול לייצג מספור עברי מעל שצ"ג, המאקרו שעשיתי הוא מאקרו פשוט שנעשה על ידי הקלטת מאקרו, ונראה לי שאפשר לשדרג אותו על ידי המאקרו שלך.
מצורף הקובץ של המאקרו שעשיתי הערות שולים - מספור עד 1200.dotm

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

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

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

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

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

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

אני רוצה לשדרג את הקובץ 'הערות שולים מספור עברי 3'
לצורך כך אני רוצה לדעת כיצד צריך להגדיר את המאקרו של 'קוד VBAלהמיר בוורד מספרים לאותיות' שיעבוד רק על מספרים שמוגדרים כסגנון 'הפניה להערת שולים'
מצורף הקוד המבוקש שצריך להגדירו

start:
With Selection.Find
    .ClearFormatting
    .Execute findText:="[0-9]{1,}", MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue
    If .Found = True Then
S = ""

MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _
"י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א")
V = Val(Selection)
Do While V > 0
If V = 15 Or V = 16 Then
S = S & "ט"
V = V - 9
End If
  For i = 0 To UBound(MyArray)
    If V >= MyArray(i) Then
      S = S & MyaArray(i)
      V = V - MyArray(i)
      Exit For
    End If
  Next i
Loop

Selection = S

GoTo start
    End If
End With
End Sub

וכן כיצד ניתן להגדיר לולאה שתעבוד עד שיגיע פקודת שגיאה 4198
תודה מראש

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

@pcinfogmach
במחשבה שניה מספור של רמות הוא לא מצוי ולא שווה להשקיע בו.

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

    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="סימניה_1"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With

מצורף המאקרו השני שמעביר את הסמן

    Selection.GoTo What:=wdGoToBookmark, Name:="סימניה_1"
    Selection.Find.ClearFormatting

מצורף התיקון שחשבתי לעשות, אמנם התיקון לא הצליח

If Err = 5101 Then
    Selection.GoTo What:=wdGoToBookmark, Name:="סימניה_1"
    Selection.Find.ClearFormatting
Exit Sub
End If

מי שיודע כיצד צריך לעשות את המאקרו השני שיכתוב זאת

באופן כללי - אפשר לשכלל את המאקרו הזה לשמירת כמה סוגי סימניות וכן לפתוח חלון שמאפשר בחירת סימניה להוספה או למעבר

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

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