המרת מספור אוטומטי לטקסט/מספור רגיל

[ישורון קובי]

מאקרו לוורד

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

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

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

הנה המאקרו:

Sub ConvertListToTextPro()
    Dim aList As List
    Dim rng As Range
    Dim para As Paragraph
    scode = InputBox("Code to insert for each list item:", "Convert List To Text + Insert Code", "{$}")
    For Each aList In ActiveDocument.Lists
        For Each para In aList.Range.Paragraphs
            Set rng = para.Range
            If rng.ListFormat.ListTemplate Is Nothing Then GoTo ContinueForLoop
            rng.InsertBefore scode
            rng.End = rng.End - 1
            rng.Collapse wdCollapseEnd
ContinueForLoop:
        Next
    Next
    ActiveDocument.ConvertNumbersToText wdNumberParagraph
End Sub

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

טיפים לוורד - הפעלת מאקרו בתוכנת וורד

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

youtu.be

 

[ChaimMoshe]

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

 

[ישורון קובי]

לי יש שאלה אחרת ...

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

 

[שלימות]

מאקרו לוורד

מדהים חיפשתי הרבה זמן מאקור כזה ושזה עובד! תודה רבה גם לרב @שיקול דעת על כל העזרה באשכול

מאקרו לוורד

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

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

 

[ChaimMoshe]

מה הקשר לשאול את זה כאן ולהסיט את האשכול מהנושא שלו.

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

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

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

 

[ישורון קובי]

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

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

 

[ישר]

אלא גם שותל איזה שהוא סימון לכל אחד מהפריטים של הרשימה.

האם יש אפשרות שהוא יכניס את הסימון לפני המספר?
תודה

 

[ישורון קובי]

האם יש אפשרות שהוא יכניס את הסימון לפני המספר?

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

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

שימושי לוורד

תוכנת שימושי לוורד. כלים רבים לתועלת עבודה עם תוכנת וורד, ובפרט למעמדים

www.kubi.co.il