אופיס 365 החלפת הערות שוליים לסוגריים

[בן מיכאל]

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

 

[tkh]

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

 

[בן מיכאל]

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

איך עושים הקלטת מאקרו?
עוד משהו, אחרי שאני עושה הקלטה כזו, עלי לתת לו את ההוראה הנ"ל שוב ושוב?

 

[tkh]

בסרגל 'מפתחים'
(אם הסרגל לא מוצג, צריך להכנס ל-קובץ>אפשרויות>התאמה אישית של רצועת הכלים, ולסמן ב-V על השורה של 'מפתחים' בטור השמאלי).
יש כפתור 'הקלט מאקרו'
לוחצים עליו, עושים רצף פעולות:
חפש הערת שוליים (CTRL+G), 'סימון' של כל ההערה (אם כל ההערות רק פיסקה אחת אפשר CTRL+SHIFT+חץ למטה, אחרת יותר מסובך)
גזור, חזור לטקט עליון, מחק את ההפניה להערה, פתח סוגריים, הדבק, סגור סוגריים
אח"כ שומרים את המאקרו (באותו כפתור, עצור הקלטה)
אח"כ אפשר לעשות מקש קיצור למאקרו, ואז כל לחיצה על המקש קיצור תפעיל את רצף הפעולות הנ"ל.

יש כאן בפורום כאלו שהכינו מאקרואים כאלו ומוכרים אותם.

 

[בן מיכאל]

בסרגל 'מפתחים'
(אם הסרגל לא מוצג, צריך להכנס ל-קובץ>אפשרויות>התאמה אישית של רצועת הכלים, ולסמן ב-V על השורה של 'מפתחים' בטור השמאלי).
יש כפתור 'הקלט מאקרו'
לוחצים עליו, עושים רצף פעולות:
חפש הערת שוליים (CTRL+G), 'סימון' של כל ההערה (אם כל ההערות רק פיסקה אחת אפשר CTRL+SHIFT+חץ למטה, אחרת יותר מסובך)
גזור, חזור לטקט עליון, מחק את ההפניה להערה, פתח סוגריים, הדבק, סגור סוגריים
אח"כ שומרים את המאקרו (באותו כפתור, עצור הקלטה)
אח"כ אפשר לעשות מקש קיצור למאקרו, ואז כל לחיצה על המקש קיצור תפעיל את רצף הפעולות הנ"ל.

יש כאן בפורום כאלו שהכינו מאקרואים כאלו ומוכרים אותם.

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

 

[בן מיכאל]

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

בסרגל 'מפתחים'
(אם הסרגל לא מוצג, צריך להכנס ל-קובץ>אפשרויות>התאמה אישית של רצועת הכלים, ולסמן ב-V על השורה של 'מפתחים' בטור השמאלי).
יש כפתור 'הקלט מאקרו'
לוחצים עליו, עושים רצף פעולות:
חפש הערת שוליים (CTRL+G), 'סימון' של כל ההערה (אם כל ההערות רק פיסקה אחת אפשר CTRL+SHIFT+חץ למטה, אחרת יותר מסובך)
גזור, חזור לטקט עליון, מחק את ההפניה להערה, פתח סוגריים, הדבק, סגור סוגריים
אח"כ שומרים את המאקרו (באותו כפתור, עצור הקלטה)
אח"כ אפשר לעשות מקש קיצור למאקרו, ואז כל לחיצה על המקש קיצור תפעיל את רצף הפעולות הנ"ל.

יש כאן בפורום כאלו שהכינו מאקרואים כאלו ומוכרים אותם.

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

 

[בן מיכאל]

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

מישהו יודע הסבר? תודה רבה.

 

[דוד אברבנאל]

תוכלו להעלות לכאן את הקוד של המאקרו...

 

[מיזאן]

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

 

[בן מיכאל]

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

Sub FootnotesToMain()
Dim Adjust As Boolean, myRange As Range
Dim I As Integer, X As Integer

Application.ScreenUpdating = False
Adjust = Options.PasteAdjustWordSpacing: Options.PasteAdjustWordSpacing = False
X = ActiveDocument.Footnotes.Count
For I = 1 To X
StatusBar = I & ":" & X
Set myRange = ActiveDocument.Footnotes(1).Range
With myRange
If InStr(myRange, Chr(13)) > 0 Then _
.Find.Execute findText:=Chr(13), ReplaceWith:=Chr(9), _
Wrap:=wdFindStop, Replace:=wdReplaceAll
.MoveStart Count:=-1: If .Characters(1) = Chr(2) Then .MoveStart Count:=1
.MoveStart Count:=Len(myRange) - Len(LTrim(myRange))
.MoveEnd Count:=Len(RTrim(myRange)) - Len(myRange)
.Copy
End With
With ActiveDocument.Footnotes(1).Reference
.Paste: .InsertBefore " (": .InsertAfter ")"
Set DupFont1 = .Characters(2).Font.Duplicate
Set DupFont2 = .Characters.Last.Font.Duplicate
.Characters.Last.Font = DupFont1: .Characters.First.Font = DupFont2
.MoveStart Count:=1: .Font.SizeBi = 8
End With
Next I
Application.ScreenUpdating = True: Options.PasteAdjustWordSpacing = Adjust
End Sub