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

@בן-חכם כתב בבירור | אופיס על מחשב ל 2 משתמשים:

זה יוריד לך מהכמות רשיונות שיש במפתח

ואז מה?

ולגוף השאלה, @hjhtk-com אני חושב שמשתמש שנוצר אחרי התקנת האופיס לא דורש רשיון נוסף, נסה את זה (לי היום ככה זה עבד, אבל יכול להיות שתלוי איזה גירסה)

@דודו12346 כתב בבקשת מידע | כתבתי על קובץ בוורד ונמחק עזרה דחוף:

האם משהו יודע מה ניתן לעשות?

אולי @משחזר-מידע יעזור.

@אלכסון, עם VBA ודאי שאפשר, (עם VBA אפשר כמעט הכל, אני מדבר מידיעה, בשביל זה הוקם ''עבודת נמלים בוורד") אבל השואל שאל אם אפשר בחפש והחלף פשוט.

@haimil כאן יש לך את ההדרכה הכי פשוטה
https://mitmachim.top/post/616312

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

@שלמה11 כתב בלהורדה | תוסף אקורדים לוורד - גירסה 3 יצאה לאור!!:

הבעיה שלכל פונט צריך גודל משלו...

צודק!

@שלמה11 כתב בלהורדה | תוסף אקורדים לוורד - גירסה 3 יצאה לאור!!:

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

ואז זה יהיה מושלם!!!

@מלאכת-מחשבת אם בשאר המסמך אין לך קו תחתון, תוכל לעשות בהחלפה חיפוש של קו תחתון [שהוא מופיע בדרך כלל בקישור], ולהשאיר את תיבת ה'החלף ב' ריקה.

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

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

השאלה היא האם אפשר לעשות את האפקט שרואים בתוכנה 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