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

[eliezer]

מישהו העלה כאן מאקרו לזה, אך איני מוצאו, היש מי שיואיל להפנותי לזה?

תודה רבה!

 

[אלחנן אריאל]

מה זה המרת סוגריים להערות שוליים?

 

[eliezer]

מה זה המרת סוגריים להערות שוליים?

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

המחבר הקליד את כל ההערות בתוך הטקטס בסוגריים והאיר אותם בצהוב.

 

[אלחנן אריאל]

מסתבר כי כוונתך לאשכול הזה:
http://www.prog.co.il/showthread.php?t=19255&highlight=הערות+שוליים+סוגריים

 

[חשמל]

לי נראה שהכוונה דווקא לזה http://www.prog.co.il/showthread.php?t=22884&highlight=מאקרו+הערות

 

[eliezer]

מסתבר כי כוונתך לאשכול הזה:
http://www.prog.co.il/showthread.php?t=19255&highlight=הערות+שוליים+סוגריים

שם זה הפוך... ממיר הערות לסוגריים.

 

[גרפיקנער]

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

\(*\)

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

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

 

[גרפיקנער]

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

 

[Yisrael]

האם אתה צריך את זה דווקא בוורד או שההודעה של 'גרפיקנער' הספיקה לך?

 

[eliezer]

האם אתה צריך את זה דווקא בוורד או שההודעה של 'גרפיקנער' הספיקה לך?

בוורד...
תודה רבה.

 

[תלת]

כאן:
http://www.prog.co.il/showthread.php?t=62779

 

[Yisrael]

תנסה את זה:

With Selection
a: .Find.Execute FindText:="\(*\)", MatchWildcards:=True
If .Find.Found = True Then
If .Range.HighlightColorIndex = wdYellow Then
.Cut
.End = .start - 1
.Bookmarks.Add "a", Selection
.Footnotes.Add Selection.Range
.PasteAndFormat (wdFormatPlainText)
.GoTo What:=wdGoToBookmark, Name:="a"
ActiveDocument.Bookmarks("a").Delete
GoTo a
Else
GoTo a
End If
End If
End With

 

[eliezer]

תנסה את זה:

With Selection
a: .Find.Execute FindText:="\(*\)", MatchWildcards:=True
If .Find.Found = True Then
If .Range.HighlightColorIndex = wdYellow Then
.Cut
.End = .start - 1
.Bookmarks.Add "a", Selection
.Footnotes.Add Selection.Range
.PasteAndFormat (wdFormatPlainText)
.GoTo What:=wdGoToBookmark, Name:="a"
ActiveDocument.Bookmarks("a").Delete
GoTo a
Else
GoTo a
End If
End If
End With

אנסה,תודה רבה

 

[Yisrael]

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

Sub ParenthesisToFootnote()
Application.ScreenUpdating = False
again:
Selection.Find.ClearFormatting
If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True, Wrap:=wdFindStop) = True Then
    strt = 2: lent = Len(Selection.Text)
re:
     For i = strt To lent
        If Mid(Selection.Text, i, 1) = Chr(40) Then
        Selection.Extend Character:=Chr(41)
        strt = i + 1: lent = Len(Selection.Text)
        GoTo re
        End If
     Next
If Selection.Range.HighlightColorIndex = wdYellow Then
mRange = Right(Selection.Text, (Len(Selection.Text) - 1))
Selection.Delete
    ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:="", Text:=Left(mRange, (Len(mRange) - 1)) & "."
    If Selection.Previous.Text = " " Then Selection.Delete Unit:=wdCharacter, Count:=-1
End If
Selection.Move
GoTo again
End If
Application.ScreenUpdating = True
End Sub

 

[eliezer]

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

תודה רבה!


ניסתי שוב-
עבד מצויין.
תודה עצומה!!!

 

[Yisrael]

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

תודה רבה!


ניסתי שוב-
עבד מצויין.
תודה עצומה!!!

אז עכשיו הכל בסדר?

 

[eliezer]

אז עכשיו הכל בסדר?

לא....

זה עובד נפלא על חלק קטן, ב700 עמוד הכל נתקע סופית.

 

[Yisrael]

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

 

[בר בי רב]

@קרש, @Yisrael
במחילה שפורום זה ישן קצת
אם עדיין מותר לשאול, יש אפשרות שבמקום לתפוס סוגריים עגולות () זה יתפוס רק סוגריים מסולסלות {}?

 

[Yisrael]

בדיוק אותו דבר רק במקום

If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True,

תכתוב

If Selection.Find.Execute(findText:="\{*\}", MatchWildcards:=True,

ובמקום

        If Mid(Selection.Text, i, 1) = Chr(40) Then
        Selection.Extend Character:=Chr(41)

תכתוב

        If Mid(Selection.Text, i, 1) = Chr(123) Then
        Selection.Extend Character:=Chr(125)