טקסטים שאלה דחופהה בעימוד

[LE&7]

האם יש אפשרות לקחת כל טקסט המופיע בסוגריים ולהפוך אותו להערת שוליים??
תודה גדולה מראש!

 

[עמירם יוסף]

על יד סקריפט

 

[LE&7]

איזה?

 

[תא חזי]

איזה?

דחוףףףףףף תעשה חיפוש בפורום.
יש כזה לתג, ויש כזה לוורד - של @5127109 היקר

React App

תוספים והרחבות לתוכנת הוורד ואינדיזיין ועוד

extraword.herokuapp.com

 

[LE&7]

תודה רבה!!!

 

[עמירם יוסף]

איזה?

הוא כבר ענה לכם כי הוא סבלני יותר ממני אשריו
אם היית כותב באיזה תוכנה אתה צריך אז הייתי עונה לך

 

[שמואל 87]

למה א''א ע''י קוד מיוחד לסוגריים?

 

[קייקס]

עשיתי מאקרו פשוט בוורד, שמחפש את הסוגריים וממיר אותו להערת שוליים, אחד אחד.
(כדי שאם יש סוגריים שלא רוצים להחליף להערה שיוכלו לעקוף אותן)

הנה המאקרו:
(אני לא יודע איך מצרפים פקודת מאקרו בצורה מיטבית, אז פשוט העתקתי את כל השורות..)


Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "\(?*\)"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Cut
With Selection
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
Selection.TypeBackspace
Selection.TypeText Text:="."
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=3
Selection.TypeBackspace
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekMainDocument
Else
ActiveWindow.Panes(2).Close
End If
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "\(?*\)"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
End Sub

 

[תא חזי]

(אני לא יודע איך מצרפים פקודת מאקרו בצורה מיטבית, אז פשוט העתקתי את כל השורות..)

הנה קצת יותר טוב

Sub Macro1()

'

' Macro1 Macro

'

'

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "\(?*\)"

        .Replacement.Text = " "

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchKashida = False

        .MatchDiacritics = False

        .MatchAlefHamza = False

        .MatchControl = False

        .MatchAllWordForms = False

        .MatchSoundsLike = False

        .MatchWildcards = True

    End With

    Selection.Find.Execute

    Selection.Cut

    With Selection

        With .FootnoteOptions

            .Location = wdBottomOfPage

            .NumberingRule = wdRestartContinuous

            .StartingNumber = 1

            .NumberStyle = wdNoteNumberStyleArabic

            .LayoutColumns = 0

        End With

        .Footnotes.Add Range:=Selection.Range, Reference:=""

    End With

    Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)

    Selection.TypeBackspace

    Selection.TypeText Text:="."

    Selection.HomeKey Unit:=wdLine

    Selection.MoveRight Unit:=wdCharacter, Count:=3

    Selection.TypeBackspace

    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _

        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _

        wdPrintPreview Then

        ActiveWindow.View.SeekView = wdSeekMainDocument

    Else

        ActiveWindow.Panes(2).Close

    End If

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "\(?*\)"

        .Replacement.Text = " "

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchKashida = False

        .MatchDiacritics = False

        .MatchAlefHamza = False

        .MatchControl = False

        .MatchAllWordForms = False

        .MatchSoundsLike = False

        .MatchWildcards = True

    End With

    Selection.Find.Execute

End Sub

​

 

[תא חזי]

===

 

[מענדי מ]

עשיתי מאקרו פשוט בוורד

פשוט כתבת את זה בשבילו? וואו. ממש כל הכבוד!

 

[LE&7]

הסקריפט מעולה!
תודה רבה!!!

שאלה נוספת:
נוצרו לי רווחים לפני הפניה להערת שוליים
בחיפוש הזנתי רווח+F~ , שיחפש רווח+הפניה
ובהחלף הזנתי רק את הקוד של הפניה להערת שוליים F~
והתוצאה הייתה שהוא החליף את כל ההפניות לאות F ותו~
מה אפשר לעשות???

 

[אברהם]

הקוד ~F הוא רק בחיפוש, לא בהחלפה
קודם כל לבטל את הפעולה

ולחפש כך

 

[LE&7]

וואו!
תודה גדולה