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


  • תכנות

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

    המוון תודה!


  • תכנות

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

    Sub ReviseAlign()
        For i = 1 To ActiveDocument.Revisions.Count
            .Revisions(i).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Next
    End Sub
    
    

  • תכנות

    @אהרן האם הסתדרת?
    תיקנתי בשבילך

    Sub ReviseAlign()
        For i = 1 To ActiveDocument.Revisions.Count
            ActiveDocument.Revisions(i).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Next
    End Sub
    

    אבל יש פה בעיה, שאם "עקוב אחר שינויים" עדיין מופעל, זה יוסיף עוד שינויים, לכן לכאורה כדאי להוסיף

    Sub ReviseAlign()
        Dim track_changes As Boolean
        track_changes = False
        If ActiveDocument.TrackRevisions Then
            track_changes = True
            ActiveDocument.TrackRevisions = False
        End If
        For i = 1 To ActiveDocument.Revisions.Count
            ActiveDocument.Revisions(i).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Next
        If track_changes Then ActiveDocument.TrackRevisions = True
    End Sub
    

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

    ^13[!\@#\!%^13]@^13
    

    ולהחליף ב:

    ^p
    

    זה ימצא קטעים שאין בהם התווים @#!% [חוץ מהקטע הראשון במסמך, חבל שוורד לא תומך לגמרי ב-regexp, ולכן אין דרך לחפש תחילת קטע]


  • תכנות

    @yossiz
    עזרו לי, אבל עדיין ההודעה שלך תעזור לי, אלמד אותך מחר בעז"ה

    אבל לפני הכל: כיף לראות אותך כאן!👍


 

בא תתחבר לדף היומי!