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

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

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

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

מה זה אומר?

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

@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

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

@דאנציג כתב בבקשת מידע | הקלטת מקרו בתוכנת נקדת:

@נוכחות כתב בבקשת מידע | הקלטת מקרו בתוכנת נקדת:

לרשום תעבורת התוכנות של כל המחשב כמקרו ולשמור אותם להפעלה חוזרת לאחר מכן

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

לצערי איני יודע על מה מדובר אבל בהחלט שייך להתנסות בזה עם חיפוש במאגרים (אני אישית לא הצלחתי לעשות לולאה בתוכנה זו בחיפוש במאגרים).

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

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

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

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

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
תלחץ על הכפתור בצד שמואל למעלה. אחרי שנכנסת לכרטיסיית בית. צפה בסרטון