Loncat ke daftar isi utama

Bagaimana cara menerima perubahan format track hanya di dokumen Word?

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!

Selami fitur-fitur yang disorot di bawah atau klik di sini untuk menjelajahi kekuatan penuh Kutools for Word.

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/XLSX)  /  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 MudahSapu Spasi Ekstra  /  Bagian Istirahat  /   Semua Header  /  Teks box  /  Hyperlink  /  Untuk alat penghapus lainnya, kunjungi Grup Hapus kami

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

🔍 Pilihan Presisi: Tentukan halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  /  Navigasi dengan mudah menggunakan Grup Pilihan kami

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi ...

Ubah tugas Word Anda dengan Kutools. 👉 Unduh dengan uji coba 30 hari Sekarang 🚀.

 
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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations