בקשה | הוספת שורות אחרי סימן שאלה

[u88]

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

[חובבן מקצועי]

@u88 אתה יכול לעשות 'החלפה' בוורד - תחליף 'סימן שאלה' ב'סימן שאלה + שורה חדשה + ______________________________' (את הסימן '' תבדוק כמה פעמים צריך אותו בפונט ובגודל שלך כדי שימלא לך שתי שורות)

[pcinfogmach]

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

Range.ListFormat.RemoveNumbers

תנסה עם בינה מלאכותית לייצר משהו כרגע אין לי זמן איתכם הסליחה

Spoiler

התחלתי לעשות משהו על זה אבל פרח לי הזמן הנה משהו בשלבי התחלה

Sub AddAnswerLinesAfterQuestionMark()
    Dim Rng As Range
    Set Rng = ActiveDocument.Content

    With Rng.Find
        .Text = "?"

        Do While .Execute
            ' äææú äñîï ìñåó ñéîï äùàìä
            Rng.Collapse Direction:=wdCollapseEnd
            
            ' äëðñú ùåøä çãùä
            Rng.InsertParagraphAfter
            
            ' áéèåì äîñôåø äàåèåîèé ìùåøä äçãùä
            Rng.Next.ListFormat.RemoveNumbers
            
            ' äåñôú ùúé ùåøåú ìîòðä
            Set tbl = ActiveDocument.Tables.Add(Rng, 2, 1)
        
            With tbl
                .Borders.Enable = False
                                need to llop over each row and add line
                .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
            End With
            
            Rng.SetRange tbl.Range.End, tbl.Range.End
            
            ' äîùê äçéôåù îäîé÷åí äðåëçé
            Rng.Collapse Direction:=wdCollapseEnd
        Loop
    End With
End Sub

[ע"ה דכו"ע]

@u88 כתב בבקשה | הוספת שורות אחרי סימן שאלה:

ללא המשכת המספור

אחרי שתעשה את החיפוש והחלפה כמו שכתב @חובבן-מקצועי , תוכל לעשות חיפוש והחלפה נוסף של העיצוב של כל השורות שמכילות "___" בעיצוב ללא מיספור.

[pcinfogmach]

@ע-ה-דכו-ע
החיפוש והחלפה לא מסיר את המספור אוטומטי

[ע"ה דכו"ע]

@pcinfogmach כתב בבקשה | הוספת שורות אחרי סימן שאלה:

@ע-ה-דכו-ע
החיפוש והחלפה לא מסיר את המספור אוטומטי

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

[יאיר הבהיר]

@u88

Spoiler

רק הערת אגב כללית: אתה בטוח שעדיף לעשות את השורות האלו עם המון תווים כאלו _ _ _ _ ולא עם טאב אחד [בסגנון טאב קו תחתון כמובן] שמגיע עד סוף השורה??

[975]

@u88 כמדומני יש לך בעזרים לוורד
ותוכל גם לראות כאן

רק אל תשכח בסוף להביא משהו מושלם לתועלת הציבור

[u88]

@pcinfogmach במאקרו אני לא יודע איך כותבים
ועם הבינה אכלתי קש!!!!
אם משהוא ידע לעשות מאקרו כמוך או כמו @שלמה11 @menajemmendel או מקצוענים אחרים אשמח מאוד

[שלמה11]

@u88 אין צורך במאקרו.
תבצע את הפעולות הבאות:

1. החלפה של "?" ב: "?^l^t^l^t"
2. תוסיף טאב יישור לשמאל - עם עיצוב של קו תחתון.
3. סיימנו את העבודה!!!

[u88]

@שלמה11 קצת עברית לאנשים פשוטים
אני צריך 2 שורות זה יעזור ?

@שלמה11 כתב בבקשה | הוספת שורות אחרי סימן שאלה:

תוסיף טאב יישור לשמאל - עם עיצוב של קו תחתון.

לא הבנתי מה כוונת המשורר

[שלמה11]

@u88 תפתח בלשונית בית>פיסקה>החץ הקטן למטה>יש למטה כפתור טאבים>תקבע טאב בסוף השורה עם מסלול מספר 4

[u88]

@שלמה11 וכמה לכתוב בטאב בעצירה

[שלמה11]

@u88 אתה יכול לקבוע את הטאב קודם בסוף השורה באופן ידני ואחרי זה לשנות אותו כמו שהראתי למעלה (או שלפחות ככה תדע כמה לכתוב)

[u88]

@שלמה11

Spoiler

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

[שלמה11]

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

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

[u88]

@שלמה11 יישר כח הבנתי והצלחתי אשריך

[pcinfogmach]

@שלמה11
וואלה שנים שאני עושה שורות למבחן עם טבלה עד שהגעת והצעת פתרון כה פשוט וטוב - יישר כח!

[u88]

@pcinfogmach מה שנכון נכון