עזרה הדדית - VBA word

@דאנציג כתב בבירור | האם הולך לצאת גירסה חדשה ומשוכללת של תוסף עיצוב תורני:

הערות ברצף

אמנם יש משהו, ש @נוכחות כתב ו @pcinfogmach שכלל, אבל עדיין זה לא עובד כל כך טוב, אני חושב שתוכל להגיע למשהו הרבה יותר.

וכן היישור טורים טעון שיפור.

@מניין אפשר לראות את הרשימה של הIDMSO כאן יכול להיות שזה מעודכן רק מ2010

@אברהם-0 כתב בבירור | פקודות מאקרו:

חשבתי אולי זה כתוב במאקרו עצמו

לא זה לא חלק מהמאקרו

@שלמה11 כתב בבעיה | בעיה בהגדרת הפקודה: font.position:

גם גודל טקסט הוא לפי נקודות

צודק, בכל אופן האחד הוא משתנה של long בזמן שהשני הוא משתנה של single.
המשתנה long מאפשר רק מספרים שלמים ללא נקודה עשרונית.

https://learn.microsoft.com/en-us/office/vba/api/word.font.position
https://learn.microsoft.com/en-us/office/vba/api/word.font.size

🤷‍♂️ אין לי עצה.

אני מוכרח להעמיד דברים על דיוקם, משום שהנאמר כאן אינו רק לא מדויק – אלא מנוגד לחלוטין לאופן הפעולה של Word, מאקרו, ותוכנת "עימודית".

"עימודית" אינה תלויה בהרצת מאקרו כלל, ואינה מפעילה מאקרו בזמן השימוש. יש מספר פעולות נקודתיות שדורשות גישה לעריכת קובץ ה-XML של תבנית Word (Normal.dotm), אך הדבר אינו שקול להרצת מאקרו בשום צורה, ואינו צורך משאבים או סוללה מעבר לפעולת העריכה עצמה.

הטענה שפקודות מאקרו אחראיות לצריכת 88% מהסוללה – פשוט לא אפשרית!

מאקרו ב-Word אינו תהליך שרץ ברקע אלא קוד VBA שמתבצע רק כאשר המשתמש מפעיל אותו.
גם אם היו מאקרו פועלים ברצף (מה שלא קורה כאן כלל), הם עדיין לא היו גורמים לצריכת אנרגיה כזו.
הרבה יותר סביר שהגורם לצריכת הסוללה הוא משהו אחר לגמרי – כמו עומס על Word מסיבה אחרת, דרייברים, או רקע מערכת ההפעלה.
כיבוי "עימודית" לא יכול "לבטל" מאקרו, כי מאקרו לא עובדים כך!

פקודות VBA מאוחסנות בקובץ Normal.dotm של Word. הדרך היחידה "לבטל" קוד VBA היא למחוק אותו ידנית או לאפס את הקובץ הזה.
אם "עימודית" לא פעילה, היא פשוט לא עושה כלום – היא לא "מחזירה" סוללה, כי היא לא זו שלקחה אותה מלכתחילה.
בקיצור, התיאוריה שהוצגה כאן לא רק לא נכונה – היא בלתי אפשרית מבחינה טכנית! אין קשר בין מה שנאמר לבין אופן הפעולה של Word, מאקרו, או "עימודית".

לכן, כדאי להימנע מהסקת מסקנות לא מבוססות ולהתמקד בבדיקה אמיתית של מקור הבעיה. אם אתה חווה צריכת סוללה חריגה ב-Word, יש הרבה דברים לבדוק – אבל מאקרו אינם אחד מהם.

הוספה:

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

מאקרו הוא קוד פתוח לחלוטין – כל פקודת VBA שנכתבת ב-Word גלויה לעין ונמצאת ב-Visual Basic בתוך Word עצמו. אין שום "ריצה ברקע", אין שום פעילות סמויה, ואין שום דרך שבה קוד המאקרו יכול לפעול מבלי שאתה מפעיל אותו באופן ישיר.

אם יש חשש למשהו חשוד – אפשר לבדוק!

אתה מוזמן לפתוח את הקוד ולפרסם אותו כאן – תראה בדיוק מה המאקרו עושה, זה מסתכם בכמה שורות בודדות שביצוען נעשה רק כאשר לוחצים על כפתור ספציפי (למשל, סידור הערות שוליים ב-2 טורים).
אפשר אפילו להכניס את הקוד ל-GPT או לכל בודק קוד אחר – ותקבל הסבר ברור ומדויק לכל שורה ושורה. אין כאן שום דבר נסתר.
אין קשר בין חסימת גישה לבין "מחיקת" המאקרו

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

@אלף-שין כתב בבקשת מידע | איך מוסיפים מספר לכל הספרות שנמצאות בקובץ וורד?:

@menajemmendel כתב בבקשת מידע | איך מוסיפים מספר לכל הספרות שנמצאות בקובץ וורד?:

באדיבות ''עבודת נמלים בוורד'' הבית שלך לאוטומציה במסמכים

תודה על כל העזרה!
אסמן כנפתר!
אגב אם הבנתי נכון באתר הזה נראה שזה לא תוכנה לרכישה אלא עבודת עימוד?.

יש שתי שירותים נפרדים שאין קשר בין אחד לשני:

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

