הפיכת טקסט רגיל להערות שוליים

הנושא בפורום 'פורום תוכנות מייקרוסופט אופיס' פורסם ע"י אחד פלוס, ‏5/2/15.

  1. אחד פלוס

    אחד פלוס משתמש מקצוען פיתוח / אפיון / עיצוב אתרים עיצוב גרפי

    הצטרף:
    ‏28/7/10
    הודעות:
    2,056
    לייקים:
    12
    נקודות:
    64
    שלום
    האם יש דרך להפוך טקסט רגיל להערות שוליים

    הסיפור מתחיל קיבלתי חומר להקליד כולל הערות שוליים למעו הנוחיות הקלדתי את הערות שוליים בקובץ נפרד

    עכשיו אני רוצה להחזיר את הערות שוליים למקור , האם יש דרך לעשות את זה ?
    [העתק הדבק רגיל לא עובד]
     
  2. eliezer

    eliezer עימוד ספרים מעמד ספרים פיתוח / אפיון / עיצוב אתרים עיצוב גרפי

    הצטרף:
    ‏7/1/09
    הודעות:
    5,903
    לייקים:
    66
    נקודות:
    89
    מיקום:
    מבוא חורון
    חפש מאקרו או הזמן כזה אצל המומחים בדבר
    או אם לא תמצא אוכל לכתוב לך כזה באינדזיין, ואז תעתיק בחזרה לוורד אם יש צורך
     
  3. אחד פלוס

    אחד פלוס משתמש מקצוען פיתוח / אפיון / עיצוב אתרים עיצוב גרפי

    הצטרף:
    ‏28/7/10
    הודעות:
    2,056
    לייקים:
    12
    נקודות:
    64
    מצאתי מאקרו

    ========================
    Sub intext2footnote()
    Dim vLastSectionI, vField, i, J
    J = ActiveDocument.Sections.Count
    For i = 1 To ActiveDocument.Sections.Count
    If i = J Then Exit Sub
    Set myRange = ActiveDocument.Sections(i).Range
    For Each vField In myRange.Fields
    Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:= _
    "ADDIN"
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "{ }"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    With ActiveDocument.Bookmarks
    .Add Range:=Selection.Range, Name:="temp"
    .DefaultSorting = wdSortByName
    .ShowHidden = False
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:=""
    Selection.Paste
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "{ }"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.GoTo What:=wdGoToBookmark, Name:="temp"
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "{ }"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "{ }"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    ActiveDocument.Bookmarks("temp").Delete
    With ActiveDocument.Bookmarks
    .DefaultSorting = wdSortByName
    .ShowHidden = False
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next vField
    Next i
    End Sub
    =======================================
     
  4. moishy

    moishy משתמש מקצוען

    הצטרף:
    ‏26/12/11
    הודעות:
    1,453
    לייקים:
    134
    נקודות:
    74
    עיסוק:
    יועץ נישואין, מדריך חתנים
    מיקום:
    רכסים
    מחריד מזעזע ולגמרי לא עושה מה שביקשת.
     
  5. בר בי רב

    בר בי רב משתמש פעיל כתיבה ספרותית

    הצטרף:
    ‏8/1/16
    הודעות:
    164
    לייקים:
    39
    נקודות:
    29
    אולי אפשר קצת תמיכה והסבר על המאקרו הזה, היכן מניחים את ההערות, מהו הקישור בין הטקסט להערות וכדו'.