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

מציאת שורה אחרונה: לרדת שורה ולבדוק אם אנחנו עדיין באותו עמוד, עד שירידת השורה מביאה תוצאה של עמוד אחר = השורה האחרונה.

מאקרו להסיר כותרות עליונות ולקשורכל הכותרות העליונות זה לזה (מבטל את הביטול "קשר עם הקודם" בכל המסמך ומשאיר כותרת עליונה נקיה) Sub ResetAndLinkAllHeaders() Dim doc As Document Dim i As Long, j As Long Dim h As Variant Dim hdr As HeaderFooter Set doc = ActiveDocument Application.ScreenUpdating = False ' Connect all headers to previous sections For i = 2 To doc.Sections.Count For Each h In Array(wdHeaderFooterPrimary, _ wdHeaderFooterFirstPage, _ wdHeaderFooterEvenPages) doc.Sections(i).Headers(CLng(h)).LinkToPrevious = True Next h Next i ' Delete all header content from first section For Each h In Array(wdHeaderFooterPrimary, _ wdHeaderFooterFirstPage, _ wdHeaderFooterEvenPages) Set hdr = doc.Sections(1).Headers(CLng(h)) ' Remove floating shapes and decorations For j = hdr.Shapes.Count To 1 Step -1 hdr.Shapes(j).Delete Next j ' Remove text and inline content hdr.Range.Delete Next h Application.ScreenUpdating = True MsgBox "All headers cleared and linked successfully." End Sub

@סוקולובר כתב: י. אנא שפרו ועזרו לכולם https://mitmachim.top/topic/102459/להורדה-מאקרו-לחיפוש-עיון-מילים-מסומנות-בפרוייקט-השו-ת אתה יכול להשתמש במאקרו שהעליתי שם. הוא עובד בצורה הרבה יותר טובה (לא ע"י sandykys), ולא מוגבל לקיצורי מקשים בפרוייקט השו"ת כדי לפתוח את חלון החיפוש / עיון, יש שם גם חיפוש מתקדם עם טווח מילים. תוכל ליצור מזה משהו איכותי יותר עם יוזר פרום שלך לשינוי מרחק מילים. בהצלחה

@אברהם-0 תעלה את המאקרו ונוכל לראות

@קפטן-מרשמלו תודה רבה, פשוט אין מילים!!! ברוך השם שיתפתי ל AI סטודיו את הפוסט שלך, והציע לי מניפולציה מסויימת ותוך כדי הוא פתאום "קלט" מה אני רוצה ממנו והביא לי קוד VBA שעובד מצויין! מצורף כאן לכל המעוניין..... כמובן - יש להקיש f9 לאחר הרצת המאקרו לעדכון שדות (ולא - כל השדות יהיו האות 'א'). Sub החלף_מספור_באותיות_הפניה_מקושרת() Dim fld As Field Dim codeText As String ' מעבר על כל השדות במסמך For Each fld In ActiveDocument.Fields ' בדיקה אם השדה הוא מסוג הפניה (REF) If InStr(1, fld.Code.Text, "REF ", vbTextCompare) > 0 Then codeText = fld.Code.Text ' הוספת שמירת עיצוב אם חסר If InStr(1, codeText, "\* MERGEFORMAT", vbTextCompare) = 0 Then codeText = codeText & " \* MERGEFORMAT" End If ' הוספת תבנית אותיות בעברית אם חסר If InStr(1, codeText, "\* hebrew1", vbTextCompare) = 0 Then codeText = codeText & " \* hebrew1" End If ' עדכון קוד השדה והשדה עצמו fld.Code.Text = codeText fld.Update End If Next fld MsgBox "כל שדות ההפניה שונו לאותיות עבריות בהצלחה!", vbInformation End Sub

@מניין ממש מצוין, בדיוק מה שרצתי!!! ישר כח עצום!

אני לא מבין מה הרעיון, אך אכתוב מה השלבים שזה צריך להתבצע, לדעתי הענייה (והקלילה): המאקרו שמסתכל על המילים - לכאורה צריך רשימת מילים ש'תפעיל' את השלב הבא. חיפוש בDB של זית/אוצריא בטבלאות המתאימות. האם ניתן להפעיל sqlite3 nuurs? אין לי טיפת מושג בכל זה, שאל את @pcinfogmach אולי הוא ירצה לעשות זאת.

@ישראל-הכהן כתב בבקשה | תוכנת וורד להורדה: להורדה ואופליין יש כאן

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

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

@פעמיקס כתב בבקשת מידע | קוד עבור הפונקציה "אל תוסיף רווח בין פסקאות מאותו סגנון": @ע-ה-דכו-ע אני רוצה לעצב כותרת ע"י פקודת מאקרו, המסמך מוגדר עם ההגדרה אל תוסיף וכו', ואני רוצה שרק הכותרת תוחרג מההגדרה הזאת (שיהיה רווח מסוים בין הכותרת לקטע הקודם), וזה דורש שהקטע שלפני הכותרת יוחרג, אני מצליח עם המאקרו להגדיר את ה'רווח שאחרי' בקטע הקודם, אבל ביטול ה"וי" הנ"ל - לא מצאתי פיתרון, תודה למסייעים אל תוסיף רווח בין פסקאות מאותו סגנון, הוא רק בפסקאות מאותו סגנון, אז למה צריך להחריג את הקטע שלפני הכותרת? או שהכותרת היא משהו שאתה החלטת שהוא כותרת אבל הוא באותו סגנון של שאר המסמך? אם כן תחליף לפיסקה של הכותרת את הסגנון לסגנון כותרת אמיתי.

@ע-ה-דכו-ע כתב בבירור | פקודות מאקרו בוורד: זה מופיע באחת החלוניות של עורך הVBA לא זוכר כרגע את שמה. View>Watch Window

לא הבנתי למה דרושה מערכת מיוחדת כל פעם שבקשתי מAI קוד לVBA הוא נתן לי אפילו הבינה של דיקטה וודאי ג'מיני

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

@שרוליק-2 כתב בעזרה | מסמך וורד שנמחק: @גאון הtemp, ריק... להתייאש?? בהמשך לדברי @גאון [שנראה שלא התחבר מאתמול...] מה הנתיב? יכול להיות שזה לא המקום הנכון. קודם תעשה שיבוט מלא של הדיסק [אם זה חומר חשוב] אולי יהיה אפשר לשחזר - אבל רק משיבוט כדי לא לפגוע בשיחזור מקצועי יותר - ואני מקווה שהמחשב המדובר מכובה!

@יאיר-דניאל קובץ וורד החל מהמהדורה שהתחיל להיות .DOCX ולא .DOC הוא בס"ה קובץ דחוס שמכיל בתוכו הרבה קבצי XML וקבצים נוספים שכוללים את כל הטקסט של הקובץ והעיצוב שלו ועוד כמה דברים, למשל קבצי .BIN שמכילים את הפרויקטים של הVBA שיש במסמך, ואם יש מסמך שמכיל פרויקט מאקרו, אבל בפתיחתו ע"י וורד התוכנה לא מציגה אותו, אז אפשר לנסות להעביר את הקבצים של המאקרו לתוך קובץ דחוס אחר של וורד (שוב, לא קובץ וורד שנדחס לזיפ, אלא קובץ וורד רגיל שהוא בעצם דחוס) ולראות אם זה יעזור.

@שלמה11 בכל זאת יש סיבה אחרת שזה לא יכול להתחלק, כי ההערות הבאות שהם מוסתרות יעברו לעמוד הבא.