@הלי
Sub MoveFootnotesToBeginning()
Dim currentParagraph As Paragraph
Dim currentFootnote As Footnote
Dim footnoteText As String
For Each currentParagraph In ActiveDocument.StoryRanges(wdMainTextStory).Paragraphs
If currentParagraph.Range.Footnotes.Count > 0 Then
' Iterate backwards through footnotes to avoid issues after deletion
For i = currentParagraph.Range.Footnotes.Count To 1 Step -1
Set currentFootnote = currentParagraph.Range.Footnotes(i)
footnoteText = currentFootnote.Range.Text
currentParagraph.Range.InsertBefore footnoteText & " "
currentFootnote.Delete
Next i
End If
Next currentParagraph
End Sub
באדיבות הבינה המלאכותית, הזו.
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}