עלה לי רעיון:
על ידי זיהוי גודל לא זהה מצו"ב

Private Sub SizeReplacements() Dim defaultSize As Integer, currentSize As Integer, diff As Integer, i As Integer Set normalStyle = ActiveDocument.Styles(wdStyleNormal) ' קבלת גודל הפונט ברירת המחדל defaultSize = normalStyle.Font.SizeBi ' שלב 1: סימון גודל הפונט ברירת המחדל With ActiveDocument.Content.Find .style = normalStyle .Format = True .Font.SizeBi = defaultSize .Replacement.text = "»^&«" .Execute Replace:=wdReplaceAll End With ' שלב 2: הוספת תגיות מותאמות לגודל Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1 With Selection.Find .style = normalStyle .Format = True .ClearFormatting .text = "«[!»^13]{1,}" .Forward = True .Wrap = wdFindStop .MatchWildcards = True Do While .Execute Call Trim If Selection.style = normalStyle Then 'זיהוי טווח עם גדלים שונים If Selection.Font.SizeBi = 9999999 Then Call DivideTextByFontSize GoTo nxt End If 'זיהוי טקסט גדול\קטן currentSize = Selection.Font.SizeBi If currentSize > defaultSize Then 'סימון טקסט גדול diff = currentSize - defaultSize For i = 1 To diff Selection.InsertBefore "<big>" Selection.InsertAfter "</big>" Next i ElseIf currentSize < defaultSize Then 'סימון טקסט קטן diff = defaultSize - currentSize For i = 1 To diff Selection.InsertBefore "<small>" Selection.InsertAfter "</small>" Next i End If End If Selection.Collapse (wdCollapseEnd) nxt: Loop End With ' שלב 3: הסרת המהדורים With ActiveDocument.Content.Find .text = "[»«]" .MatchWildcards = True .Replacement.text = "" .Execute Replace:=wdReplaceAll End With End Sub Private Sub DivideTextByFontSize() With Selection Do While .Font.SizeBi = 9999999 .MoveEnd wdCharacter, -1 Loop .InsertAfter "»«" .MoveStart wdWord, -1 .Collapse (wdCollapseStart) End With End Sub

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

אגב: התוסף יצליח לעבוד גם על מקומות שיש כותרת בסוף הטור שעוברת לטור הבא ואז יש רווח גדול?
ואולי שיעבוד גם על סיום המסמך שלא ייגמר בטור אחד כמובנה בוורד אלא יחלק אותו לשני טורים שווים...
ומה הוא יעשה אם בסוף המסמך [או המקטע] יש שני טורים שאי אפשר להשוות אותם [למשל אם הכל טור אחד ארוך שמחולק לשניים ויש הבדל של שורה אחת]? אולי שירווח את האותיות עד שתתווסף עוד שורה?

בכל אופן, תודה! באמת הגיע הזמן למשהו כזה שיעשה עבודה מקצועית על כל הטורים האפשריים...

האם מישהו יכול להפוך את זה למאקרו סגור ומוכן?

לתועלת הענין העלה לכאן את הקוד הקיים וכך יוקל לעזור.

@יוסף-בן-חיים כתב בהסבר | עזרה בורד ב'החלפה':

אשמח אם תוכל לפרט בקצרה את הרעיון בזה, כלומר איך מוספים טקסט בסמוך למיספור סעיפים וכיו"ב

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

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

@106 כתב בבקשת מידע | יצירת מאקרו להערת סקירה בWORD 365:

כנראה זה אבוד.

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

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

@מניין

@ASDF1345
התכוונתי שתמחק דרך סדרן, או שתעביר למסמך חדש דרך סדרן רק את הסגנונות שאתה רוצה.
עיין כאן.

@צללית
אם תפתח את התבנית ישירות דרך הפתיחה של וורד ולא דרך ווינדוס ואז תגדיר ותשמור זה יישמר לך בתבנית

@menajemmendel
אם הוא רוצה שזה יקרה לכל צבע אתה צודק

@האדם-החושב כתב בשיתוף | ידיעה חשובה VBA: ביטול פעולה אחרונה למאקרו שלם כיחידה אחת:

אולי צריך להוסיף את זה לתוך המאקרו שביוזר פורם עצמו?

כן

@פלורידה אני צריך את התו הזה כדי להחליף אותו אח"כ בעיטור

@menajemmendel בהיברו בוקס בהורדת קובץ כן, בשאר הדברים שהוא יפתח את הלינק בדפדפן או בתוכנת אוצר החכמה

@menajemmendel כתב בבקשה | פתיחת ספרים מהיברו בוקס ואוצר החכמה דרך וורד:

וסתם ככה כשאני לוחץ באסקל, על חלק פותח בדפדפן, ועל חלק לא פותח כלום אלא מוריד את המסמך למחשב

נכון, יש עמודה שמכילה לינק ישיר להורדה ושאר העמודות הם לצפייה בדפדפן

@121244 נראה לי שכך:

%userprofile%

כלומר:

%userprofile%\documents\gibuy

עריכה: עכשיו אני רואה בתורת אמת בוורד משהו כזה:

Dim xfilepath As String xfilepath = Environ("USERPROFILE") & "\Documents\ToratEmetInstall\WordAddon\Index\BookPathIndex.txt"