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

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

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

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

יש כאן בפורום כאלו שהכינו מאקרואים כאלו ומוכרים אותם.
הכנתי מאקרו כזה, אך כשלחצתי 'הפעל', כתב לי שהפקודות אינן זמינים כי האובייקט ריק.
 
  • הוסף לסימניות
  • #7
  • הוסף לסימניות
  • #8
תוכלו להעלות לכאן את הקוד של המאקרו...
 
  • הוסף לסימניות
  • #9
דחוף, דחוף,
יש לי ספר שכל המראה מקומות נמצאים בהערות שוליים, אני צריך פקודת מאקרו שתהפוך את הערות השוליים לטקסט בתוך סוגריים
 
  • הוסף לסימניות
  • #10
דחוף, דחוף,
יש לי ספר שכל המראה מקומות נמצאים בהערות שוליים, אני צריך פקודת מאקרו שתהפוך את הערות השוליים לטקסט בתוך סוגריים
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
 

פרוגבוט

תוכן שיווקי
פרסומת

פוסטים חדשים שאולי לא קראת....

הצטרפות לניוזלטר

איזה כיף שהצטרפתם לניוזלטר שלנו!

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

לוח מודעות

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק כה

אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
נקרא  2  פעמים
למעלה