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

[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 כמדומני יש לך בעזרים לוורד
ותוכל גם לראות כאן

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