خاموش کردن تغییرات آهنگ برای مناطق انتخابی

Question

دفتر کارل به طور گسترده ای از ویژگی Track Changes در Word استفاده می کند، اسنادی که قبل از نهایی شدن از طریق چندین فرد و بازبینی های متعدد انجام می شوند. ویژگی Track Changes برای این منظور بسیار خوب عمل می کند، به استثنای یک: سند شامل موارد زیر است. پاورقی، فیلد تاریخ (تاریخ ذخیره شده) و هر بار که سند ذخیره می شود، Track Changes به طور خودکار تاریخ موجود را حذف می کند و تاریخ آخرین ذخیره جدید را درج می کند. این به سرعت منجر به ایجاد یک پاورقی چند خطی از تاریخ آخرین ذخیره اصلاح شده می شود. کارل به این فکر کرد که آیا راهی وجود دارد که به Word بگوید هنگام استفاده از Track Changes از پاورقی (یا یک فیلد مشخص، بلوک متن، بخش و غیره) "نادیده بگیرد".

پاسخ کوتاه این است که نه، هیچ راهی برای انجام این کار وجود ندارد. ویژگی Track Changes برای کل سند یا روشن یا خاموش است. این به این معنی است که شما فقط چند گزینه دارید. اولین گزینه تعیین تاریخ است. در استاتیک فوتر، به طوری که تغییر نکند. می توانید آن را با متن جایگزین کنید (به جای استفاده از یک فیلد) و سپس به سادگی به یاد داشته باشید که تاریخ را به عنوان یکی از آخرین مراحل قبل از اتمام یا چاپ سند به روز کنید.

گزینه دیگر این است که هر زمان که فایل را در Word باز می کنید، همیشه تغییر در فوتر را بپذیرید. به سادگی روی تاریخ در پاورقی کلیک راست کرده و گزینه Accept Change را انتخاب کنید.

گزینه دیگر استفاده از ماکرو برای ذخیره واقعی سند است (اگر این نقطه ای است که پاورقی در حال به روز رسانی است). ماکرو زیر چندین کار را انجام می دهد و می تواند برای سهولت استفاده به یک دکمه نوار ابزار اختصاص داده شود. ابتدا از تمام پاورقی های سند عبور می کند و تمام فیلدهای پاورقی را به روز می کند. سپس هر گونه تجدید نظر در آن پاورقی ها را می پذیرد. در نهایت، سند را ذخیره می کند.

Sub Save_NoFooterRevisions()
    Dim rFooter As Range
    Dim iSectCount As Integer
    Dim j As Integer

    iSectCount = ActiveDocument.Sections.Count

    For j = 1 To iSectCount
        Set rFooter = ActiveDocument.Sections(j) _
          .Footers(wdHeaderFooterPrimary).Range
        With rFooter
            .Fields.Update
            .Revisions.AcceptAll
        End With
        Set rFooter = ActiveDocument.Sections(j) _
          .Footers(wdHeaderFooterEvenPages).Range
        With rFooter
            .Fields.Update
            .Revisions.AcceptAll
        End With
        Set rFooter = ActiveDocument.Sections(j) _
          .Footers(wdHeaderFooterFirstPage).Range
        With rFooter
            .Fields.Update
            .Revisions.AcceptAll
        End With
    Next j
    ActiveDocument.Save
End Sub