Loncat ke daftar isi utama

Bagaimana cara menerima perubahan format track hanya di dokumen Word?

Pengarang: Xiaoyang Terakhir Dimodifikasi: 2018-09-19

Jika Anda memiliki dokumen Word yang berada dalam mode lacak perubahan, saat Anda menerapkan Terima Semua Perubahan fitur, semua perubahan trek akan diterima. Namun, terkadang, Anda hanya ingin menerima perubahan trek pemformatan tanpa menerima penyisipan atau penghapusan. Artikel ini akan membahas tentang cara menyelesaikan tugas ini di dokumen Word.

Terima hanya pemformatan trek perubahan di Word dengan kode VBA

Terima hanya pemformatan trek perubahan di Word dengan fungsi Perlihatkan Markup


Terima hanya pemformatan trek perubahan di Word dengan kode VBA

Kode VBA berikut dapat membantu Anda menerima perubahan trek pemformatan hanya dalam dokumen Word, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka:

Kode VBA: Terima perubahan format track hanya dalam dokumen Word

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan hanya perubahan trek pemformatan yang segera diterima dalam dokumen Word aktif. Lihat tangkapan layar:

doc menerima pemformatan 1


Terima hanya pemformatan trek perubahan di Word dengan fungsi Perlihatkan Markup

Di dokumen Word, Anda juga dapat menerapkan Tampilkan Markup berfungsi untuk menyelesaikan pekerjaan ini, lakukan dengan langkah-langkah berikut:

1. Di file mode lacak perubahan, klik ULASAN > Tampilkan Markup, lalu hapus centang komentar dan Penyisipan dan Penghapusan opsi, dan biarkan format opsi dicentang, lihat tangkapan layar:

doc menerima pemformatan 2

2. Dan sekarang, Anda hanya dapat melihat pemformatan yang dilacak perubahannya, lalu klik terus ULASAN > Setuju > Terima Semua Perubahan Yang Ditampilkan seperti gambar berikut yang ditampilkan:

doc menerima pemformatan 3

3. Dan semua perubahan trek pemformatan telah diterima, sekarang, Anda harus kembali ke Pesan, Penyisipan dan Penghapusan opsi dengan memeriksanya dari Tampilkan Markup daftar drop-down, lihat tangkapan layar:

doc menerima pemformatan 4

4. Sekarang, Anda dapat melihat perubahan trek pemformatan telah diterima, dan perubahan trek lainnya masih disimpan, lihat tangkapan layar:

doc menerima pemformatan 1

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten  /  Menulis Ulang Teks  /  Meringkas Dokumen  /  Dapatkan Jawaban Cepat, semuanya dalam Word

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...)  /  Konversi Batch ke PDF  /  Ekspor Halaman sebagai Gambar  /  Cetak Banyak File sekaligus...

Pengeditan Isi: Temukan dan Ganti Batch di Banyak File  /  Ubah Ukuran Semua Gambar  /  Ubah Urutan Baris dan Kolom Tabel  /  Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra  /  Bagian Istirahat  /  Semua Header  /  Teks box  /  Hyperlink  / Untuk alat penghapus lainnya, kunjungi Hapus grup...

Sisipan Kreatif: Memasukkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  / Temukan lebih lanjut di Sisipkan grup...

🔍 Pilihan Presisi: Tepat Halaman Tertentu  /  Meja  /  bentuk  /  Paragraf Judul  / Tingkatkan navigasi dengan lebih Pilih fitur...

Peningkatan Bintang: Navigasi ke Lokasi Mana Pun  /  Sisipkan Otomatis Teks Berulang  /  Beralih Antar Jendela Dokumen  /  11 Alat Konversi...

👉 Ingin mencoba fitur-fitur tersebut? Unduh Kutools for Word hari ini dan rasakan perbedaannya! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations