הנושאים החמים
- הוסף לסימניות
- #121
כידוע, ALT [צד ימין] וF מכניס הערת שוליים, מה שלא כ"כ ידוע היא שיש MAKRO (מקרו) שאותו לחיצה חזרה גם יחזיר אותך למקום הנכון. מי שרוצה אותו שיכתוב לי ב <לא ניתן לפרסם מיילים באופן פומבי> או שיגיד לי איך לצרף אותו לכאן, הוא נמצא בתוך קובץ וורד.
אצרף כאן את תוכנו של הקובץ והוא נמצא ב http://www.pcreview.co.uk/forums/thread-2843903.php
<o:smarttagtype namespaceuri="urn:schemas-microsoft-com<img src=" http:="" www.prog.co.il="" images="" smilies="" redface.gif="" border="0" alt="" title="Embarrassment" smilieid="2" class="inlineimg"></o:smarttagtype>
אצרף כאן את תוכנו של הקובץ והוא נמצא ב http://www.pcreview.co.uk/forums/thread-2843903.php
<o:smarttagtype namespaceuri="urn:schemas-microsoft-com<img src=" http:="" www.prog.co.il="" images="" smilies="" redface.gif="" border="0" alt="" title="Embarrassment" smilieid="2" class="inlineimg"></o:smarttagtype>
קוד:
If you copy the macro below into your Normal.dot, you can use the same
shortcut Ctrl+Alt+F both to create a footnote, and to return to the text
once you are finished.
Sub InsertFootnoteNow()
' Replaces the built-in command InsertFootnoteNow,
' Keyboard shortcut: Alt+Ctrl+F
If Selection.StoryType = wdFootnotesStory Then
' return to main text:
With ActiveWindow
Select Case .ActivePane.View.Type
Case wdPrintView, wdReadingView, _
wdWebView, wdPrintPreview
.View.SeekView = wdSeekMainDocument
Case Else
.ActivePane.Close
End Select
End With
If Selection.Characters.Last.Style = _
ActiveDocument.Styles(wdStyleFootnoteReference) Then
Selection.Move Unit:=wdCharacter, Count:=1
End If
Else
' insert footnote:
Selection.Footnotes.Add Range:=Selection.Range
End If
End Sub
