עזרה הדדית - וורד

הנה מאקרו להסרה: Sub RemoveLineSpacingExactly() Dim Paragraph As Range Dim LineSpacingExactly As Double Dim LineSpacingSingle As Double Dim LineSpacing As Double Set Paragraph = Selection.Paragraphs(1).Range With Paragraph If Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly Then LineSpacingExactly = .ParagraphFormat.LineSpacing .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle .Collapse wdCollapseStart .text = " " & Chr(11): .Collapse wdCollapseStart .MoveEnd wdCharacter, 2: .Collapse wdCollapseEnd LineSpacingSingle = .Information(wdVerticalPositionRelativeToTextBoundary) .MoveStart wdCharacter, -2: .Delete LineSpacing = LineSpacingExactly / LineSpacingSingle .ParagraphFormat.LineSpacingRule = wdLineSpaceMultiple .ParagraphFormat.LineSpacing = LinesToPoints(LineSpacing) End If End With End Sub

@מניין תלוי מאוד בסגנון ואופי העבודה. אבל כשתדע, אשמח שתעדכן אותי. Spoiler אני לוקח לפי השעות שאני עובד, אפילו אם הבאתי תחתי עורכים/עובדים אחרים - זאת אומרת לפי השעות שלקח לי להתעסק עם העורכים האחרים. ישנם כאלו שמעסיקים תחתם עורכים, והם משלמים לעורכים שתחתם, ואז התמחור הוא אחר, ובעיקרון תלוי בך, כמה אתה מסוגל לקחת תשלום על משהו שלא עבדת עליו כמעט.

הנה מאקרו פשוט לשינוי השפה עברית - אנגלית, אנגלית - עברית. Sub שינוי_שפה() Static toggleState As Boolean ' משתנה סטטי שמעקב אחרי המצב If toggleState Then ' לחיצה שניה – מאקרו לשפה עברית Call שינוי_שפה_לעברית Else ' לחיצה ראשונה – מאקרו לשפה אנגלית Call שינוי_שפה_לאנגלית End If ' הפעלת מצבים מחזוריים – אם הוא עבר מ-True ל-False ולהפך toggleState = Not toggleState End Sub Sub שינוי_שפה_לעברית() Application.Keyboard (1037) End Sub Sub שינוי_שפה_לאנגלית() Application.Keyboard (1033) End Sub וכן אפשר גם דרך הקלט מאקרו, ותלחץ אלט שיפט, אבל זה יהיה רק חד כיווני, וצריך שני לחצנים אחד לעברית וחד לאנגלית, וזה יוצא ככה: Sub שינוי_שפה_לעברית() Application.Keyboard (1037) End Sub Sub שינוי_שפה_לאנגלית() Application.Keyboard (1033) End Sub

בס"ד עליתי על שורש הבעיה התקנתי מדפסת דרך הרשת והיא הייתה מוגדרת כברירת מחדל - וורד חיפש את המדפסת והיא היתה מכובה. שינוי מדפסת ברירת המחדל פתר את הבעיה.

@דאנציג נראה לי שאשתמש ב'מרובה' וזהו, רק צריך שלא יהיו מילים גדולות יותר בטקסט הרגיל

