אוצר:עורכים שואלים: הבדלים בין גרסאות בדף

קפיצה לניווט קפיצה לחיפוש

אוחזר מתוך "http://wiki.jewishbooks.org.il/mediawiki/wiki/אוצר:עורכים_שואלים"

@@ שורה 195: / שורה 195: @@
 ::אכן לזאת כוונתי, אלא שלא הבנתי איך עושים זאת, תודה רבה [[משתמש:להועיל לאחריני|להועיל לאחריני]] ([[שיחת משתמש:להועיל לאחריני|שיחה]]) 03:16, 21 ביוני 2022 (IDT)
 :::בוורד תחת "תצוגה" (view) יש כפתור מאקרו, יוצרים מאקרו חדש ופשוט מעתיקים הסקריפט לתוכו, ומפעילים המאקרו לעת הצורך [[משתמש:עכ&#34;פ|עכ&#34;פ]] ([[שיחת משתמש:עכ&#34;פ|שיחה]]) 04:20, 21 ביוני 2022 (IDT)
+::::מצ"ב הקוד, קרדיט ל{{א|מערכת}}
+ Sub foot2inline()
+ Dim oFeets As Footnotes
+ Dim oFoot As Footnote
+ Dim oRange As Range
+ Dim szFootNoteText As String
+ ' Grabs the collection of FootNotes
+ Set oFeets = Word.ActiveDocument.Footnotes
+ ' Iterates through each footnote
+ For Each oFoot In oFeets
+    szFootNoteText = oFoot.Range.Text
+    'Start search from beginning of document
+    Selection.HomeKey Unit:=wdStory
+    Selection.Find.ClearFormatting
+    With Selection.Find
+        .Text = "^f" ' Looks for all footnotes
+        .Forward = True
+        .Wrap = wdFindStop
+    End With
+    Selection.Find.Execute
+    ' Delete the footnote
+    oFoot.Delete
+    'Insert the footnote text
+    'Here you do whatever format tickles your fancy
+    Selection.Text = "<nowiki>{{הערה|" + szFootNoteText + "}}</nowiki>"
+    'CHANGE COLOR HERE. Color code is below.
+    'Selection.Font.Color = 6299648
+    'Disables undo to save memory on very large documents.
+    ActiveDocument.UndoClear
+    Next
+    End Sub
+::::[[משתמש:מושך בשבט|מושך בשבט]] ([[שיחת משתמש:מושך בשבט|שיחה]]) 13:42, 21 ביוני 2022 (IDT)
 <!--נא לכתוב את ההודעות מעל לשורה זו-->
 <!--לא לערוך מתחת לקו זה-->
 {{עוגן|סוף}}{{מרכז|{{גופן|2||'''[[#התחלה|מעבר לתחילת הדף]]'''}}}}
 [[קטגוריה:אוצר - ייעוץ]]

אוצר:עורכים שואלים: הבדלים בין גרסאות בדף

תפריט ניווט

חיפוש