@אהרן האם הסתדרת?
תיקנתי בשבילך
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, ולכן אין דרך לחפש תחילת קטע]