שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

[דאנציג]

@455 וכיצד משתמשים בזה?

[455]

@חוות-דעת הקובץ לא קודד נכון.
כעת תוכל לחלץ את זה והוא לבד יעתיק לך את זה למקום הנכון.

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

[455]

חילוץ טקסט סרטון.rar סיסמת חילוץ 1234

[pcinfogmach]

@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

מצורף סרטוןחילוץ טקסט סרטון.mp4

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

[455]

@pcinfogmach בשביל זה ערכתי, והנחתי את זה בארכיון

[דאנציג]

@455
מביא לי את השגיאה הנ"ל:

[דאנציג]

@ישראליק כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

כתב בשיתוף | מאקרו לגיבוי תבנית Normal:

נותן לי שגיאה:

[חוות דעת]

@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

@חוות-דעת הקובץ לא קודד נכון.
כעת תוכל לחלץ את זה והוא לבד יעתיק לך את זה למקום הנכון.

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

אבל אתה לא כותב מה אני עושה עם כל הקבצים האלו, הם לא קבצי תבנית, אז איך אני משתמש עם המאקרו הנפלא הזה?
מה אני עושה אחרי שזה מחולץ לתיקיית ה-startup???

[ישראליק]

@דאנציג
הגדרת את המשתמש שלך בנתיב הגיבוי?

[455]

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

תוסיף את הקבצים שמובאים בארכיון חילוץ טקסט - טופס.rar.
זה אמור לסדר את זה לענ"ד.

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

[455]

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

[דאנציג]

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

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

[ASDF1345]

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

[מניין]

אם זה יעזור למישהו, יש לי מאקרו שהפעולה שלו הוא, 1. החלפת אות עם אות הסמוכה לה, 2. החלפת מילה עם המילה הסמוכה לה, 3. החלפת פיסקא עם פיסקא הסמוכה לה, זה תועלתי מאוד לעובדים בהגהות ועריכה.
כאמור יש שלשה לחצנים, וכדאי שהלחצנים יהיו באופן נגיש [לא בתוך כפתור נפתח], ועדיף עם מקשי קיצור, [אני עובד עכשיו על מסמך עם כמויות של טעויות כאלו, וזה עוזר לי מאוד].
‏החלפת אות מילה פיסקא.dotm

עריכה: החלפת מילה עם המילה הסמוכה לה שיעבוד גם על מילים שיש בתוכם סימונים של גרשיים וכדו'.
וכן אם נבחרו כמה מילים, זה מעביר את כולם יחד לאחרי המילה הבאה.

Sub החלפת_מילה()
    Dim rng As Range
    Set rng = Selection.Range
      Application.UndoRecord.StartCustomRecord ("החלפת מילה")   
    Do While rng.Start > 0 And IsPartOfWord(Left(ActiveDocument.Range(rng.Start - 1, rng.Start).Text, 1))
        rng.Start = rng.Start - 1
    Loop
         Do While rng.End < ActiveDocument.Content.End And IsPartOfWord(Right(ActiveDocument.Range(rng.End, rng.End + 1).Text, 1))
        rng.End = rng.End + 1
    Loop
    rng.Select
    Selection.Cut
    Do
        Selection.MoveRight Unit:=wdCharacter, count:=1
    Loop While Not IsPartOfWord(Selection.Text) And Selection.Start < ActiveDocument.Content.End
       Do
        Selection.MoveRight Unit:=wdCharacter, count:=1
    Loop While IsPartOfWord(Selection.Text) And Selection.Start < ActiveDocument.Content.End
     Selection.PasteAndFormat (wdFormatOriginalFormatting)
      Application.UndoRecord.EndCustomRecord
End Sub
Function IsPartOfWord(ch As String) As Boolean
     IsPartOfWord = (ch Like "[א-ת0-9""'-]")
End Function

[חוות דעת]

@דאנציג כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

אכן!! וזה שיבוש לי קובץ יקר ערך מאד!!! כי לא שמרתי את עצמי לשמור את זה ולגבות את זה מקודם. חבל מאד (ב"ה זה לא היה כ"כ הרבה עבודה. ובכל זאת).

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

הצעה לשיפור המאקרו:

1. ראשית כל, שזה יעבוד רק על המסמך הפעיל ממש.
2. שדבר ראשון יצור עותק מהמסמך עליו הולכים לפרק הטקסט, ליתר בטחון.
3. שייצא גם הטקסט הראשי למסמך חדש, והמסמך המקורי יישאר כמו שהיה.
4. שלא יצטרכו למלא כל השדות, רק מה שרלוונטי. כי אני קבלתי שגיאה באמצע התהליך, כנראה מפני שלא מלאתי פרטים בהערות בלון, כי לא היה לי במסמך. זה השגיאה שקבלתי:
   
5. שהקוד בטקסט הראשי במיקום הקישור של ההערות, יהיה זהה לקוד שהכנסו להערות (באינדיזיין אני עובד עם תוסף, שעבוד ככה).

[menajemmendel]

@ASDF1345 שלום, אני שמח שנהנת
עכשיו לגופו של דבר, התיקונים שעשית,
טוב שאמרתי לי, לגבי ההערות שוליים בעז''ה אתקן את זה שיעשה את זה אוטומתי
ולגבי הסוגריים סגורות מיותרות, בכוונה לא עשיתי כיון דמנהג המחברים הוא להשתמש המון בכאלה לסמן סעיפים וכו' א) ב) וכ', ואז הוא יזהה אותם בבעיה,

[455]

@חוות-דעת כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

הצעה לשיפור המאקרו:
ראשית כל, שזה יעבוד רק על המסמך הפעיל ממש.

בעז"ה בהמשך אסדר

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

בעצם לשני השורות הללו התיקון היא אחד, ליצור עותק.
בעז"ה בהמשך [אולי בביה"ז], לבינתיים אפשר ליצור עותק ידני ולעבוד רק עם העותק

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

בעז"ה בהמשך

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

אני הייתי צריך בכוונה שיהיה שונה, אפשר לשנות את הקוד, בחיפוש והחלפה פשוט [יתכן שיצטרכו תווים כללים]

[חוות דעת]

@455 כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

@חוות-דעת כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

בעצם לכל השורות הללו התיקון היא אחד, ליצור עותק.

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

[455]

@חוות-דעת כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

צודק. ערכתי למעלה

@חוות-דעת כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

מה הכוונה? בסוף המסמך נשאר נקי מהערות. האם אתה רוצה שיהיה טקסט שאין בו כלל הפניות להערות?

[pcinfogmach]

קבלת הקוד של התיו המסומן לצורך שימוש בחיפוש והחלפה

עריכה:
תוקן באג עם מציאת קודים בעברית וכמו"כ נוסף שהקוד מציג את כל הטקסט שסומן ולא רק אות אחת כהצעת @האדם-החושב

תבנית-מציאת-הקוד-של-התו-המסומן-עבור-חיפוש-והחלפה.dotm