@נוכחות קודם כל נסביר את הבעיה. צריך להסביר איך עובד השוואת מסמכים... השוואת מסמכים עובר תו תו ובודק אם הוא לפי הסדר וברגע שיש תו שונה במסמך החדש הוא מסמן אותו כנוסף או נמחק. במסמכים אצלך הטקסט הוא אותו הטקסט אך עם כמה שינויים בין המסמך החדש לישן. במסמך החדש יש לך: ניקוד הערות שוליים הערות סיום ובמסמך הישן יש לך: קישורים [שני מספרים או 3] מה שאתה רוצה לעשות זה להעביר את הקישורים מהמסמך הישן לחדש. וכדי לעשות את זה בהשוואת מסמכים זה מסובך מבחינה טכנית כי הוורד מתייחס לניקוד כתו נוסף, ולהערת שוליים או הערת סיום כמילה וממילא אין שום מילה תואמת אם המסמך מנוקד... מה שצריך לעשות זה לגרום לוורד להתעלם מניקוד ומהערות למיניהם (אם זה אפשרי או לא לא בדקתי). לעניות דעתי אתה צריך ללכת על כיון כזה: לבדוק אם יש קוד vba שמסיר את תוי הניקוד (מבחינת קוד). לעבור מילה מילה במקביל מהמסמך החדש והישן ע"י שני משתנים מהמילה של המסמך החדש להסיר ע"י קוד את התווים של הניקוד אם יש ערך מהמסמך החדש שהוא הערות למיניהם שיעבור רק במסמך החדש למילה הבאה לעשות השוואה בין שני המשתנים וכל עוד והמשתנים תואמים להמשיך לרוץ עד ש... כאשר המשתנה של המסמך הישן מכיל מספרים [בתחילתו או בסופו]. שומר רק את המספר במשתנה נפרד. ניגש למסמך החדש ועובר לתחילת המילה או סופה ושותל שם את הקישור (מספר). להכניס את כל זה ללולאה עד שנגמר המילים במסמך ה.... ומכאן הדרך פשוטה להסביר את זה לgpt. בהצלחה!!!! Spoiler קח בחשבון את הזמן והמשאבים של המחשב במסמכים גדולים רצוי מאד להכניס קוד שגורם לוורד לא לקפוא ולהעביר את המסמכים לפני למצב טיוטה

לגבי החלפת כל התווים שאינם אותיות, (נושא הפוסט) בהקשר של הפיכת סוגריים. מהנסיון שלי יותר פשוט להחליף ? באנגלית, לעברית: [image: 1737466206260-f661198c-ce16-4dba-a93e-84a373b50df8-image.png]

@דאנציג תודה רבה זה דיי טוב אם אף אחד לא יעלה לפה משהו ממש קווקוים וכתב פשוט שמתאים ללימוד לילדים קטנים אז אשתמש בזה, ושוב תודה.

@א-מ תודה הסתדרתי עשיתי העתק הדבק כמו שכתב @משחזר-מידע והסתדר ישר כח

@ORIMOR הברכות מגיעות ל @pcinfogmach הוא השקיע שעות רבות מיני ספור בפיתוח התוסף, ובשיפור הקודים הללו!!!

@u88 כל אחד יכול להוסיף - עיצוב תורני זה קוד פתוח והגיע הזמן שעוד אנשים ירימו את הכפפה חבל שרק אדם אחד יתעסק עם זה. אני מוכן לתת הדרכה לכל מאן דבעי.

@מאירית יש גם את האופציה השניה על עברית סטנדרטית והאלט הימני ואותיות מסוימות יש כאן טבלה

ב"ה מצאתי את הדרך לפקודת מאקרו שתפתח לעריכה פקודת מאקרו אחרת הקוד הוא: Private Sub macro1edit() Dim line As Long line = Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.ProcStartLine("macro1", 0) Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.CodePane.SetSelection line, 1, line, 1 Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.CodePane.Show End Sub השורה הארוכה הראשונה מזהה באיזו שורה מתחיל המאקרו השנייה שמה את הסמן על אותה שורה והשלישית פותחת את המודל המדובר. כמובן לשנות את "module1" לשם המודל בשלושת השורות ואת "macro1" לשם המאקרו

@efrat2022 למה צריך אופיס של ירון תתקינו רגיל ותאקטבו אח"כ

@הנגבי נטפרי? Spoiler או כל סינון אחר בדרך כלל אשמים בזה.

@adielsh bandicam 2025-01-12 20-56-46-925.mp4 תלחץ על הכפתור בצד שמואל למעלה. אחרי שנכנסת לכרטיסיית בית. צפה בסרטון

@pcinfogmach זה נושא של ההגדרות איך מוגדר מיקום התמונה מבחינה אנכית [image: 1736707997148-df3f5b3b-c0c8-43b6-8a55-1d99883b7f09-image.png] אם זה יחסי התשנה בהתאם למה שמוגדר יחסית (ולפעמים הערות משפיעות על זה) אבל זה אם מוחלט אז לא, וכשמזיזים את זה אוטומטי משנה למוחלט