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

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

@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"

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

@pcinfogmach הגופן פרן ריקול

@צור הוא כתב איך עושים קיצור לעצמי ולא איך שומרים את זה בקובץ