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

אברהם

מהמשתמשים המובילים!
עיצוב גרפי DIP
עיצוב גרפי
עימוד ספרים
עריכה תורנית
D I G I T A L
עימוד ספרים
תודה רבה...
 

avram

משתמש מקצוען
נסה את זה (בלי אחריות)
ותודה למוישי שהסביר איך עושים את זה
PHP:
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

משתמש צעיר
D I G I T A L
המאקרו הנ"ל לא מגיב לי, נאדה, אין פעולה.
 

אברהם

מהמשתמשים המובילים!
עיצוב גרפי DIP
עיצוב גרפי
עימוד ספרים
עריכה תורנית
D I G I T A L
עימוד ספרים

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  9  פעמים

לוח מודעות

למעלה