אופיס 365 תיקון מקרו למעקב שינויים

[בר בי רב]

בקשר למקרו שהתפרסם כאן:
https://www.prog.co.il/threads/מאקרו-שמכניס-סימון-לפני-איפה-שמתחיל-שינוי-בקובץ.195347/
אצלי יוצא שיש סימון %& לפני כל מחיקה ואחרי המחיקה אין כלום
האם יש מישהו שיודע מה צריך לשנות?

 

[moishy]

עם איזה קוד אתה משתמש?

הקוד הזה לא עובד לך?

Sub MarkChangeStats()
With ActiveDocument
    For i = 1 To .Revisions.Count
        If .Revisions(i).Type = wdRevisionInsert Then
         .Revisions(i).Range.InsertBefore "#": .Revisions(i).Range.InsertAfter "$"
         ElseIf .Revisions(i).Type = wdRevisionDelete Then
         .Revisions(i).Range.InsertBefore "%": .Revisions(i).Range.InsertAfter "&"
        End If
    Next i
End With
End Sub

 

[בר בי רב]

אותה התקלה
מה אתה מציע לעשות
תמונה מצורפת

 

[Yisrael]

אותה התקלה
מה אתה מציע לעשות
תמונה מצורפתצפה בקובץ המצורף 331789

אתה צריך להפעיל את המאקרו כאשר מצב עקוב אחר שינויים לא פעיל...

 

[בר בי רב]

צודק
נכון