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

[אהרן]

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

המוון תודה!

[אהרן]

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

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

[yossiz]

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

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
עזרו לי, אבל עדיין ההודעה שלך תעזור לי, אלמד אותך מחר בעז"ה

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