@הסיפור-האחרון
תבקש ממי ששלח לך את המייל [או מישהו אחר שמופיע שם בשרשור] שישלח לכולם תגובה, ולפני זה יוציא אותך מרשימת הנמענים.
צבי צ
-
עזרה | קבוצה במייל -
בקשה | בקשה ליצירת תוסף לוורד@YAHBDK
לא יודע האם זה יקדם אותך, בשלב ראשון בניתי מאקרו שישנה את הסגנונות בטקסט, הבעיה היא שהכותרות גם מוגדרות באותו סגנון, ולכן צריך לעבור על זה.
מתוקןאתה רוצה להביא לי כתובת מייל שלך?
Sub מאקרו() ' ' מאקרו Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("טקסט_רץ_גמרא") With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("טקסט_רץ_פירוש") With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub -
הצעת ייעול | יצירת מילון תורני להגהה בוורד@דמבלדור
תעתיק את הנתיב שכתבתי למעלה, תלחץ מקש חלונות עם האות R (ר) ותדביק בחלון שנפתח ואנטר
ותגיע ל'תקיה השכוחה'.
שם תפתח את הקובץ CUSTOM.DIC ותוסיף את כל המילים שאתה רוצה.אבל לפני זה תתקין את הקובץ שהרב @דאנציג הביא למעלה יש בו עשרות אלפי מילים!!!
יש שם הרבה טעויות ובהזדמנות זו אפשר גם למחוק אותם.
-
הצעת ייעול | יצירת מילון תורני להגהה בוורד@דמבלדור
את הקובץ שיש לך עכשיו זה משנה את השם שלו ל CUSTOM_pre_ver_2.0
תמיד תוכל למחוק את הקובץ החדש שעכשיו נקרא CUSTOM.DIC
ולשנות חזרה את השם של הקובץ המקורי ל CUSTOM.DICוהכל נמצא בתיקייה
%AppData%\Microsoft\UProof -
בירור | סגנונות בוורד@אברהם-0
תסמן את שורת הכותרת בשני המסמכים. -
בירור | האם יש דרך להוספת הערות סקירה על הערות שוליים וסיום?@יעב-ץ
לא קיים!
גם הרב @יואל-שילה בבקלות לא מצא לזה פתרון.
האפשרות היחידה היא להזריח את הטקסט בהערה ולכתוב הערת סקירה בהפנייה להערת שוליים / סיום. -
הצעת ייעול | יצירת מילון תורני להגהה בוורדוהנתיב למילון הוא
%AppData%\Microsoft\UProof -
הצעת ייעול | יצירת מילון תורני להגהה בוורד -
בירור | האם יש דרך להוספת הערות סקירה על הערות שוליים וסיום?@יעב-ץ
נכון,
יצרתי מאקרו [ושיפצתי בעזרת קלוד].
נשאר לך רק לעשות קיצור דרך.Sub הערת_סקירה_בהערת_שוליים() Dim cmt As Comment Dim txt As String txt = InputBox("הקלד את הערת הסקירה:", "הערת סקירה") If txt = "" Then Exit Sub Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow ActiveWindow.View.SeekView = wdSeekMainDocument Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Set cmt = Selection.Comments.Add(Range:=Selection.Range) cmt.Range.Text = txt ' סגירת חלונית הסקירה - אחרי ההוספה If ActiveWindow.Panes.Count > 1 Then ActiveWindow.Panes(2).Close End If ActiveWindow.View.SeekView = wdSeekMainDocument End Sub -
הצעת ייעול | יצירת מילון תורני להגהה בוורדהעתקתי את זה חזרה לקובץ טקסט ושמרתי את זה עם סיומת של מילון
תפתח את הקובץ המקורי ע"י פנקס הרשימות ותדביק את הרשימה שלך שם.
-
בירור | האם יש דרך להוספת הערות סקירה על הערות שוליים וסיום?הם לא בסוף המסמך אלא בסוף "מקטע"
ב'בקלות' של הרב יואל שילה יש אפשרות כזו:

ואם אתה מדבר רק על זמן העבודה אתה יכול להחליף בין ההערות שוליים להערות סיום [כלומר שההערות שוליים יהיו בסוף המקטע / הקובץ וההערות סיום בתחתית העמוד.]

-
בירור | האם יש דרך להוספת הערות סקירה על הערות שוליים וסיום?@יעב-ץ
תבדוק האם זה יותר מהיר.בכל מקרה בקובץ גדול עם הרבה הערות תמיד זה נתקע,
עיין במה ש @אוריי כתב פה ובהמשך השרשור.https://mitmachim.top/post/1270021
Sub הערת_סקירה_בהערת_שוליים() Dim cmt As Comment Dim anchor As Range Dim txt As String Dim panesBefore As Long Dim st As Long Dim rngSel As Range txt = InputBox("הקלד את הערת הסקירה:", "הערת סקירה") If txt = "" Then Exit Sub Application.ScreenUpdating = False panesBefore = ActiveWindow.Panes.Count st = Selection.StoryType Set rngSel = Selection.Range If Selection.Start <> Selection.End Then rngSel.HighlightColorIndex = wdYellow End If Select Case st Case wdFootnotesStory Set anchor = rngSel.Footnotes(1).Reference Case wdEndnotesStory Set anchor = rngSel.Endnotes(1).Reference Case wdMainTextStory Set anchor = rngSel.Duplicate If anchor.Start = anchor.End Then anchor.MoveEnd wdCharacter, 1 End Select If anchor Is Nothing Then Application.ScreenUpdating = True MsgBox "הסמן צריך להיות בגוף המסמך, בהערת שוליים או בהערת סיום.", vbExclamation Exit Sub End If Set cmt = ActiveDocument.Comments.Add(anchor) cmt.Range.Text = txt If ActiveWindow.Panes.Count > panesBefore Then ActiveWindow.Panes(ActiveWindow.Panes.Count).Close End If Application.ScreenUpdating = True End Sub -
בעיה | דחוף עזרה שיחות מהמספר שלי שלא אני חייגתי !!!@האלוף-בקטנה
כדי לבדוק אם זה ממספר וירטואלי תגדיר בתפריט שכשמתקשרים לוירטואלי יהיה בסוף שלוש ספרות אחרות או המספר האישי.סולמית, סיסמה, 2, 1,
להוספת ספרות - 2
המספר האישי - 4 -
בקשת מידע | מערכת IVR לניהול גמ"ח -
בקשת מידע | קו וויז מישהו שמע על זה? -
בירור | החלפה במסמכי TXT@0772637000
הקדמת אותי...@אברהם-0
כדאי לגבות את הקבצים לפני שאתה מפעיל את הקובץ BAT.מצרף את מה שקלוד כתב לי
צריך להוסיף T
תיקון גרש כפול למרכאות.BA -
בקשת מידע | נשבר לי הדיסק או קי של פרויקט השו"תאם רק החלק החיצוני נפגע יש אפשרות בעדינות לחלץ את הכונן עצמו ולהרכיב על אונקי אחר תואם / דומה.
אפשר להזמין בעליאקספרס בכמה שקלים
-
בירור | עזרה התזכירים נעלמו ב Q7@דוד-2421
אולי זה יעזור לך.
https://mitmachim.top/post/943292