Artikel ini mengilustrasikan bagaimana kamu bisa mengkonversi dokumen word ke spreadsheet excel namun tetap mempertahankan format yang sama. Misalkan kamu perlu memformat atau mengurutkan datamu yang ada di dokumen word. Tentunya, excel adalah pilihan yang lebih baik untuk melakukan hal tersebut. Untungnya, kamu tidak perlu mengetikkan datanya lagi di file excel yang baru. Kamu cukup mengkonversi dokumen wordnya ke spreadsheet excel dengan tetap mempertahankan formatnya.Gambar berikut ini menyoroti tujuan artikel ini. Lihatlah sekilas untuk mempelajari cara melakukannya dengan mudah.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja latihan dari tombol unduh di bawah ini.

Konversi Word ke Excel.xlsm

2 Cara Mengonversi Word ke Excel dengan Format yang Sama

Bayangkan kamu memiliki dokumen word berikut ini. Sekarang kamu ingin merubahnya menjadi spreadsheet excel. Maka ikuti metode-metode di bawah ini.

1. Ubah Word ke Excel dengan Salin-Tempel

Anda cukup menyalin data dari dokumen word dan menempelkannya ke sheet excel. Ikuti langkah-langkah di bawah ini untuk melakukannya.

📌 Langkah-langkah

• Pertama, buka file word. Kemudian, tekan CTRL+A untuk memilih seluruh dokumen. Anda juga dapat memilih rentang tertentu saja jika diperlukan.
• Setelah itu, tekan CTRL+C untuk menyalin data seperti ditunjukkan di bawah ini.

• Lalu, pilih cell kiri atas dari range di mana kamu ingin mendapatkan datanya.
• Sekarang, tekan CTRL+V Atau, Anda dapat mengklik kanan pada sel tersebut. Kemudian, pilih Pertahankan Pemformatan Sumber (K) dari Opsi Tempel .
• Setelah itu, Anda akan mendapatkan hasil berikut ini.

Baca selengkapnya: Cara Menyalin dari Word ke Excel ke Beberapa Sel (3 Cara)

2. Konversi Word ke Excel dengan VBA

Anda dapat melakukan hal yang sama dengan Excel VBA. Ikuti langkah-langkah di bawah ini untuk melakukannya.

📌 Langkah-langkah

• Pertama, tambahkan lembar kerja baru. Kemudian, simpan buku kerja sebagai a buku kerja berkemampuan makro .
• Berikutnya, tekan ALT+F11 untuk membuka jendela VBA.
• Kemudian, pilih Masukkan>> Modul untuk membuat modul baru seperti yang ditunjukkan pada gambar di bawah ini.

• Setelah itu, salin kode berikut menggunakan tombol salin.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

• Kemudian, tempelkan kode yang disalin ke jendela modul seperti yang ditunjukkan di bawah ini.

• Sekarang, tekan F5 untuk menjalankan kode. Anda juga dapat melakukannya dari Lari
• Setelah itu, Anda akan diminta untuk memilih file word yang ingin Anda konversi.
• Sekarang, telusuri ke lokasi dokumen kata yang Anda inginkan. Kemudian, pilih file dan klik Terbuka .

• Akhirnya, Anda akan mendapatkan hasil yang sama seperti pada metode sebelumnya.

🔎 Bagaimana Cara Kerja Kode?

Sub WordToExcelDenganPemformatan()

Dim Dokumen, Word Sebagai Objek

Dim File Sebagai Varian

Dim PG, Rentang

Mendeklarasikan variabel yang diperlukan.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("File Word (*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Silakan Pilih")

If Berkas = False Then Keluar Sub

Set Word = CreateObject("Word.Application")

Ini menetapkan Kata variabel sebagai dokumen kata.

Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)

Ini menetapkan Dokumen variabel ke objek atau berkas yang dirujuk oleh pengguna.

Dokumen.Aktifkan

PG = Document.Paragraphs.Count

Baris kode ini menetapkan PG variabel ke jumlah paragraf dalam dokumen word

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End)

Range.Select

Pada Kesalahan Lanjutkan Berikutnya

Word.Selection.Copy

ActiveSheet.Range ("B2").Select

ActiveSheet.Paste

Dokumen.Tutup

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Akhiri Sub

Baca selengkapnya: Cara Mengonversi Tabel Kata ke Spreadsheet Excel (6 Metode)

Hal-hal yang Perlu Diingat

• Anda juga dapat menyimpan file kata sebagai PDF. Kemudian, gunakan editor PDF Anda untuk mengonversinya menjadi Spreadsheet Excel.
• Jangan lupa menyimpan buku kerja sebagai file .xlsm Jika tidak, Anda akan kehilangan kode.

Kesimpulan

Sekarang, kamu sudah tahu cara mengubah dokumen word ke spreadsheet excel dan tetap mempertahankan formatnya. Silahkan beritahu kami jika artikel ini membantumu menyelesaikan masalahmu. Kamu juga bisa menggunakan kolom komentar di bawah ini untuk pertanyaan atau saran lebih lanjut. ExcelWIKI Tetaplah bersama kami dan teruslah belajar.