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

@דאנציג כתב בהמלצה | הידעתם? מצב הקלדה על טקסט קיים - הקלה למגיהים בוורד.:

ועדיין, אני לא הסתדרתי / התרגלתי.

השאלה היא האם אפשר לעשות את האפקט שרואים בתוכנה ABBYY FineReader
בוורד, שזה עיקר השיפור, שזה ממש שני מצבי עבודה ומאוד ברור על איזה מצב זה.
או לחילופין פשוט לעבוד על ABBYY FineReader.

@פלמנמוני כתב בשאלה | מאקרו לסידור מסגרת:

@מניין למה לא לפרסם לכלל הציבור?

לא נראה לי שאנשים צריכים לזה כ"כ, בכל אופן זה רק חלק קטן ממאקרו שלם שעדיין לא גמור, כהמשך לנידון כאן, בלי נדר כשיהיה מוכן זה יעזור מאוד לעימוד בוורד עם גרפיקה.

@avivis תודה. אצלי כעת אין אפשרות כזו - אולי בגלל שזו גירסא מצומצמת.

כתשובה כללית לכותרת הנושא:

כלל מאות ואלפי הפונטים מתחלקים ל2 קטגוריות:
סריף ( - אותיות עם זווית מעוגלת)
וסנס סריף ( - אותיות עם זווית חדה)

אותיות הסריף (המקראיות) מתאימות לספרים תורניים,
אותיות הסנס סריף (המודרניות) מתאימות לספרים מודרניים, עיתונים וכדו'.
4e642816-ea69-4b0f-b25c-64d1f7243cab-image.png

לאחר חלוקה מוחלטת זו,
הפונטים מתחלקים לעוד קטיגוריה:
כותרות (-טקסט מודגש התופס את העין)
וטקסט רץ (-טקסט נוח לקריאה ארוכה)

כמובן שגם בסריף וגם בסנס סריף יש את החילוק הנ"ל,
ולמען נוחות העין - יש להזהר שלא להחליף ביניהם.
8d7c4a8b-a261-4a19-9639-07b307d75068-image.png

@שרגא-תכנות מה שאני עושה במקרים כאלה, צובע את כל הטקטס מאפור בהיר (שרק מי שמסתכל ממש מקרוב למחשב [שזה הכותב] מצליח לקרוא)

@pcinfogmach
אתה רוצה דוקא לעקוף או שאתה רוצה מאקרו מתאים?

אפשר ליצור תבנית עם השולים שמותאמים לבלנק, ואז אין חריגות

@אומר-ועושה כתב בעזרה | רשימה אוטומטית של כותרות המשנה בוורד - כמו בספרי קודש:

@מניין כתב בעזרה | רשימה אוטומטית של כותרות המשנה בוורד - כמו בספרי קודש:

תוסף תוכן ענינים מתקדם

מה זה אומר?

שאפשר לעצב תוכן ענינים איך שאתה רוצה, אתה מחליט מה יכנס ומה יהיה אחרי ולפני וכו', עיין בקטלוג שלו יש שם דוגמאות.

@es0583292679 הצליח 👍

הנה מאקרו להסרה:

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

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

לגבי החלפת כל התווים שאינם אותיות, (נושא הפוסט) בהקשר של הפיכת סוגריים.

מהנסיון שלי יותר פשוט להחליף ? באנגלית, לעברית:

f661198c-ce16-4dba-a93e-84a373b50df8-image.png

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

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