3 Cara untuk Menerima Perubahan Terlacak Khusus Hanya dalam Dokumen Word Anda

Di artikel ini, kami ingin berbagi dengan Anda 3 cara untuk menerima perubahan terlacak tertentu hanya di dokumen Word Anda.

Biasanya, dalam dokumen dengan perubahan terlacak, Anda dapat menerima semuanya sekaligus atau satu per satu. Namun terkadang, Anda mungkin hanya perlu menerima perubahan tertentu, seperti semua perubahan format. Untuk mengatasinya, diperlukan langkah-langkah ekstra.

Berikut adalah 3 pendekatan untuk menerima perubahan terlacak khusus hanya dalam kasus yang berbeda.

Metode 1: Terima Semua Perubahan Jenis Tertentu yang Dilacak

Di sini, katakanlah kita perlu menerima semua perubahan format dalam dokumen.

1. Pertama, klik tab "Review".
2. Kemudian klik perintah "Show Markup".
3. Selanjutnya centang hanya kotak "Formatting" pada menu drop-down.
4. Sekarang Anda hanya dapat melihat perubahan format yang ditampilkan di dokumen. Klik pada tombol drop-down pada perintah "Terima".
5. Dan pilih opsi "Terima Semua Perubahan yang Ditampilkan".

Demikian juga, untuk menerima perubahan lain, cukup tunjukkan jenis perubahan itu saja dalam dokumen dan terima.

Metode 2: Terima Hanya Penghapusan atau Penyisipan

Seperti yang Anda lihat dari tangkapan layar pertama, penyisipan dan penghapusan terikat bersama. Oleh karena itu, untuk menerima salah satunya, Anda memerlukan makro.

1. Pertama-tama, tekan "Alt + F11" untuk memicu editor VBA di Word.
2. Selanjutnya klik proyek "Normal" dan klik "Sisipkan" pada bilah menu.
3. Dan pilih "Modul" pada menu itu untuk memasukkan yang baru.
4. Kemudian klik dua kali pada modul untuk membukanya dan tempel kode berikut:

Sub AcceptOnlyDeletionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionDelete Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Terakhir, klik tombol "Run" atau tekan saja "F5" untuk menjalankan kode.

Makro ini menerima semua penghapusan di dokumen. Untuk menerima semua penyisipan, Anda cukup mengganti dengan makro ini:

Sub AcceptOnlyInsertionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionInsert Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Metode 3: Terima Semua Perubahan dalam Pilihan

Metode ini menunjukkan kepada Anda bagaimana dengan cepat menerima semua perubahan dalam tipe yang berbeda dalam sebuah pilihan.

1. Pertama-tama, pilihlah rentang target.
2. Kemudian klik tab "Review" di Ribbon.
3. Selanjutnya klik tombol drop-down pada perintah "Terima".
4. Di menu drop-down, pilih "Terima Perubahan". Dan itu dia.

Kehilangan Data Menembus Dimana-mana

Mengikuti gelombang digitalisasi, kemungkinan mendapatkan dokumen korup meningkat. Mempertimbangkan nilai data Anda, sangat disarankan untuk memiliki alat perbaikan yang memadai. Sehingga Anda dapat memulihkan dokumen dengan waktu yang lebih singkat.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com