הנושאים החמים
[^0192-^0204]
מוריד גם את הטקסט ולא רק את הניקוד.[SIZE=2]Sub DelEnter()[/SIZE]
[SIZE=2]'[/SIZE]
[SIZE=2]' DelEnter [/SIZE][FONT=Courier New (Hebrew)][SIZE=2]מאקרו[/SIZE][/FONT]
[SIZE=2]' [/SIZE][FONT=Courier New (Hebrew)][SIZE=2]מאקרו הוקלט ב- ‏10/07/2005 על-ידי[/SIZE][/FONT][SIZE=2] mss[/SIZE]
[SIZE=2]'[/SIZE]
[SIZE=2]Selection.Find.ClearFormatting[/SIZE]
[SIZE=2]Selection.Find.Replacement.ClearFormatting[/SIZE]
[SIZE=2]With Selection.Find[/SIZE]
[SIZE=2].Text = "^p"[/SIZE]
[SIZE=2].Replacement.Text = " "[/SIZE]
[SIZE=2].Forward = True[/SIZE]
[SIZE=2].Wrap = wdFindAsk[/SIZE]
[SIZE=2].Format = False[/SIZE]
[SIZE=2].MatchCase = False[/SIZE]
[SIZE=2].MatchWholeWord = False[/SIZE]
[SIZE=2].MatchKashida = False[/SIZE]
[SIZE=2].MatchDiacritics = False[/SIZE]
[SIZE=2].MatchAlefHamza = False[/SIZE]
[SIZE=2].MatchControl = False[/SIZE]
[SIZE=2].MatchWildcards = False[/SIZE]
[SIZE=2].MatchSoundsLike = False[/SIZE]
[SIZE=2].MatchAllWordForms = False[/SIZE]
[SIZE=2]End With[/SIZE]
Selection.Find.Execute Replace:=wdReplaceAll, [B][COLOR=red]Wrap:=wdFindStop[/COLOR][/B]
End Subנכתב ע"י בשעה טובה;146497:
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
