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

[אברהם]

תודה רבה...

 

[avram]

נסה את זה (בלי אחריות)
ותודה למוישי שהסביר איך עושים את זה

Sub FootnotesToText()
    
    SetFindOption
	
    Do While Selection.Find.Execute = True
	
		Selection.HomeKey Unit:=wdStory
		Selection.Find.ClearFormatting
		Selection.Find.Replacement.ClearFormatting
		Selection.Find.Execute
		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.Find.ClearFormatting
		Selection.Find.Replacement.ClearFormatting
		With Selection.Find
			.Text = "^p"
		End With
		Selection.Find.Execute
		Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
		Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
		Selection.Copy
		SetFindOption
		Selection.HomeKey Unit:=wdStory
		Selection.Find.ClearFormatting
		Selection.Find.Replacement.ClearFormatting
		Selection.Find.Execute
		Selection.TypeText Text:=" ("
		Selection.PasteAndFormat (wdFormatOriginalFormatting)
		Selection.TypeText Text:=") "
    
    Loop
End Sub


Sub SetFindOption()
    With Selection.Find
        .Text = "^f"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = False
        .Execute
    End With
End Sub

 

[בר בי רב]

@avram, תודה על טירחתך שכתבת מקרו תועלתי מאוד גם לי, אבל אני מוכרח לומר לך, שהמקרו הזה מוחק הרבה מההערות, כלומר נמצאה בו תקלה מצערת, שלפעמים הוא אינו מעתיק אותן בשלמותן, ולכן אי אפשר להשתמש במקרו זה.
בכל מקרה תודה על האדיבות, ובמידה ויש לך דרך לתקן באג זה אשמח.
כמו כן אם כבר אז כבר, סוגריים מסולסלות {} לי יותר תועלתיות, (כי הסוגריים הרגילות מתחלפות במה שאמור להיות סוגריים באמת וא"א אח"כ לשחזרן).

 

[davidnead]

המאקרו הנ"ל לא מגיב לי, נאדה, אין פעולה.

 

[5127109]

היום זה לא מה שהיה פעם.
ככה עושים את זה היום, בלי כאב ראש ועם כל ההערות במקום.
http://www.extra-word.com/apps/inandoutFoot

 

[אברהם]

היום זה לא מה שהיה פעם.
ככה עושים את זה היום, בלי כאב ראש ועם כל ההערות במקום.
http://www.extra-word.com/apps/inandoutFoot

ממליץ בחום רב
אני כבר הרבה זמן משתמש בפתרון הזה וזה כלי מעולה ומהיר

 

[בר בי רב]

ומה עם זה?
https://sites.google.com/site/sargelword/home