בקשת מידע | האם אפשר לחבר חזרה את הערות שוליים לגוף הטקסט למעלה

[308]

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

[menajemmendel]

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

[menajemmendel]

@308 הנה, (מכניס את הכיתוב במקום של הערה בתוך מפתחות {} אחרי זה אתה יכול למחוק אותם או לשנות אותם ע''י חפש והחלף)

Sub Macro9()

For Each ftnote In ActiveDocument.Footnotes
    ft_text = ftnote.Range.Text
    ftnote.Reference.Select
    Selection.Collapse
    Selection.TypeText Text:="{" & ft_text & "}"
    ftnote.Delete
Next

End Sub

[308]

@menajemmendel
תודה רבה
תבורך מפי עליון בכל מילי דמיטב
בדיוק מה שחפשתי זה חסך לי המון טרחה