میچ از Track Changes در اسناد خود استفاده می کند. او می داند که چگونه تغییرات را بپذیرد یا رد کند. با این حال، او نمی‌پرسد آیا راهی برای پذیرش یک زیرمجموعه کامل از تغییرات، مانند پذیرش تمام حذف‌ها در سند، بدون تأثیرگذاری بر تغییرات ردیابی‌شده دیگر وجود دارد.
این کار را می توان انجام داد، اما فقط با استفاده از یک ماکرو. خوشبختانه، VBA به شما امکان می‌دهد به ویرایش‌های انجام‌شده در سند خود دسترسی داشته باشید، تا زمانی که با روشن بودن Track Changes انجام شده‌اند. مراحل کلان زیر را از طریق هر ویرایش انجام می دهد و اگر حذف شده باشد، آن ویرایش را می پذیرد:
Sub AcceptDeletions() Dim oRev As Revision For Each oRev In ActiveDocument.Revisions If oRev.Type = wdRevisionDelete Then oRev.Accept Next oRev End Sub
توجه داشته باشید که دو عنصر کلیدی در این ماکرو وجود دارد. اول، مقدار ذخیره شده در ویژگی .Type است. Word در واقع اجازه می دهد 22 نوع مختلف از تجدید نظر، همانطور که در این جزئیات
WordTip
. همانطور که در مثال بالا نشان داده شده است، ماکرو فقط بررسی می کند که آیا ویژگی .Type نشان می دهد که ویرایش در واقع یک حذف است یا خیر.
دومین عنصر کلیدی روش .Accept است. این باعث می‌شود که بازبینی پذیرفته شود، اما شما می‌توانید به همین راحتی روش .Reject را تعیین کنید که باعث رد شدن ویرایش می‌شود.
در نهایت باید توجه داشته باشید که پس از اجرای ماکرو، تمامی حذف ها در سند پذیرفته می شود، اما نمی توانید از Ctrl+Z برای لغو افکت های ماکرو استفاده کنید.
